diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/printer/printerdrake.pm | 3 |
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; |