package Shell;
-use 5.005_64;
+use 5.006_001;
use strict;
use warnings;
our($capture_stderr, $VERSION, $AUTOLOAD);
-$VERSION = '0.4';
+$VERSION = '0.5';
-sub new { bless \$VERSION, shift } # Nothing better to bless
+sub new { bless \my $foo, shift }
sub DESTROY { }
sub import {
$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') {