diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-10-06 21:27:13 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-10-06 21:27:13 +0000 |
commit | 8c798f879fd93d8d52542fe5d6d63725e8005251 (patch) | |
tree | 3e2059e5e7801786251ab33490fb6d984ae5a0fc | |
parent | bab3dc31a54b991bcbbb7b33bb5ede8251f0e056 (diff) | |
download | perl-8c798f879fd93d8d52542fe5d6d63725e8005251.tar.gz |
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
-rw-r--r-- | overload.pl | 4 | ||||
-rw-r--r-- | regen.pl | 3 |
2 files changed, 5 insertions, 2 deletions
diff --git a/overload.pl b/overload.pl index 640f4fdf29..1bddd3ff1e 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 () @@ -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 { |