When normalising @extspec, use the result of s/// in if() rather than m//

[p5sagit/p5-mst-13.2.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?