diff options
author | Norbert Preining <preining@logic.at> | 2009-02-03 12:56:24 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-02-03 12:56:24 +0000 |
commit | f0f383b043500d3449eed46c1ee1fd8dced513d7 (patch) | |
tree | e45c5ca94769b2996e6109f2c379f6c983402301 /Master/tlpkg/installer/install-menu-text.pl | |
parent | fcc121fbd794ac2f5dcec86ca94ddc5e0dea17ee (diff) |
rework install logic so that we can switch over to the GUI from wizard
without all those warnings about redefined subs
git-svn-id: svn://tug.org/texlive/trunk@12062 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index d9869d80501..87c99474789 100755 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -108,14 +108,14 @@ sub prompt { # The menu loop. A menu is a function. Its return value is a # reference to another menu or to itself. -sub run_menu { +sub run_menu_text { my $menu=\&main_menu; while ($RETURN == $MENU_CONTINUE) { $menu=$menu->(); } return($RETURN); } - +$::run_menu = \&run_menu_text; sub binary_menu { my %command=( |