Perl 5.001perl-5.001

[See the Changes file for a list of changes]

1 files changed, 0 insertions, 10 deletions

diff --git a/h2xs.SH b/h2xs.SH
index c87aa6e9eb..aa5f331f6d 100755
--- a/h2xs.SH
+++ b/h2xs.SH
@@ -250,10 +250,6 @@ print PM<<"END";
 \@EXPORT = qw(
 	@const_names
 );
-# Other items we are prepared to export if requested
-\@EXPORT_OK = qw(
-);
-
 END
 
 print PM <<"END" unless $opt_c;
@@ -262,12 +258,6 @@ sub AUTOLOAD {
     # XS function.  If a constant is not found then control is passed
     # to the AUTOLOAD in AutoLoader.
 
-    # NOTE: THIS AUTOLOAD FUNCTION IS FLAWED (but is the best we can do for now).
-    # Avoid old-style ``&CONST'' usage. Either remove the ``&'' or add ``()''.
-    if (\@_ > 0) {
-	\$AutoLoader::AUTOLOAD = \$AUTOLOAD;
-	goto &AutoLoader::AUTOLOAD;
-    }
     local(\$constname);
     (\$constname = \$AUTOLOAD) =~ s/.*:://;
     \$val = constant(\$constname, \@_ ? \$_[0] : 0);