perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@locus.apache.org
Subject cvs commit: modperl-2.0/src/modules/perl modperl_log.c
Date Sat, 15 Apr 2000 01:43:18 GMT
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++) {
  
  
  

Mime
View raw message