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 (file)
--- 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 (file)
--- 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 {