(main): Avoid newer 3-arg form of open,

so this script works also with e.g., perl5.005_03.

diff --git a/src/extract-magic b/src/extract-magic
index cd97b4bede7e54592d3239321b6a4428802af89d..e3541594edd6613a645bc1bc97b3731de33b3748 100644 (file)
--- a/src/extract-magic
+++ b/src/extract-magic
@@ -4,7 +4,7 @@ use strict;
 
 use Getopt::Long;
 
-(my $VERSION = '$Revision: 1.2 $ ') =~ tr/[0-9].//cd;
+(my $VERSION = '$Revision: 1.3 $ ') =~ tr/[0-9].//cd;
 (my $ME = $0) =~ s|.*/||;
 
 END
@@ -77,7 +77,7 @@ EOF
 
   my $file = $ARGV[0];
 
-  open FH, '<', $file
+  open FH, $file
     or die "$ME: can't open `$file' for reading: $!\n";
 
   # For each line like this: