PATCH: [perl #121292] wrong perlunicode BOM claims

[perl5.git] / Porting / checkVERSION.pl

diff --git a/Porting/checkVERSION.pl b/Porting/checkVERSION.pl
old mode 100644 (file)
new mode 100755 (executable)
index 9ad2ff5..d63c34e
--- a/Porting/checkVERSION.pl
+++ b/Porting/checkVERSION.pl
@@ -24,7 +24,7 @@ sub parse_file {
 
     my $result;
 
-    open(FH,$parsefile) or warn "Could not open '$parsefile': $!";
+    open(FH,'<',$parsefile) or warn "Could not open '$parsefile': $!";
 
     my $inpod = 0;
     while (<FH>) {