summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-text.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-09-21 00:33:58 +0000
committerKarl Berry <karl@freefriends.org>2008-09-21 00:33:58 +0000
commit6304603f9368804d653f2fef745612d1fdc015d4 (patch)
tree9f4b180fc80dddbacde434a11f5b9ebd031b2e51 /Master/tlpkg/installer/install-menu-text.pl
parent86701f3ec21852c37ad9822d4c1d0cfb9fb55a4e (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/install-menu-text.pl')
-rwxr-xr-xMaster/tlpkg/installer/install-menu-text.pl5
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'}->();
}
}