diff options
Diffstat (limited to 'lib/ExtUtils/ParseXS.pm')
| -rw-r--r-- | lib/ExtUtils/ParseXS.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/ExtUtils/ParseXS.pm b/lib/ExtUtils/ParseXS.pm index e2bce127e8..26e15fa171 100644 --- a/lib/ExtUtils/ParseXS.pm +++ b/lib/ExtUtils/ParseXS.pm @@ -18,7 +18,7 @@ my(@XSStack); # Stack of conditionals and INCLUDEs my($XSS_work_idx, $cpp_next_tmp); use vars qw($VERSION); -$VERSION = '2.15_01'; +$VERSION = '2.15_02'; use vars qw(%input_expr %output_expr $ProtoUsed @InitFileCode $FH $proto_re $Overload $errors $Fallback $cplusplus $hiertype $WantPrototypes $WantVersionChk $except $WantLineNumbers @@ -565,7 +565,11 @@ EOF #XS(XS_${Full_func_name}); /* prototype to pass -Wmissing-prototypes */ #XS(XS_${Full_func_name}) #[[ +##ifdef dVAR +# dVAR; dXSARGS; +##else # dXSARGS; +##endif EOF print Q(<<"EOF") if $ALIAS ; # dXSI32; @@ -919,7 +923,11 @@ EOF print Q(<<"EOF"); #[[ +##ifdef dVAR +# dVAR; dXSARGS; +##else # dXSARGS; +##endif EOF #-Wall: if there is no $Full_func_name there are no xsubs in this .xs |