diff options
| author | Norbert Preining <preining@logic.at> | 2008-06-03 05:40:11 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-06-03 05:40:11 +0000 |
| commit | 3480939073cde759be9038b57270ca4f991990ed (patch) | |
| tree | a589129a074937bc09f6e6157908184e43fea9ea /Master/tlpkg | |
| parent | 6eac29b50be3e6b9daef5af984fd89f4ecb816b3 (diff) | |
install-menu-text.pl: make Ctrl-D quit the scene ...
git-svn-id: svn://tug.org/texlive/trunk@8504 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
| -rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index 743fdf955c7..0da5b74b037 100755 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -81,7 +81,9 @@ sub other_options { sub prompt { my $prompt=shift; print "\n$prompt: "; - chomp(my $answer=<STDIN>); + my $answer = <STDIN>; + $answer = "q" if !defined($answer); + chomp($answer); return "$answer"; } |