diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-02 13:47:42 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-02 13:47:42 +0000 |
| commit | 288b8c02c5ee89a2978a1b9e56ed255c53beb793 (patch) | |
| tree | 6ae37841e6bccf1a6b817df3291f10c4e3b1783d /dump.c | |
| parent | 84679df57ca0626f7fb35fc3038e2e142b97f8a4 (diff) | |
| download | perl-288b8c02c5ee89a2978a1b9e56ed255c53beb793.tar.gz | |
Make struct regexp the body of SVt_REGEXP SVs, REGEXPs become SVs,
and regexp reference counting is via the regular SV reference counting.
This was not as easy at it looks.
p4raw-id: //depot/perl@32804
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1592,8 +1592,10 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo Perl_dump_indent(aTHX_ level, file, " PV = 0\n"); } if (type == SVt_REGEXP) { + /* FIXME dumping Perl_dump_indent(aTHX_ level, file, " REGEXP = 0x%"UVxf"\n", - PTR2UV(((struct xregexp *)SvANY(sv))->xrx_regexp)); + PTR2UV(((struct regexp *)SvANY(sv))->xrx_regexp)); + */ } if (type >= SVt_PVMG) { if (type == SVt_PVMG && SvPAD_OUR(sv)) { |