From ef22f0025543eefd769df4e8fa5a35d665998eb2 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 5 Sep 2000 17:52:41 +0000
Subject: *** empty log message ***

---
 perl-install/printer.pm | 4 +---
 1 file changed, 1 insertion(+), 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($) {
-- 
cgit v1.2.1