From 6df88f977a005f55146ebd193293fa68e550eb8d Mon Sep 17 00:00:00 2001
From: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date: Wed, 12 Jan 2011 13:37:39 +0000
Subject: [PATCH] Update Term-UI to CPAN version 0.24

  [DELTA]

  Changes for 0.24        Wed Jan 12 13:16:01 GMT 2011
  =====================================================
  * Skip some tests if we are not on a terminal
---
 Porting/Maintainers.pl      | 2 +-
 cpan/Term-UI/lib/Term/UI.pm | 2 +-
 cpan/Term-UI/t/02_ui.t      | 7 +++++++
 pod/perldelta.pod           | 2 +-
 4 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index d910e45..15eb3fb 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1373,7 +1373,7 @@ use File::Glob qw(:case);
     'Term::UI' =>
 	{
 	'MAINTAINER'	=> 'kane',
-	'DISTRIBUTION'	=> 'BINGOS/Term-UI-0.22.tar.gz',
+	'DISTRIBUTION'	=> 'BINGOS/Term-UI-0.24.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 9776570..ca1ca7c 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.22';
+    $VERSION    =   '0.24';
     $INVALID    =   loc('Invalid selection, please try again: ');
 }
 
diff --git a/cpan/Term-UI/t/02_ui.t b/cpan/Term-UI/t/02_ui.t
index 6e0b34a..3a8a320 100644
--- a/cpan/Term-UI/t/02_ui.t
+++ b/cpan/Term-UI/t/02_ui.t
@@ -11,6 +11,11 @@ use_ok( 'Term::UI' );
 $Term::UI::AUTOREPLY    = $Term::UI::AUTOREPLY  = 1;
 $Term::UI::VERBOSE      = $Term::UI::VERBOSE    = 0;
 
+# SKIP tests if we aren't on a terminal
+SKIP: {
+
+skip 'not on a terminal', 18 unless -t;
+
 ### enable warnings
 $^W = 1;
 
@@ -142,3 +147,5 @@ my $tmpl = {
         is( $rest, $munged,     "   Command parsed correctly" );
     }
 }
+
+} # End SKIP block
diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 706d58d..8370e04 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -198,7 +198,7 @@ C<Params::Check> has been upgraded from version 0.26 to 0.28
 
 =item *
 
-C<Term::UI> has been upgraded from version 0.20 to 0.22
+C<Term::UI> has been upgraded from version 0.20 to 0.24
 
 =item *
 
-- 
2.7.4