Add my epigraph, sans link

[perl5.git] / Porting / checkansi.pl

diff --git a/Porting/checkansi.pl b/Porting/checkansi.pl
old mode 100644 (file)
new mode 100755 (executable)
index c072b28..f16691a
--- 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>)) {