diff options
Diffstat (limited to 'Porting/checkansi.pl')
| -rwxr-xr-x | Porting/checkansi.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Porting/checkansi.pl b/Porting/checkansi.pl index c072b28e2c..f16691aa3a 100755 --- a/Porting/checkansi.pl +++ b/Porting/checkansi.pl @@ -50,7 +50,7 @@ for my $k (keys %{$limits{$opt{std}}}) { find(sub { /\.([ch]|xs)$/ or return; - my $fh = IO::File->new($_) or die "$_: $!\n"; + my $fh = IO::File->new($_, 'r') or die "$_: $!\n"; my $ll = ''; while (defined(my $line = <$fh>)) { |