diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2012-11-10 12:29:21 +0000 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2012-11-10 12:29:21 +0000 |
commit | a744a0b79f6753f746bf37af2c776208590aef91 (patch) | |
tree | db7cff4b2f777b7189a829b19d3e693ad70e6deb /cpan/Term-UI | |
parent | 2b01189be5c66b0f30bf67cce1f20dbbed10085c (diff) | |
download | perl-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.pm | 13 |
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? |