Update Changes, README and TODO from the Test-Simple 0.84 tarball.

[perl5.git] / uupacktool.pl

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?