From 3bc20c1ea1a306475ea8eab8e8e1973625ca785f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 15 Dec 1999 12:50:29 +0000
Subject: no_comment

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

(limited to 'perl-install/Xconfigurator.pm')

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 0327b4728..da7d574b7 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -772,7 +772,8 @@ sub main {
 				 _("What do you want to do?"),
 				 [ grep { !ref } @c ]);
 	eval { &{$c{$f}} };
-	!$@ || $@ =~ /^ask_from_list cancel/ or die;
+	!$@ || $@ =~ /ask_from_list cancel/ or die;
+	$in->kill;
     }
 
     if ($ok) {
-- 
cgit v1.2.1