Directly create the SV with Perl_newSVpvf() rather than using

[perl5.git] / overload.pl

diff --git a/overload.pl b/overload.pl
index 640f4fd..295c837 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 {
@@ -30,8 +30,8 @@ print <<'EOF';
  *
  *    overload.h
  *
- *    Copyright (C) 1997, 1998, 2000, 2001, 2005 and 2006 by Larry Wall and
- *    others
+ *    Copyright (C) 1997, 1998, 2000, 2001, 2005, 2006, 2007 by Larry Wall
+ *    and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -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       ()