cvs commit: modperl-2.0/src/modules/perl modperl_callback.c

[gozer]

gozer       2004/09/29 13:57:51

  Modified:    src/modules/perl modperl_callback.c
  Log:
  Fix a small typo when turning taint-edness off.
  
  #define TAINT_NOT ( PL_tainted = 0 )
  
  Revision  Changes    Path
  1.79      +1 -1      modperl-2.0/src/modules/perl/modperl_callback.c
  
  Index: modperl_callback.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_callback.c,v
  retrieving revision 1.78
  retrieving revision 1.79
  diff -u -r1.78 -r1.79
  --- modperl_callback.c        28 Sep 2004 18:14:30 -0000      1.78
  +++ modperl_callback.c        29 Sep 2004 20:57:51 -0000      1.79
  @@ -35,7 +35,7 @@
        * Insecure dependency in eval while running setgid.
        * Callback called exit.
        */
  -    PL_tainted = TAINT_NOT;
  +    TAINT_NOT;
       
       if ((status = modperl_handler_resolve(aTHX_ &handler, p, s)) != OK) {
           PL_tainted = tainted_orig;