From: Paul Marquess <paul.marquess@btinternet.com>
Date: Sat, 20 May 2006 11:55:21 +0000 (+0100)
Subject: IO::Compress::Base::Common
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4ebc85a4613530144e72d4874f99fb711a65025c;p=p5sagit%2Fp5-mst-13.2.git

IO::Compress::Base::Common
From: "Paul Marquess" <paul.marquess@openwave.com>
Message-ID: <3F2DD0FCF1E2EA4D974C6195B482FD8801C339EF@bfs-exch-prd1.myopwv.com>

p4raw-id: //depot/perl@28285
---

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 0e1ffa0..264e142 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;