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/src/modules/perl modperl_io.c
Date Fri, 13 Jul 2001 17:12:24 GMT
dougm       01/07/13 10:12:22

  Modified:    src/modules/perl modperl_io.c
  Log:
  some extra trace info on tied handles
  
  Revision  Changes    Path
  1.2       +4 -2      modperl-2.0/src/modules/perl/modperl_io.c
  
  Index: modperl_io.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_io.c,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- modperl_io.c	2001/05/05 22:06:41	1.1
  +++ modperl_io.c	2001/07/13 17:12:12	1.2
  @@ -52,7 +52,8 @@
   
       IoFLUSH_off(PL_defoutgv); /* $|=0 */
   
  -    MP_TRACE_g(MP_FUNC, "tie *STDOUT => Apache::RequestRec\n");
  +    MP_TRACE_g(MP_FUNC, "tie *STDOUT(0x%lx) => Apache::RequestRec\n",
  +               (unsigned long)handle);
   
       TIEHANDLE(handle, r);
   
  @@ -73,7 +74,8 @@
           return handle;
       }
   
  -    MP_TRACE_g(MP_FUNC, "tie *STDIN => Apache::RequestRec\n");
  +    MP_TRACE_g(MP_FUNC, "tie *STDIN(0x%lx) => Apache::RequestRec\n",
  +               (unsigned long)handle);
   
       TIEHANDLE(handle, r);
   
  
  
  

Mime
View raw message