summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_newt.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-19 23:04:41 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-19 23:04:41 +0000
commit30db14621a97a66eb3bf6660621e558ecaf41e85 (patch)
tree0617bed3b2077000a89a2672213030c1ca5f150b /perl-install/interactive_newt.pm
parent386deeb0a41c1829a35f8b08a1ffb33ef65387a9 (diff)
downloaddrakx-backup-do-not-use-30db14621a97a66eb3bf6660621e558ecaf41e85.tar
drakx-backup-do-not-use-30db14621a97a66eb3bf6660621e558ecaf41e85.tar.gz
drakx-backup-do-not-use-30db14621a97a66eb3bf6660621e558ecaf41e85.tar.bz2
drakx-backup-do-not-use-30db14621a97a66eb3bf6660621e558ecaf41e85.tar.xz
drakx-backup-do-not-use-30db14621a97a66eb3bf6660621e558ecaf41e85.zip
no_comment
Diffstat (limited to 'perl-install/interactive_newt.pm')
-rw-r--r--perl-install/interactive_newt.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive_newt.pm b/perl-install/interactive_newt.pm
index 3325dfb28..729453c60 100644
--- a/perl-install/interactive_newt.pm
+++ b/perl-install/interactive_newt.pm
@@ -23,7 +23,7 @@ sub new() {
bless {}, $_[0];
}
-sub end { Newt::Finished }
+sub end() { Newt::Finished }
END { end() }
sub myTextbox {
@@ -62,7 +62,7 @@ sub ask_from_listW {
}
my $i; map_index { $i = $::i if $def eq $_ } @$l;
my ($r, $e) = Newt::WinMenu($title, $mesg, 40, 5, 5, 8, $l, $i, @okcancel);
- return if $r > 1;
+ $r > 1 and die "ask_from_list cancel";
if ($special) {
$r ? $okcancel[0] : $l->[$e];
} else {