diff options
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 8e64c539b..3d5beabd0 100644 --- a/perl-install/interactive_newt.pm +++ b/perl-install/interactive_newt.pm @@ -59,7 +59,7 @@ sub separator { } sub checkval { $_[0] && $_[0] ne ' ' ? '*' : ' ' } -sub ask_from_entries_refW { +sub ask_fromW { my ($o, $common, $l, $l2) = @_; my $ignore; #-to handle recursivity my $old_focus = -2; @@ -194,7 +194,7 @@ sub ask_from_entries_refW { $form->FormDestroy; Newt::PopWindow; $_->{e}{clicked}(); - return ask_from_entries_refW($o, $common, $l, $l2); + return ask_fromW($o, $common, $l, $l2); } } $canceled = $cancel && $$r == $$cancel; |