Erroneous binmode() call in uupacktool.pl

From: "Jan Dubois" <jand@activestate.com>
Message-ID: <01f101c820d0$df6c9220$9e45b660$@com>

p4raw-id: //depot/perl@32234

diff --git a/uupacktool.pl b/uupacktool.pl
index bf947bb..bb4dc00 100644 (file)
--- a/uupacktool.pl
+++ b/uupacktool.pl
@@ -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?