Revert EU::ParseXS part of c33e8be1506a75e393304af89d64e3f46e0ca7cb
authorSteffen Mueller <smueller@cpan.org>
Sat, 5 Feb 2011 16:06:29 +0000 (17:06 +0100)
committerSteffen Mueller <smueller@cpan.org>
Tue, 12 Jul 2011 18:53:48 +0000 (20:53 +0200)
This is necessary in order to apply Jim Keenan's work on
ExtUtils::ParseXS. The plan is to reapply this change later.

... also bump version.

dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
dist/ExtUtils-ParseXS/t/XSMore.xs
dist/ExtUtils-ParseXS/t/XSUsage.xs

index 79b3968..cffb454 100644 (file)
@@ -18,7 +18,7 @@ my(@XSStack); # Stack of conditionals and INCLUDEs
 my($XSS_work_idx, $cpp_next_tmp);
 
 use vars qw($VERSION);
-$VERSION = '2.2210';
+$VERSION = '2.2210_01';
 $VERSION = eval $VERSION if $VERSION =~ /_/;
 
 use vars qw(%input_expr %output_expr $ProtoUsed @InitFileCode $FH $proto_re $Overload $errors $Fallback
index 0777f89..f2fe902 100644 (file)
@@ -16,7 +16,6 @@ outlist(int* a, int* b){
 
 STATIC int
 len(const char* const s, int const l){
-       PERL_UNUSED_ARG(s);
        return l;
 }
 
@@ -85,7 +84,6 @@ int
 myabs(...)
 OVERLOAD: abs
 CODE:
-       PERL_UNUSED_VAR(items);
        RETVAL = 42;
 OUTPUT:
        RETVAL
index 1e59635..ec663f8 100644 (file)
@@ -6,8 +6,8 @@ int xsusage_one()       { return 1; }
 int xsusage_two()       { return 2; }
 int xsusage_three()     { return 3; }
 int xsusage_four()      { return 4; }
-int xsusage_five(int i) { PERL_UNUSED_ARG(i); return 5; }
-int xsusage_six(int i)  { PERL_UNUSED_ARG(i); return 6; }
+int xsusage_five(int i) { return 5; }
+int xsusage_six(int i)  { return 6; }
 
 MODULE = XSUsage         PACKAGE = XSUsage     PREFIX = xsusage_