perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/xs/Apache/Log Apache__Log.h
Date Thu, 03 May 2001 20:20:04 GMT
dougm       01/05/03 13:20:03

  Modified:    xs/Apache/Log Apache__Log.h
  Log:
  get the right filename:line number of the caller
  
  Revision  Changes    Path
  1.3       +1 -1      modperl-2.0/xs/Apache/Log/Apache__Log.h
  
  Index: Apache__Log.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/Apache/Log/Apache__Log.h,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- Apache__Log.h	2001/05/03 06:45:25	1.2
  +++ Apache__Log.h	2001/05/03 20:20:00	1.3
  @@ -33,7 +33,7 @@
       }
   
       if ((lmask == APLOG_DEBUG) && (s->loglevel >= APLOG_DEBUG)) {
  -        COP *cop = cxstack[1].blk_oldcop;
  +        COP *cop = PL_curcop;
           file = CopFILE(cop); /* (caller)[1] */
           line = CopLINE(cop); /* (caller)[2] */
       }
  
  
  

Mime
View raw message