big renaming of ask_from_entries_refH in ask_from and ask_from_entries_refH_powered in ask_from_

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;