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

[dougm]

dougm       01/03/12 23:09:29

  Modified:    lib/ModPerl WrapXS.pm
  Log:
  ... passthru functions always need a THX
  
  Revision  Changes    Path
  1.3       +1 -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.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- WrapXS.pm 2001/03/13 04:03:00     1.2
  +++ WrapXS.pm 2001/03/13 07:09:28     1.3
  @@ -123,6 +123,7 @@
               }
   
               if ($passthru) {
  +                $thx ||= 'aTHX_ ';
                   $parms = 'items, MARK+1, SP';
               }