summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/printer/printerdrake.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 044cc0a7d..a99e2e023 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -4258,7 +4258,8 @@ sub add_printer {
return 1;
}
};
- wizard_close($in, 0) if $@ =~ /wizcancel/;
+ die if $@ && $@ !~ /^wizcancel/;
+ wizard_close($in, 0);
} else {
$printer->{expert} or $printer->{TYPE} = "LOCAL";
wizard_welcome($printer, $in, $upNetwork) or return 0;