From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 6 Oct 2006 21:27:13 +0000 (+0000)
Subject: Fix typo spotted by Rafael. Close the file handle explicity and check
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8c798f879fd93d8d52542fe5d6d63725e8005251;p=p5sagit%2Fp5-mst-13.2.git

Fix typo spotted by Rafael. Close the file handle explicity and check
for errors. Add overload.pl to regen.pl

p4raw-id: //depot/perl@28951
---

diff --git a/overload.pl b/overload.pl
index 640f4fd..1bddd3f 100644
--- a/overload.pl
+++ b/overload.pl
@@ -2,7 +2,7 @@
 
 #
 # Generate overload.h
-# This allows the order of overloading consants to be changed.
+# This allows the order of overloading constants to be changed.
 # 
 
 BEGIN {
@@ -74,6 +74,8 @@ EXTCONST char * PL_AMG_names[NofAMmeth];
 #endif /* def INITAMAGIC */
 EOT
 
+close H or die $!;
+
 __DATA__
 # Fallback should be the first
 fallback	()
diff --git a/regen.pl b/regen.pl
index c7b9e13..7b0f8e3 100644
--- a/regen.pl
+++ b/regen.pl
@@ -25,7 +25,8 @@ my %gen = (
 	   'opcode.pl'   => [qw[opcode.h opnames.h pp_proto.h pp.sym]],
 	   'regcomp.pl'  => [qw[regnodes.h]],
 	   'warnings.pl' => [qw[warnings.h lib/warnings.pm]],
-	   'reentr.pl' => [qw[reentr.c reentr.h]],
+	   'reentr.pl'   => [qw[reentr.c reentr.h]],
+	   'overload.pl' => [qw[overload.h]],
 	   );
 
 sub do_cksum {