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/src/modules/perl mod_perl.c modperl_cmd.c modperl_cmd.h
Date Thu, 27 Sep 2001 15:46:21 GMT
dougm       01/09/27 08:46:21

  Modified:    src/modules/perl mod_perl.c modperl_cmd.c modperl_cmd.h
  Log:
  add PerlTaintCheck directive for backwards compat
  
  Revision  Changes    Path
  1.73      +2 -0      modperl-2.0/src/modules/perl/mod_perl.c
  
  Index: mod_perl.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.c,v
  retrieving revision 1.72
  retrieving revision 1.73
  diff -u -r1.72 -r1.73
  --- mod_perl.c	2001/09/27 15:26:36	1.72
  +++ mod_perl.c	2001/09/27 15:46:21	1.73
  @@ -428,6 +428,8 @@
   #ifdef MP_COMPAT_1X
       MP_CMD_DIR_ITERATE("PerlHandler", response_handlers,
                          "Subroutine name"),
  +    MP_CMD_SRV_FLAG("PerlTaintCheck", taint_check,
  +                    "Turn on -T switch"),
   #endif
       MP_CMD_ENTRIES,
       { NULL }, 
  
  
  
  1.7       +14 -0     modperl-2.0/src/modules/perl/modperl_cmd.c
  
  Index: modperl_cmd.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_cmd.c,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- modperl_cmd.c	2001/08/08 16:20:31	1.6
  +++ modperl_cmd.c	2001/09/27 15:46:21	1.7
  @@ -84,6 +84,20 @@
       return NULL;
   }
   
  +
  +#ifdef MP_COMPAT_1X
  +
  +MP_CMD_SRV_DECLARE_FLAG(taint_check)
  +{
  +    if (on) {
  +        return modperl_cmd_switches(parms, dummy, "-T");
  +    }
  +
  +    return NULL;
  +}
  +
  +#endif /* MP_COMPAT_1X */
  +
   #ifdef USE_ITHREADS
   
   #define MP_INTERP_SCOPE_USAGE "PerlInterpScope must be one of "
  
  
  
  1.9       +6 -0      modperl-2.0/src/modules/perl/modperl_cmd.h
  
  Index: modperl_cmd.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_cmd.h,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- modperl_cmd.h	2001/09/27 15:39:57	1.8
  +++ modperl_cmd.h	2001/09/27 15:46:21	1.9
  @@ -23,6 +23,12 @@
   MP_CMD_SRV_DECLARE(requires);
   MP_CMD_SRV_DECLARE(options);
   
  +#ifdef MP_COMPAT_1X
  +
  +MP_CMD_SRV_DECLARE_FLAG(taint_check);
  +
  +#endif /* MP_COMPAT_1X */
  +
   #ifdef USE_ITHREADS
   MP_CMD_SRV_DECLARE(interp_start);
   MP_CMD_SRV_DECLARE(interp_max);
  
  
  

Mime
View raw message