diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-22 09:19:22 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-22 09:19:22 +0000 |
| commit | 6483fb35cd05d1e5ad8270387a883096b0ab1c38 (patch) | |
| tree | a7f6146ec4a7d33ed459127c44153f483784910e | |
| parent | a2e78f729490ba71b46db9a5852abba3389af433 (diff) | |
| download | perl-6483fb35cd05d1e5ad8270387a883096b0ab1c38.tar.gz | |
regexp refcount is an integer, not a pointer
p4raw-id: //depot/perl@30680
| -rw-r--r-- | dump.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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 */ |