This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Moved prototype check to XS code, allowing the .pm file change from yesterday
authorSteve Peters <steve@fisharerojo.org>
Thu, 19 Aug 2010 18:20:59 +0000 (13:20 -0500)
committerSteve Peters <steve@fisharerojo.org>
Thu, 19 Aug 2010 18:20:59 +0000 (13:20 -0500)
to be removed.  Thanks to Rafael for pointing out prototypes in XS.

ext/I18N-Langinfo/Langinfo.pm
ext/I18N-Langinfo/Langinfo.xs

index 62c93e6..f7bac77 100644 (file)
@@ -100,10 +100,6 @@ sub AUTOLOAD {
 
 bootstrap I18N::Langinfo $VERSION;
 
-sub langinfo(_) {
-    return internal_langinfo(shift);
-}
-
 1;
 __END__
 
index 2cdc50c..62f3580 100644 (file)
@@ -16,8 +16,9 @@ PROTOTYPES: ENABLE
 INCLUDE: const-xs.inc
 
 SV*
-internal_langinfo(code)
+langinfo(code)
        int     code
+  PROTOTYPE: _
   CODE:
 #ifdef HAS_NL_LANGINFO
        {