diff options
Diffstat (limited to 'ext/I18N-Langinfo')
| -rw-r--r-- | ext/I18N-Langinfo/Langinfo.pm | 11 | ||||
| -rw-r--r-- | ext/I18N-Langinfo/Makefile.PL | 2 |
2 files changed, 1 insertions, 12 deletions
diff --git a/ext/I18N-Langinfo/Langinfo.pm b/ext/I18N-Langinfo/Langinfo.pm index 48e44ce201..8af32de5a9 100644 --- a/ext/I18N-Langinfo/Langinfo.pm +++ b/ext/I18N-Langinfo/Langinfo.pm @@ -74,17 +74,6 @@ our @EXPORT_OK = qw( our $VERSION = '0.07'; -sub AUTOLOAD { - # This AUTOLOAD is used to 'autoload' constants from the constant() - # XS function. - - my $constname; - our $AUTOLOAD; - ($constname = $AUTOLOAD) =~ s/.*:://; - croak "&I18N::Langinfo::constant not defined" if $constname eq 'constant'; - constant($constname); -} - XSLoader::load(); 1; diff --git a/ext/I18N-Langinfo/Makefile.PL b/ext/I18N-Langinfo/Makefile.PL index 2cc590afae..b5ed77f6b6 100644 --- a/ext/I18N-Langinfo/Makefile.PL +++ b/ext/I18N-Langinfo/Makefile.PL @@ -30,7 +30,7 @@ push @names, # This lot are only enums for __SVR4_I386_ABI_L1__: foreach qw (CRNCYSTR THOUSEP RADIXCHAR); ExtUtils::Constant::WriteConstants( - PROXYSUBS => {croak_on_error => 1}, + PROXYSUBS => {autoload => 1}, NAME => 'I18N::Langinfo', NAMES => \@names, ); |