stas        2004/04/01 17:38:13

  Modified:    lib/ModPerl Code.pm
               src/modules/perl modperl_io.c
  Log:
  allocate 'r' for 'Perl runtime interaction', and use 'g' for 'globals
  management' in tracing
  
  Revision  Changes    Path
  1.119     +3 -2      modperl-2.0/lib/ModPerl/Code.pm
  
  Index: Code.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Code.pm,v
  retrieving revision 1.118
  retrieving revision 1.119
  diff -u -u -r1.118 -r1.119
  --- Code.pm	4 Mar 2004 06:01:06 -0000	1.118
  +++ Code.pm	2 Apr 2004 01:38:12 -0000	1.119
  @@ -487,12 +487,13 @@
       'd' => 'directive processing',
       'e' => 'environment variables',
       'f' => 'filters',
  -    'g' => 'Perl runtime interaction',
  +    'g' => 'globals management',
       'h' => 'handlers',
       'i' => 'interpreter pool management',
       'm' => 'memory allocations',
       'o' => 'I/O',
  -    's' => 'perl sections',
  +    'r' => 'Perl runtime interaction',
  +    's' => 'Perl sections',
       't' => 'benchmark-ish timings',
   );
   
  
  
  
  1.26      +3 -3      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.25
  retrieving revision 1.26
  diff -u -u -r1.25 -r1.26
  --- modperl_io.c	4 Mar 2004 06:01:07 -0000	1.25
  +++ modperl_io.c	2 Apr 2004 01:38:12 -0000	1.26
  @@ -32,7 +32,7 @@
   
       SvREFCNT_dec(obj); /* since sv_magic did SvREFCNT_inc */
   
  -    MP_TRACE_g(MP_FUNC, "tie *%s(0x%lx) => %s, REFCNT=%d\n",
  +    MP_TRACE_r(MP_FUNC, "tie *%s(0x%lx) => %s, REFCNT=%d\n",
                  GvNAME(handle), (unsigned long)handle, classname,
                  SvREFCNT(TIEHANDLE_SV(handle)));
   }
  @@ -82,7 +82,7 @@
   	char *package = HvNAME(SvSTASH((SV*)SvRV(mg->mg_obj)));
   
   	if (!strEQ(package, classname)) {
  -	    MP_TRACE_g(MP_FUNC, "%s tied to %s\n", GvNAME(handle), package);
  +	    MP_TRACE_r(MP_FUNC, "%s tied to %s\n", GvNAME(handle), package);
   	    return TRUE;
   	}
       }
  @@ -94,7 +94,7 @@
   {
   #ifdef MP_TRACE
       if (mg_find(TIEHANDLE_SV(handle), 'q')) {
  -        MP_TRACE_g(MP_FUNC, "untie *%s(0x%lx), REFCNT=%d\n",
  +        MP_TRACE_r(MP_FUNC, "untie *%s(0x%lx), REFCNT=%d\n",
                      GvNAME(handle), (unsigned long)handle,
                      SvREFCNT(TIEHANDLE_SV(handle)));
       }