You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2004/04/02 03:38:13 UTC
cvs commit: modperl-2.0/src/modules/perl modperl_io.c
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)));
}