cvs commit: modperl-2.0/xs/ModPerl/Util ModPerl__Util.h

[dougm]

dougm       01/10/08 22:14:49

  Modified:    xs/ModPerl/Util ModPerl__Util.h
  Log:
  unfold SvTAINTED_off macro; no point in looping through args without -T switch on
  
  Revision  Changes    Path
  1.3       +4 -1      modperl-2.0/xs/ModPerl/Util/ModPerl__Util.h
  
  Index: ModPerl__Util.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/ModPerl/Util/ModPerl__Util.h,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- ModPerl__Util.h   2001/10/08 23:44:17     1.2
  +++ ModPerl__Util.h   2001/10/09 05:14:49     1.3
  @@ -1,8 +1,11 @@
   static MP_INLINE void mpxs_ModPerl__Util_untaint(pTHX_ I32 items,
                                                    SV **MARK, SV **SP)
   {
  +    if (!PL_tainting) {
  +        return;
  +    }
       while (MARK <= SP) {
  -        SvTAINTED_off(*MARK++);
  +        sv_untaint(*MARK++);
       }
   }