Oops. Close the file.
authorUlf Möller <ulf@openssl.org>
Thu, 13 May 1999 17:24:35 +0000 (17:24 +0000)
committerUlf Möller <ulf@openssl.org>
Thu, 13 May 1999 17:24:35 +0000 (17:24 +0000)
util/mk1mf.pl
util/mkdef.pl

index 90943de..355143b 100755 (executable)
@@ -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 "";
 
index 1f05fe0..9987387 100755 (executable)
@@ -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))
        {