From: Ulf Möller <ulf@openssl.org>
Date: Thu, 13 May 1999 17:24:35 +0000 (+0000)
Subject: Oops. Close the file.
X-Git-Tag: OpenSSL_0_9_3beta1~83
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=ce457a54ff33ebb08e99e1b6518780cedbe5563f;p=openssl

Oops. Close the file.
---

diff --git a/util/mk1mf.pl b/util/mk1mf.pl
index 90943de3dc..355143b703 100755
--- 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 1f05fe040f..9987387a30 100755
--- 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))
 	{