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

[dougm]

dougm       01/10/08 10:57:45

  Added:       xs/ModPerl/Util ModPerl__Util.h
  Log:
  new module for util functions
  
  Revision  Changes    Path
  1.1                  modperl-2.0/xs/ModPerl/Util/ModPerl__Util.h
  
  Index: ModPerl__Util.h
  ===================================================================
  static MP_INLINE void mpxs_ModPerl__Util_untaint(pTHX_ I32 items,
                                                   SV **MARK, SV **SP)
  {
      while (MARK <= SP) {
          SvTAINTED_off(*MARK++);
      }
  }