summaryrefslogtreecommitdiffstats
path: root/perl-install/printer.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/printer.pm')
-rw-r--r--perl-install/printer.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index d7b0f5674..e9ce0c908 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -1035,8 +1035,10 @@ sub configure_queue($) {
}
# Make a new printer entry in the $printer structure
- $printer->{configured}{$printer->{currentqueue}{'queue'}}{'queuedata'}=
- $printer->{currentqueue};
+ $printer->{configured}{$printer->{currentqueue}{'queue'}}{'queuedata'} =
+ {};
+ copy_printer_params($printer->{currentqueue},
+ $printer->{configured}{$printer->{currentqueue}{'queue'}}{'queuedata'});
$printer->{configured}{$printer->{currentqueue}{'queue'}}{'args'} = {};
if ($printer->{currentqueue}{foomatic}) {
my $tmp = $printer->{OLD_QUEUE};
@@ -1049,7 +1051,6 @@ sub configure_queue($) {
read_cups_options($printer->{currentqueue}{'queue'});
}
# Clean up
- delete($printer->{currentqueue});
delete($printer->{ARGS});
$printer->{OLD_CHOICE} = "";
$printer->{ARGS} = {};