diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-19 23:04:41 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-19 23:04:41 +0000 |
| commit | 30db14621a97a66eb3bf6660621e558ecaf41e85 (patch) | |
| tree | 0617bed3b2077000a89a2672213030c1ca5f150b /perl-install/interactive_newt.pm | |
| parent | 386deeb0a41c1829a35f8b08a1ffb33ef65387a9 (diff) | |
| download | drakx-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.pm | 4 |
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 { |