diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2006-05-20 12:55:21 +0100 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-05-22 20:30:14 +0000 |
| commit | 4ebc85a4613530144e72d4874f99fb711a65025c (patch) | |
| tree | 6bd0ad26ad3b358aba436634e2bcd34879e4e6ff /ext | |
| parent | f59c92c621b7937af4c128d98c292e91602e95f1 (diff) | |
| download | perl-4ebc85a4613530144e72d4874f99fb711a65025c.tar.gz | |
IO::Compress::Base::Common
From: "Paul Marquess" <paul.marquess@openwave.com>
Message-ID: <3F2DD0FCF1E2EA4D974C6195B482FD8801C339EF@bfs-exch-prd1.myopwv.com>
p4raw-id: //depot/perl@28285
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Compress/IO/Base/lib/IO/Compress/Base/Common.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/ext/Compress/IO/Base/lib/IO/Compress/Base/Common.pm b/ext/Compress/IO/Base/lib/IO/Compress/Base/Common.pm index 0e1ffa0111..264e1424fa 100644 --- a/ext/Compress/IO/Base/lib/IO/Compress/Base/Common.pm +++ b/ext/Compress/IO/Base/lib/IO/Compress/Base/Common.pm @@ -108,10 +108,10 @@ sub whatIsInput($;$) if (defined $got && $got eq 'filename' && defined $_[0] && $_[0] eq '-') { - use IO::File; + #use IO::File; $got = 'handle'; - #$_[0] = \*STDIN; - $_[0] = new IO::File("<-"); + $_[0] = *STDIN; + #$_[0] = new IO::File("<-"); } return $got; @@ -124,8 +124,8 @@ sub whatIsOutput($;$) if (defined $got && $got eq 'filename' && defined $_[0] && $_[0] eq '-') { $got = 'handle'; - #$_[0] = \*STDOUT; - $_[0] = new IO::File(">-"); + $_[0] = *STDOUT; + #$_[0] = new IO::File(">-"); } return $got; |