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 (file)
--- 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;