diff options
| author | Dan Brook <dbrook@easyspace.com> | 2002-10-17 17:05:04 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-22 15:43:55 +0000 |
| commit | 51947a20dc2d93fe0888ee6d69de8ae4aca4aef4 (patch) | |
| tree | ff486cccc86fe2337a1953d0ba9bade48d944c96 /lib/Shell.pm | |
| parent | 66fbe8fb06e4bc8631604373e6a099f620f92dcf (diff) | |
| download | perl-51947a20dc2d93fe0888ee6d69de8ae4aca4aef4.tar.gz | |
Shell.pm object methods broken
Message-Id: <20021017160504.63926a1b.dbrook@easyspace.com>
p4raw-id: //depot/perl@18044
Diffstat (limited to 'lib/Shell.pm')
| -rw-r--r-- | lib/Shell.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Shell.pm b/lib/Shell.pm index 9762a3aa0b..81b25985a5 100644 --- a/lib/Shell.pm +++ b/lib/Shell.pm @@ -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') { |