Update Term-UI to CPAN version 0.26

  [DELTA]

  Changes for 0.26        Wed Feb  9 15:06:32 GMT 2011
  =====================================================
  * Apply blead patch from Michael Stevens RT #65038

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 9f03eba..a3c980b 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1383,7 +1383,7 @@ use File::Glob qw(:case);
     'Term::UI' =>
        {
        'MAINTAINER'    => 'kane',
-       'DISTRIBUTION'  => 'BINGOS/Term-UI-0.24.tar.gz',
+       'DISTRIBUTION'  => 'BINGOS/Term-UI-0.26.tar.gz',
        'FILES'         => q[cpan/Term-UI],
        'UPSTREAM'      => 'cpan',
        },

diff --git a/cpan/Term-UI/lib/Term/UI.pm b/cpan/Term-UI/lib/Term/UI.pm
index ca1ca7c..ba7a304 100644 (file)
--- 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.24';
+    $VERSION    =   '0.26';
     $INVALID    =   loc('Invalid selection, please try again: ');
 }
 
@@ -483,7 +483,7 @@ This defaults to C<*STDOUT>.
 
     ### ask a user (with an open question) for their favourite colour
     $reply = $term->get_reply( prompt => 'Your favourite colour? );
-    
+
 which would look like:
 
     Your favourite colour? 
@@ -496,7 +496,7 @@ and C<$reply> would hold the text the user typed.
     $reply = $term->get_reply(
                 prompt  => 'Your favourite colour?',
                 choices => [qw|red green blue|] );
-                
+
 which would look like:
 
       1> red
@@ -504,7 +504,7 @@ which would look like:
       3> blue
     
     Your favourite colour? 
-                
+
 C<$reply> will hold one of the choices presented. C<Term::UI> will repose
 the question if the user attempts to enter an answer that's not in the
 list of choices. The string presented is held in the C<$Term::UI::INVALID>
@@ -559,7 +559,7 @@ An answer of C<3 2 1> would fill C<@reply> with C<blue green red>
     $reply = $term->get_reply(
                 prompt  => "What is the magic number?",
                 allow   => 42 );
-                
+
 Unless the user now enters C<42>, the question will be reposed over
 and over again. You can use more sophisticated C<allow> handlers (even
 subroutines can be used). The C<allow> handler is implemented using

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index ee7ef2c..5d6918f 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -159,6 +159,10 @@ L<CPAN::Meta::YAML> and L<JSON::PP>, which are now part of the Perl core.
 
 =item *
 
+C<Term::UI> has been upgraded from version 0.24 to 0.26
+
+=item *
+
 C<Unicode::Collate> has been upgraded from version 0.68 to 0.72
 
 This also sees the switch from using the pure-perl version of this