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 {