diff options
author | Ulf Möller <ulf@openssl.org> | 1999-05-13 21:24:35 +0400 |
---|---|---|
committer | Ulf Möller <ulf@openssl.org> | 1999-05-13 21:24:35 +0400 |
commit | ce457a54ff33ebb08e99e1b6518780cedbe5563f (patch) | |
tree | c6537151a8b61916f543d694abfdf88f010db684 /util | |
parent | 90ba7e21e1e04ba833c807bcb3dc2bdc5136a6b5 (diff) |
Oops. Close the file.
Diffstat (limited to 'util')
-rwxr-xr-x | util/mk1mf.pl | 1 | ||||
-rwxr-xr-x | util/mkdef.pl | 1 |
2 files changed, 2 insertions, 0 deletions
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)) { |