From: Jim Meyering <jim@meyering.net>
Date: Fri, 6 Jun 2003 20:04:39 +0000 (+0000)
Subject: (main): Avoid newer 3-arg form of open,
X-Git-Tag: v5.0.1~358
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=ec8405327c7df3f05352faf859d090497c41cfc2;p=thirdparty%2Fcoreutils.git

(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 cd97b4bede..e3541594ed 100644
--- 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: