This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Erroneous binmode() call in uupacktool.pl
authorJan Dubois <jand@activestate.com>
Tue, 6 Nov 2007 15:58:05 +0000 (07:58 -0800)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 7 Nov 2007 10:45:18 +0000 (10:45 +0000)
From: "Jan Dubois" <jand@activestate.com>
Message-ID: <01f101c820d0$df6c9220$9e45b660$@com>

p4raw-id: //depot/perl@32234

uupacktool.pl

index bf947bb..bb4dc00 100644 (file)
@@ -26,7 +26,6 @@ sub handle_file {
 
     open my $fh, "<", $file
         or do { warn "Could not open input file $file: $!"; exit 0 };
-    binmode $fh;
     my $str = do { local $/; <$fh> };
 
     ### unpack?