diff options
author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-12 01:27:10 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-12 01:27:10 +0000 |
commit | 16caaa0fdfae2bdcec187bdffac3f12d7bb9a8a1 (patch) | |
tree | 985a0830c135d0fc792212c816a83386ae230ab2 /perl-install | |
parent | 7d8f11b58764859230367055deda3489fc09412f (diff) | |
download | drakx-16caaa0fdfae2bdcec187bdffac3f12d7bb9a8a1.tar drakx-16caaa0fdfae2bdcec187bdffac3f12d7bb9a8a1.tar.gz drakx-16caaa0fdfae2bdcec187bdffac3f12d7bb9a8a1.tar.bz2 drakx-16caaa0fdfae2bdcec187bdffac3f12d7bb9a8a1.tar.xz drakx-16caaa0fdfae2bdcec187bdffac3f12d7bb9a8a1.zip |
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/Xconfigurator.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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) { |