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

[dougm]

dougm       00/04/14 18:43:18

  Modified:    lib/ModPerl Code.pm
               src/modules/perl modperl_log.c
  Log:
  generate MP_TRACE_OPTS
  
  Revision  Changes    Path
  1.5       +3 -0      modperl-2.0/lib/ModPerl/Code.pm
  
  Index: Code.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Code.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- Code.pm   2000/04/15 01:38:44     1.4
  +++ Code.pm   2000/04/15 01:43:17     1.5
  @@ -190,9 +190,12 @@
       my($self, $h_fh) = @_;
   
       my $i = 1;
  +    my $opts = join '', @trace;
   
       print $h_fh <<EOF;
   extern U32 MP_debug_level;
  +
  +#define MP_TRACE_OPTS "$opts"
   
   #ifdef MP_TRACE
   #define MP_TRACE_a if (MP_debug_level) modperl_trace
  
  
  
  1.2       +1 -1      modperl-2.0/src/modules/perl/modperl_log.c
  
  Index: modperl_log.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_log.c,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- modperl_log.c     2000/04/15 01:38:24     1.1
  +++ modperl_log.c     2000/04/15 01:43:18     1.2
  @@ -27,7 +27,7 @@
           MP_debug_level = 0xffffffff;
       }
       else if (isALPHA(level[0])) {
  -        static char debopts[] = "dshgc";
  +        static char debopts[] = MP_TRACE_OPTS;
           char *d;
   
           for (; *level && (d = strchr(debopts, *level)); level++) {