cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm

[dougm]

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"];