summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-05 17:52:41 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-05 17:52:41 +0000
commitef22f0025543eefd769df4e8fa5a35d665998eb2 (patch)
tree56b5c4ce2a360b84cf5232f29c295062c6f3ca96 /perl-install
parentd64b6f87d1421b55779b24944c40b7e5df519b73 (diff)
downloaddrakx-backup-do-not-use-ef22f0025543eefd769df4e8fa5a35d665998eb2.tar
drakx-backup-do-not-use-ef22f0025543eefd769df4e8fa5a35d665998eb2.tar.gz
drakx-backup-do-not-use-ef22f0025543eefd769df4e8fa5a35d665998eb2.tar.bz2
drakx-backup-do-not-use-ef22f0025543eefd769df4e8fa5a35d665998eb2.tar.xz
drakx-backup-do-not-use-ef22f0025543eefd769df4e8fa5a35d665998eb2.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer.pm4
1 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 6bb78c031..298c99192 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -377,8 +377,6 @@ sub poll_ppd_base {
scalar(keys %descr_to_ppd) > 5 and last;
sleep 1; #- we have to try again running the program, wait here a little before.
}
- #- just in case, poll_ppd_base may produce core if not connected immediately.
- unlink "$prefix/core";
scalar(keys %descr_to_ppd) > 5 or die "unable to connect to cups server";
}
@@ -600,7 +598,7 @@ sub remove_queue($) {
require run_program;
run_program::rooted($prefix, "lpadmin", "-x", $printer->{QUEUE});
}
- delete $printer->{configured}{$printer->{queue}};
+ delete $printer->{configured}{$printer->{QUEUE}};
}
sub restart_queue($) {