diff options
| author | Jos I. Boumans <jos@dwim.org> | 2009-04-25 21:20:37 -0500 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2009-04-25 21:20:37 -0500 |
| commit | 46ad78bae1143b11df6e542008abadd9b3e1583b (patch) | |
| tree | 7d7591959deb2228888d250316d6c98da2a2c644 /lib/Term | |
| parent | 2b622f1ab95eef319d54ddc6bec007dfd5f831a8 (diff) | |
| download | perl-46ad78bae1143b11df6e542008abadd9b3e1583b.tar.gz | |
[PATCH] Update Term::UI to 0.20
Diffstat (limited to 'lib/Term')
| -rw-r--r-- | lib/Term/UI.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Term/UI.pm b/lib/Term/UI.pm index 4b20faad9c..136f75bb6a 100644 --- a/lib/Term/UI.pm +++ b/lib/Term/UI.pm @@ -11,7 +11,7 @@ use strict; BEGIN { use vars qw[$VERSION $AUTOREPLY $VERBOSE $INVALID]; $VERBOSE = 1; - $VERSION = '0.18'; + $VERSION = '0.20'; $INVALID = loc('Invalid selection, please try again: '); } @@ -147,7 +147,7 @@ sub get_reply { ### so this choice is the default? add it to 'prompt_add' ### so we can construct a "foo? [DIGIT]" type prompt - $prompt_add = $i if $choice eq $args->{default}; + $prompt_add = $i if (defined $args->{default} and $choice eq $args->{default}); ### create a "DIGIT> choice" type line $args->{print_me} .= sprintf "\n%3s> %-s", $i, $choice; |