X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FShell.pm;h=81b25985a536c46d984c24a9defb2437f6e99e43;hb=4d94824190f1d3f4307c94794486b277afd6e971;hp=5d2f2175d8470932dda93b3d8fd3122c81a9f12c;hpb=14fe70c2d1778829732c0549106909ab5b329425;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Shell.pm b/lib/Shell.pm
index 5d2f217..81b2598 100644
--- a/lib/Shell.pm
+++ b/lib/Shell.pm
@@ -1,5 +1,5 @@
 package Shell;
-use 5.6.1;
+use 5.006_001;
 use strict;
 use warnings;
 our($capture_stderr, $VERSION, $AUTOLOAD);
@@ -30,6 +30,7 @@ sub AUTOLOAD {
     $cmd =~ s/^.*:://;
     eval <<"*END*";
 	sub $AUTOLOAD {
+	    shift if ref \$_[0] && \$_[0]->isa( 'Shell' );
 	    if (\@_ < 1) {
 		\$Shell::capture_stderr ? `$cmd 2>&1` : `$cmd`;
 	    } elsif ('$^O' eq 'os2') {