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 2005/07/08 21:04:14 UTC

svn commit: r209855 - /perl/modperl/trunk/src/modules/perl/modperl_common_util.c

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 {