diff options
| author | Jim Meyering <jim@meyering.net> | 2003-06-06 20:04:39 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 2003-06-06 20:04:39 +0000 |
| commit | ec8405327c7df3f05352faf859d090497c41cfc2 (patch) | |
| tree | a04e96bbb6b42aaac120d97d4a2d96a97d899219 | |
| parent | 9d8449fbeb86fcfe4e89ccddbaf8274222ecd127 (diff) | |
| download | coreutils-ec8405327c7df3f05352faf859d090497c41cfc2.tar.xz | |
(main): Avoid newer 3-arg form of open,
so this script works also with e.g., perl5.005_03.
| -rw-r--r-- | src/extract-magic | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/extract-magic b/src/extract-magic index cd97b4bed..e3541594e 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: |