cvs commit: modperl-2.0/xs/Apache/Log Apache__Log.h

[dougm]

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] */
       }