From 25d0c8d4ad9132e2d68cd481c5c669b4b00ed638 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Thu, 19 Aug 2004 11:34:01 +0000
Subject: always close the wizard_window, die when an exception has been raised

---
 perl-install/printer/printerdrake.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;
-- 
cgit v1.2.1