diff options
| author | Steve Peters <steve@fisharerojo.org> | 2010-08-18 15:50:17 -0500 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2010-08-18 15:50:17 -0500 |
| commit | b7b56127fa601d5b0ee31a806bb53d0f1896d249 (patch) | |
| tree | f5d79d4ba3eca44ad08204751c640ad1538d711a | |
| parent | ff7894f5de15c54bf9db4d72df358a9df7f78f2e (diff) | |
| download | perl-b7b56127fa601d5b0ee31a806bb53d0f1896d249.tar.gz | |
Make I18N::Langinfo::langinfo take $_ as an argument if none is specified as
its documentation advertises. Bump version for this change.
| -rw-r--r-- | ext/I18N-Langinfo/Langinfo.pm | 6 | ||||
| -rw-r--r-- | ext/I18N-Langinfo/Langinfo.xs | 2 |
2 files changed, 6 insertions, 2 deletions
diff --git a/ext/I18N-Langinfo/Langinfo.pm b/ext/I18N-Langinfo/Langinfo.pm index 38d8f10e6e..62c93e6454 100644 --- a/ext/I18N-Langinfo/Langinfo.pm +++ b/ext/I18N-Langinfo/Langinfo.pm @@ -73,7 +73,7 @@ our @EXPORT_OK = qw( YESSTR ); -our $VERSION = '0.03'; +our $VERSION = '0.04'; sub AUTOLOAD { # This AUTOLOAD is used to 'autoload' constants from the constant() @@ -100,6 +100,10 @@ sub AUTOLOAD { bootstrap I18N::Langinfo $VERSION; +sub langinfo(_) { + return internal_langinfo(shift); +} + 1; __END__ diff --git a/ext/I18N-Langinfo/Langinfo.xs b/ext/I18N-Langinfo/Langinfo.xs index c1da9818c1..2cdc50c986 100644 --- a/ext/I18N-Langinfo/Langinfo.xs +++ b/ext/I18N-Langinfo/Langinfo.xs @@ -16,7 +16,7 @@ PROTOTYPES: ENABLE INCLUDE: const-xs.inc SV* -langinfo(code) +internal_langinfo(code) int code CODE: #ifdef HAS_NL_LANGINFO |