From a4c42bfb2337d37da89d789cb8cc226367994e32 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Mon, 21 May 2012 00:15:27 +0000
Subject: perl 5.14.2 from siep

git-svn-id: svn://tug.org/texlive/trunk@26525 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/tlperl/lib/Term/UI.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'Master/tlpkg/tlperl/lib/Term/UI.pm')

diff --git a/Master/tlpkg/tlperl/lib/Term/UI.pm b/Master/tlpkg/tlperl/lib/Term/UI.pm
index 136f75bb6ad..ba7a30421ba 100644
--- a/Master/tlpkg/tlperl/lib/Term/UI.pm
+++ b/Master/tlpkg/tlperl/lib/Term/UI.pm
@@ -11,7 +11,7 @@ use strict;
 BEGIN {
     use vars        qw[$VERSION $AUTOREPLY $VERBOSE $INVALID];
     $VERBOSE    =   1;
-    $VERSION    =   '0.20';
+    $VERSION    =   '0.26';
     $INVALID    =   loc('Invalid selection, please try again: ');
 }
 
@@ -137,7 +137,7 @@ sub get_reply {
     my $prompt_add;
     
     ### if you supplied several choices to pick from,
-    ### we'll print them seperately before the prompt
+    ### we'll print them separately before the prompt
     if( @{$args->{choices}} ) {
         my $i;
 
@@ -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
-- 
cgit v1.2.3