From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 11 Apr 2007 13:05:28 +0000 (+0000)
Subject: Upgrade to Shell 0.72 (noticed by Jerry D. Hedden)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad9da12857c524c37b6f927f1eb820e0d8a3f638;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to Shell 0.72 (noticed by Jerry D. Hedden)

p4raw-id: //depot/perl@30905
---

diff --git a/lib/Shell.pm b/lib/Shell.pm
index e9af9c4..0823884 100644
--- a/lib/Shell.pm
+++ b/lib/Shell.pm
@@ -6,7 +6,7 @@ use File::Spec::Functions;
 
 our($capture_stderr, $raw, $VERSION, $AUTOLOAD);
 
-$VERSION = '0.7';
+$VERSION = '0.72';
 
 sub new { bless \my $foo, shift }
 sub DESTROY { }
@@ -34,8 +34,6 @@ use constant OS => $^O;
 
 =begin private
 
-=over
-
 =item B<_make_cmd>
 
   $sub = _make_cmd($cmd);
@@ -43,8 +41,6 @@ use constant OS => $^O;
 
 Creates a closure which invokes the system command C<$cmd>.
 
-=back
-
 =end private
 
 =cut
diff --git a/lib/Shell.t b/lib/Shell.t
index 51f54a1..c76628c 100644
--- a/lib/Shell.t
+++ b/lib/Shell.t
@@ -2,8 +2,8 @@
 
 BEGIN {
     if( $ENV{PERL_CORE} ) {
-	chdir 't' if -d 't';
-	@INC = '../lib';
+        chdir 't' if -d 't';
+        @INC = '../lib';
     }
 }
 
@@ -28,6 +28,8 @@ while ( -f $tmpfile ) {
 }
 END { -f $tmpfile && (open STDERR, '>&SAVERR' and unlink $tmpfile) }
 
+no warnings 'once'; 
+# no false warning about   Name "main::SAVERR" used only once: possible typo
 
 open(SAVERR, ">&STDERR");
 open(STDERR, ">$tmpfile");