Fix ExtUtils::ParseXS to work on pre 5.8.9 perls
authorSteffen Mueller <smueller@cpan.org>
Wed, 27 Jul 2011 20:57:51 +0000 (22:57 +0200)
committerSteffen Mueller <smueller@cpan.org>
Wed, 27 Jul 2011 20:57:51 +0000 (22:57 +0200)
The tests were failing due to missing PERL_UNUSED_ARG.

This is an update to 3.00_05 from CPAN.

Porting/Maintainers.pl
dist/ExtUtils-ParseXS/Changes
dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
dist/ExtUtils-ParseXS/t/XSMore.xs
dist/ExtUtils-ParseXS/t/XSUsage.xs

index 26d12d6..af3d64f 100755 (executable)
@@ -752,7 +752,7 @@ use File::Glob qw(:case);
     'ExtUtils::ParseXS' =>
        {
        'MAINTAINER'    => 'smueller',
-       'DISTRIBUTION'  => 'SMUELLER/ExtUtils-ParseXS-3.00_04.tar.gz',
+       'DISTRIBUTION'  => 'SMUELLER/ExtUtils-ParseXS-3.00_05.tar.gz',
        'FILES'         => q[dist/ExtUtils-ParseXS],
        'UPSTREAM'      => 'blead',
        },
index ccb33e6..e667a2a 100644 (file)
@@ -1,5 +1,10 @@
 Revision history for Perl extension ExtUtils::ParseXS.
 
+3.00_05 - Wed Jul 27 22:54:00 CET 2011
+
+  - Define PERL_UNUSED_ARG for pre-3.8.9 perls.
+    This should fix the tests on those perls.
+
 3.00_04 - Wed Jul 27 22:22:00 CET 2011
 
   - Require perl 5.8.1.
index 8f5fe4a..8a2658f 100644 (file)
@@ -35,7 +35,7 @@ our @EXPORT_OK = qw(
   process_file
   report_error_count
 );
-our $VERSION = '3.00_04';
+our $VERSION = '3.00_05';
 $VERSION = eval $VERSION if $VERSION =~ /_/;
 
 # The scalars in the line below remain as 'our' variables because pulling
index d0a1f3c..df40186 100644 (file)
@@ -14,6 +14,22 @@ This parts are ignored.
 
 =cut
 
+/* Old perls (pre 5.8.9 or so) did not have PERL_UNUSED_ARG in XSUB.h.
+ * This is normally covered by ppport.h. */
+#ifndef PERL_UNUSED_ARG
+#  if defined(lint) && defined(S_SPLINT_S) /* www.splint.org */
+#    include <note.h>
+#    define PERL_UNUSED_ARG(x) NOTE(ARGUNUSED(x))
+#  else
+#    define PERL_UNUSED_ARG(x) ((void)x)
+#  endif
+#endif
+#ifndef PERL_UNUSED_VAR
+#  define PERL_UNUSED_VAR(x) ((void)x)
+#endif
+
+
+
 STATIC void
 outlist(int* a, int* b){
        *a = 'a';
index 1e59635..9a8d93d 100644 (file)
@@ -2,6 +2,20 @@
 #include "perl.h"
 #include "XSUB.h"
 
+/* Old perls (pre 5.8.9 or so) did not have PERL_UNUSED_ARG in XSUB.h.
+ * This is normally covered by ppport.h. */
+#ifndef PERL_UNUSED_ARG
+#  if defined(lint) && defined(S_SPLINT_S) /* www.splint.org */
+#    include <note.h>
+#    define PERL_UNUSED_ARG(x) NOTE(ARGUNUSED(x))
+#  else
+#    define PERL_UNUSED_ARG(x) ((void)x)
+#  endif
+#endif
+#ifndef PERL_UNUSED_VAR
+#  define PERL_UNUSED_VAR(x) ((void)x)
+#endif
+
 int xsusage_one()       { return 1; } 
 int xsusage_two()       { return 2; }
 int xsusage_three()     { return 3; }