diff options
Diffstat (limited to 'h2xs.SH')
-rwxr-xr-x | h2xs.SH | 10 |
1 files changed, 0 insertions, 10 deletions
@@ -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); |