perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl/src/modules/perl Log.xs
Date Thu, 12 Nov 1998 14:56:25 GMT
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));
       }
  
  
  

Mime
View raw message