Revert "Revert "Moved prototype check to XS code, allowing the .pm file change from...

This reverts commit cf8fc7eed929846d31d02d565b4d5f4480a18d69,
reinstating the move of the prototype check to XS code.

diff --git a/ext/I18N-Langinfo/Langinfo.pm b/ext/I18N-Langinfo/Langinfo.pm
index 4bac102..db30359 100644 (file)
--- a/ext/I18N-Langinfo/Langinfo.pm
+++ b/ext/I18N-Langinfo/Langinfo.pm
@@ -72,14 +72,10 @@ our @EXPORT_OK = qw(
        YESSTR
 );
 
-our $VERSION = '0.08_01';
+our $VERSION = '0.08_02';
 
 XSLoader::load();
 
-sub langinfo(_) {
-    return internal_langinfo(shift);
-}
-
 1;
 __END__
 

diff --git a/ext/I18N-Langinfo/Langinfo.xs b/ext/I18N-Langinfo/Langinfo.xs
index f107d0e..8b1fd5a 100644 (file)
--- a/ext/I18N-Langinfo/Langinfo.xs
+++ b/ext/I18N-Langinfo/Langinfo.xs
@@ -18,8 +18,9 @@ PROTOTYPES: ENABLE
 INCLUDE: const-xs.inc
 
 SV*
-internal_langinfo(code)
+langinfo(code)
        int     code
+  PROTOTYPE: _
   CODE:
 #ifdef HAS_NL_LANGINFO
        RETVAL = newSVpv(nl_langinfo(code), 0);