Oops. Close the file.

diff --git a/util/mk1mf.pl b/util/mk1mf.pl
index 90943de3dcc3ea8874df7116880f9c51409d3e4f..355143b703d84815746cde04b3ef91c67fa0be8b 100755 (executable)
--- a/util/mk1mf.pl
+++ b/util/mk1mf.pl
@@ -15,6 +15,7 @@ while(<IN>) {
     $options=$1 if (/^OPTIONS=(.*)$/);
     $INSTALLTOP=$1 if (/^INSTALLTOP=(.*$)/);
 }
+close(IN);
 
 die "Makefile.ssl is not the toplevel Makefile!\n" if $ssl_version eq "";
 

diff --git a/util/mkdef.pl b/util/mkdef.pl
index 1f05fe040f845170e85b94752b3d49d354eec2f0..9987387a30c07514a08e4b2fe4fc372b50323c16 100755 (executable)
--- a/util/mkdef.pl
+++ b/util/mkdef.pl
@@ -24,6 +24,7 @@ open(IN,"<Makefile.ssl") || die "unable to open Makefile.ssl!\n";
 while(<IN>) {
     $options=$1 if (/^OPTIONS=(.*)$/);
 }
+close(IN);
 
 foreach (@ARGV, split(/ /, $options))
        {