cvs commit: modperl-2.0/src/modules/perl modperl_io.c

[dougm]

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);