diff options
author | Karl Berry <karl@freefriends.org> | 2008-09-21 00:33:58 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-09-21 00:33:58 +0000 |
commit | 6304603f9368804d653f2fef745612d1fdc015d4 (patch) | |
tree | 9f4b180fc80dddbacde434a11f5b9ebd031b2e51 /Master/tlpkg/installer | |
parent | 86701f3ec21852c37ad9822d4c1d0cfb9fb55a4e (diff) |
(binary_menu, directories_menu): don't complain
about R being an unknown command. Report from
Nelson, 25 Aug 2008 18:16:52.
git-svn-id: svn://tug.org/texlive/trunk@10670 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer')
-rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index 4ee41f79293..59eac9f733c 100755 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -156,7 +156,7 @@ sub binary_menu { } if (defined $keyval{$keystroke}) { toggle "$keyval{$keystroke}"; - } else { + } elsif (!defined $command{"\u$answer"}) { print "Unknown command: $keystroke\n\n"; } } @@ -525,13 +525,12 @@ EOF $vars{'TEXMFHOME'}=~s@\\@/@g if (win32); return $command{'self'}; - } else { - print "Unknown command: $answer\n\n"; } if (defined $command{"\u$answer"}) { return $command{"\u$answer"}->(); } else { + print "Unknown command: $answer\n\n"; return $command{'self'}->(); } } |