close files.

diff --git a/util/mk1mf.pl b/util/mk1mf.pl
index 4647fc7a035a1eaee7b2ce1b154f08294eeb71b9..e4596bebb201a7c3eccbd38a5a65ddcc6489a493 100755 (executable)
--- a/util/mk1mf.pl
+++ b/util/mk1mf.pl
@@ -420,9 +420,11 @@ if (open(IN,"crypto/mk1mfinf.h"))
                        $old_mk1mfinf_h .= $_;
                        }
                }
                        $old_mk1mfinf_h .= $_;
                        }
                }

+       close(IN);

 
        open(OUT,">crypto/mk1mfinf.h") || die "Can't open mk1mfinf.h";
        print OUT $old_mk1mfinf_h;
 
        open(OUT,">crypto/mk1mfinf.h") || die "Can't open mk1mfinf.h";
        print OUT $old_mk1mfinf_h;

+       close(OUT);

        }
 
 open (OUT,">>crypto/mk1mfinf.h") || die "Can't open mk1mfinf.h";
        }
 
 open (OUT,">>crypto/mk1mfinf.h") || die "Can't open mk1mfinf.h";