summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Term/UI.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-04-23 21:46:20 +0000
committerKarl Berry <karl@freefriends.org>2014-04-23 21:46:20 +0000
commit300c1eb6d37d46078d448d6d58938d5a80cd68ff (patch)
tree23a0a8b9f8f5460b405119c4d3c163d2d488ca5e /Master/tlpkg/tlperl/lib/Term/UI.pm
parented55d86b7c5e18f6eccce80a1fb1423ca40a23b5 (diff)
(tl)perl 5.18.2 for windows from siep
git-svn-id: svn://tug.org/texlive/trunk@33648 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Term/UI.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Term/UI.pm15
1 files changed, 11 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/Term/UI.pm b/Master/tlpkg/tlperl/lib/Term/UI.pm
index 34f13f8d513..fb335272c07 100644
--- a/Master/tlpkg/tlperl/lib/Term/UI.pm
+++ b/Master/tlpkg/tlperl/lib/Term/UI.pm
@@ -1,5 +1,7 @@
package Term::UI;
+use if $] > 5.017, 'deprecate';
+
use Carp;
use Params::Check qw[check allow];
use Term::ReadLine;
@@ -11,7 +13,7 @@ use strict;
BEGIN {
use vars qw[$VERSION $AUTOREPLY $VERBOSE $INVALID];
$VERBOSE = 1;
- $VERSION = '0.30';
+ $VERSION = '0.34';
$INVALID = loc('Invalid selection, please try again: ');
}
@@ -266,9 +268,14 @@ sub _tt_readline {
history( $print_me ) if $print_me;
- ### we might have to add a default value to the prompt, to
- ### show the user what will be picked by default:
- $prompt .= " [$prompt_add]: " if $prompt_add;
+ if ($prompt_add) {
+ ### we might have to add a default value to the prompt, to
+ ### show the user what will be picked by default:
+ $prompt .= " [$prompt_add]: " ;
+ }
+ else {
+ $prompt .= " : ";
+ }
### are we in autoreply mode?