diff options
-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'}->(); } } |