From ce457a54ff33ebb08e99e1b6518780cedbe5563f Mon Sep 17 00:00:00 2001
From: =?utf8?q?Ulf=20M=C3=B6ller?= <ulf@openssl.org>
Date: Thu, 13 May 1999 17:24:35 +0000
Subject: [PATCH] Oops. Close the file.

---
 util/mk1mf.pl | 1 +
 util/mkdef.pl | 1 +
 2 files changed, 2 insertions(+)

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))
 	{
-- 
2.25.1