summaryrefslogtreecommitdiff
path: root/h2xs.SH
diff options
context:
space:
mode:
Diffstat (limited to 'h2xs.SH')
-rwxr-xr-xh2xs.SH10
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);