summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-12 01:27:10 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-12 01:27:10 +0000
commit16caaa0fdfae2bdcec187bdffac3f12d7bb9a8a1 (patch)
tree985a0830c135d0fc792212c816a83386ae230ab2 /perl-install/Xconfigurator.pm
parent7d8f11b58764859230367055deda3489fc09412f (diff)
downloaddrakx-backup-do-not-use-16caaa0fdfae2bdcec187bdffac3f12d7bb9a8a1.tar
drakx-backup-do-not-use-16caaa0fdfae2bdcec187bdffac3f12d7bb9a8a1.tar.gz
drakx-backup-do-not-use-16caaa0fdfae2bdcec187bdffac3f12d7bb9a8a1.tar.bz2
drakx-backup-do-not-use-16caaa0fdfae2bdcec187bdffac3f12d7bb9a8a1.tar.xz
drakx-backup-do-not-use-16caaa0fdfae2bdcec187bdffac3f12d7bb9a8a1.zip
no_comment
Diffstat (limited to 'perl-install/Xconfigurator.pm')
-rw-r--r--perl-install/Xconfigurator.pm2
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) {