From 16caaa0fdfae2bdcec187bdffac3f12d7bb9a8a1 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 12 Nov 1999 01:27:10 +0000 Subject: no_comment --- perl-install/Xconfigurator.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/Xconfigurator.pm') diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index 6ba3014b7..57384a79b 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -747,7 +747,7 @@ 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; } if ($ok) { -- cgit v1.2.1