You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1998/11/12 15:56:25 UTC
cvs commit: modperl/src/modules/perl Log.xs
dougm 98/11/12 06:56:25
Modified: . Changes
src/modules/perl Log.xs
Log:
fix $r->log->debug when running under -T
Revision Changes Path
1.191 +2 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /export/home/cvs/modperl/Changes,v
retrieving revision 1.190
retrieving revision 1.191
diff -u -r1.190 -r1.191
--- Changes 1998/11/08 02:13:42 1.190
+++ Changes 1998/11/12 14:56:22 1.191
@@ -8,6 +8,8 @@
=item 1.16_01-dev
+fix $r->log->debug when running under -T
+
new Apache::Leak module
new Apache::Symdump module
1.6 +4 -1 modperl/src/modules/perl/Log.xs
Index: Log.xs
===================================================================
RCS file: /export/home/cvs/modperl/src/modules/perl/Log.xs,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- Log.xs 1998/09/22 15:33:41 1.5
+++ Log.xs 1998/11/12 14:56:25 1.6
@@ -38,7 +38,10 @@
}
if((lmask == APLOG_DEBUG) && (s->loglevel >= APLOG_DEBUG)) {
- SV *caller = perl_eval_pv("[ (caller)[1,2] ]", TRUE);
+ SV *caller;
+ bool old_T = tainting; tainting = FALSE;
+ caller = perl_eval_pv("[ (caller)[1,2] ]", TRUE);
+ tainting = old_T;
file = SvPV(*av_fetch((AV *)SvRV(caller), 0, FALSE),na);
line = (int)SvIV(*av_fetch((AV *)SvRV(caller), 1, FALSE));
}