Make I18N::Langinfo::langinfo take $_ as an argument if none is specified as

its documentation advertises.  Bump version for this change.

diff --git a/ext/I18N-Langinfo/Langinfo.pm b/ext/I18N-Langinfo/Langinfo.pm
index 38d8f10..62c93e6 100644 (file)
--- 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 c1da981..2cdc50c 100644 (file)
--- 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