From 8c798f879fd93d8d52542fe5d6d63725e8005251 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 6 Oct 2006 21:27:13 +0000
Subject: [PATCH] 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
---
 overload.pl | 4 +++-
 regen.pl    | 3 ++-
 2 files changed, 5 insertions(+), 2 deletions(-)

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 {
-- 
1.8.3.1