Allow to create more than one Shell object :

Subject: [patch] Shell.pm fix
Message-ID: <20030704231650.GA19701@stefp.dyndns.org>

p4raw-id: //depot/perl@20003

diff --git a/lib/Shell.pm b/lib/Shell.pm
index 81b2598..e300d79 100644 (file)
--- a/lib/Shell.pm
+++ b/lib/Shell.pm
@@ -4,9 +4,9 @@ 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 {