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++) {
