summaryrefslogtreecommitdiff
path: root/cpan/Term-UI
diff options
context:
space:
mode:
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>2012-11-10 12:29:21 +0000
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>2012-11-10 12:29:21 +0000
commita744a0b79f6753f746bf37af2c776208590aef91 (patch)
treedb7cff4b2f777b7189a829b19d3e693ad70e6deb /cpan/Term-UI
parent2b01189be5c66b0f30bf67cce1f20dbbed10085c (diff)
downloadperl-a744a0b79f6753f746bf37af2c776208590aef91.tar.gz
Update Term-UI to CPAN version 0.32
[DELTA] Changes for 0.32 Sat Nov 10 11:00:31 GMT 2012 ===================================================== * Add a delimiter to a prompt that doesn't have a default (Tommy Stanton)
Diffstat (limited to 'cpan/Term-UI')
-rw-r--r--cpan/Term-UI/lib/Term/UI.pm13
1 files changed, 9 insertions, 4 deletions
diff --git a/cpan/Term-UI/lib/Term/UI.pm b/cpan/Term-UI/lib/Term/UI.pm
index 34f13f8d51..eb7ec7ead4 100644
--- a/cpan/Term-UI/lib/Term/UI.pm
+++ b/cpan/Term-UI/lib/Term/UI.pm
@@ -11,7 +11,7 @@ use strict;
BEGIN {
use vars qw[$VERSION $AUTOREPLY $VERBOSE $INVALID];
$VERBOSE = 1;
- $VERSION = '0.30';
+ $VERSION = '0.32';
$INVALID = loc('Invalid selection, please try again: ');
}
@@ -266,9 +266,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?