This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix typo spotted by Rafael. Close the file handle explicity and check
authorNicholas Clark <nick@ccl4.org>
Fri, 6 Oct 2006 21:27:13 +0000 (21:27 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 6 Oct 2006 21:27:13 +0000 (21:27 +0000)
for errors. Add overload.pl to regen.pl

p4raw-id: //depot/perl@28951

overload.pl
regen.pl

index 640f4fd..1bddd3f 100644 (file)
@@ -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       ()
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 {