typo on h2xs.PL (from Helmut Jarausch)

p4raw-id: //depot/perl@4768

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index 7d72e8a..ca55c0a 100644 (file)
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -705,7 +705,7 @@ sub AUTOLOAD {
     # to the AUTOLOAD in AutoLoader.
 
     my \$constname;
-    our $AUTOLOAD;
+    our \$AUTOLOAD;
     (\$constname = \$AUTOLOAD) =~ s/.*:://;
     croak "&$module::constant not defined" if \$constname eq 'constant';
     my \$val = constant(\$constname, \@_ ? \$_[0] : 0);