perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/xs/ModPerl/Util ModPerl__Util.h
Date Tue, 09 Oct 2001 05:14:49 GMT
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++);
       }
   }
   
  
  
  

Mime
View raw message