cvs commit: modperl-2.0/src/modules/perl mod_perl.c modperl_cmd.c modperl_cmd.h

[dougm]

dougm       01/09/27 08:56:44

  Modified:    src/modules/perl mod_perl.c modperl_cmd.c modperl_cmd.h
  Log:
  add PerlWarn directive for backwards compat
  
  Revision  Changes    Path
  1.74      +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.73
  retrieving revision 1.74
  diff -u -r1.73 -r1.74
  --- mod_perl.c        2001/09/27 15:46:21     1.73
  +++ mod_perl.c        2001/09/27 15:56:44     1.74
  @@ -430,6 +430,8 @@
                          "Subroutine name"),
       MP_CMD_SRV_FLAG("PerlTaintCheck", taint_check,
                       "Turn on -T switch"),
  +    MP_CMD_SRV_FLAG("PerlWarn", warn,
  +                    "Turn on -w switch"),
   #endif
       MP_CMD_ENTRIES,
       { NULL }, 
  
  
  
  1.9       +9 -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.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- modperl_cmd.c     2001/09/27 15:50:37     1.8
  +++ modperl_cmd.c     2001/09/27 15:56:44     1.9
  @@ -96,6 +96,15 @@
       return NULL;
   }
   
  +MP_CMD_SRV_DECLARE_FLAG(warn)
  +{
  +    if (flag_on) {
  +        return modperl_cmd_switches(parms, mconfig, "-w");
  +    }
  +
  +    return NULL;
  +}
  +
   #endif /* MP_COMPAT_1X */
   
   #ifdef USE_ITHREADS
  
  
  
  1.11      +1 -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.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- modperl_cmd.h     2001/09/27 15:50:37     1.10
  +++ modperl_cmd.h     2001/09/27 15:56:44     1.11
  @@ -26,6 +26,7 @@
   #ifdef MP_COMPAT_1X
   
   MP_CMD_SRV_DECLARE_FLAG(taint_check);
  +MP_CMD_SRV_DECLARE_FLAG(warn);
   
   #endif /* MP_COMPAT_1X */