You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2002/05/23 02:43:35 UTC
cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm
dougm 02/05/22 17:43:35
Modified: lib/ModPerl WrapXS.pm
Log:
s/aTHX_/aTHX/ if there are no additional args
Revision Changes Path
1.43 +2 -0 modperl-2.0/lib/ModPerl/WrapXS.pm
Index: WrapXS.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/WrapXS.pm,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -r1.42 -r1.43
--- WrapXS.pm 9 Apr 2002 01:15:44 -0000 1.42
+++ WrapXS.pm 23 May 2002 00:43:35 -0000 1.43
@@ -131,6 +131,8 @@
$parms = 'items, MARK+1, SP';
}
+ $thx =~ s/_ $// unless $parms;
+
my $retval = $return_type eq 'void' ?
["", ""] : ["RETVAL = ", "OUTPUT:\n RETVAL\n"];