From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 22 Mar 2007 09:19:22 +0000 (+0000)
Subject: regexp refcount is an integer, not a pointer
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6483fb35cd05d1e5ad8270387a883096b0ab1c38;p=p5sagit%2Fp5-mst-13.2.git

regexp refcount is an integer, not a pointer

p4raw-id: //depot/perl@30680
---

diff --git a/dump.c b/dump.c
index e9fa1ae..544f9af 100644
--- a/dump.c
+++ b/dump.c
@@ -1273,8 +1273,9 @@ Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, const MAGIC *mg, I32 nest, I32
                     ( PERL_PV_PRETTY_QUOTE | PERL_PV_ESCAPE_RE | PERL_PV_PRETTY_ELIPSES |
                     ((re->extflags & RXf_UTF8) ? PERL_PV_ESCAPE_UNI : 0))
                 );
-                Perl_dump_indent(aTHX_ level+1, file, "    PAT = %s\n", s);    
-                Perl_dump_indent(aTHX_ level+1, file, "    REFCNT = %"IVdf"\n", (IV*)re->refcnt);
+		Perl_dump_indent(aTHX_ level+1, file, "    PAT = %s\n", s);
+		Perl_dump_indent(aTHX_ level+1, file, "    REFCNT = %"IVdf"\n",
+			(IV)re->refcnt);
             }
             if (mg->mg_flags & MGf_REFCOUNTED)
 		do_sv_dump(level+2, file, mg->mg_obj, nest+1, maxnest, dumpops, pvlim); /* MG is already +1 */