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 (file)
--- 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 (file)
--- 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");