PATCH: GH #17370, read beyond buffer in grok_inf_nan

[perl5.git] / Porting / checkVERSION.pl

diff --git a/Porting/checkVERSION.pl b/Porting/checkVERSION.pl
index 9ad2ff5..d63c34e 100755 (executable)
--- 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>) {