cvs commit: modperl-2.0/lib/ModPerl Code.pm

[dougm]

dougm       00/04/16 17:07:40

  Modified:    lib/ModPerl Code.pm
  Log:
  MP_TRACE_x_do for arbitrary expressions
  
  Revision  Changes    Path
  1.9       +5 -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.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- Code.pm   2000/04/16 01:41:22     1.8
  +++ Code.pm   2000/04/17 00:07:40     1.9
  @@ -200,20 +200,25 @@
   
   #ifdef MP_TRACE
   #define MP_TRACE_a if (MP_debug_level) modperl_trace
  +#define MP_TRACE_a_do(exp) if (MP_debug_level) exp
   #else
   #define MP_TRACE_a if (0) modperl_trace
  +#define MP_TRACE_a_do(exp)
   #endif
   
   EOF
   
       for my $type (@trace) {
           my $define = "#define MP_TRACE_$type";
  +        my $define_do = join '_', $define, 'do';
   
           print $h_fh <<EOF;
   #ifdef MP_TRACE
   $define if (MP_debug_level & $i) modperl_trace
  +$define_do(exp) if (MP_debug_level & $i) exp
   #else
   $define if (0) modperl_trace
  +$define_do(exp)
   #endif
   EOF
           $i += $i;