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 {


Reply via email to