cvs commit: modperl/src/modules/perl perl_util.c

[dougm]

dougm       02/04/15 19:32:22

  Modified:    src/modules/perl perl_util.c
  Log:
  fix taint issue with bleedperl
  
  Revision  Changes    Path
  1.48      +1 -0      modperl/src/modules/perl/perl_util.c
  
  Index: perl_util.c
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/perl_util.c,v
  retrieving revision 1.47
  retrieving revision 1.48
  diff -u -r1.47 -r1.48
  --- perl_util.c       24 Mar 2002 23:01:33 -0000      1.47
  +++ perl_util.c       16 Apr 2002 02:32:22 -0000      1.48
  @@ -503,6 +503,7 @@
            SvREFCNT_dec(HeVAL(entry));
            HeVAL(entry) = &sv_undef;
            MP_TRACE_g(fprintf(stderr, "reloading %s\n", HeKEY(entry)));
  +         TAINT_NOT;
            perl_require_pv(HeKEY(entry));
        }
        SvREFCNT_dec(keysv);