Author: stas
Date: Fri Jul 8 12:04:13 2005
New Revision: 209855
URL: http://svn.apache.org/viewcvs?rev=209855&view=rev
Log:
fix the magic type logging
Modified:
perl/modperl/trunk/src/modules/perl/modperl_common_util.c
Modified: perl/modperl/trunk/src/modules/perl/modperl_common_util.c
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/src/modules/perl/modperl_common_util.c?rev=209855&r1=209854&r2=209855&view=diff
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_common_util.c (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_common_util.c Fri Jul 8
12:04:13 2005
@@ -95,7 +95,7 @@
return mg->mg_obj;
}
else {
- Perl_warn(aTHX_ "Not a tied hash: (magic=%c)", mg);
+ Perl_warn(aTHX_ "Not a tied hash: (magic=%c)",
mg->mg_type);
}
}
else {
