diff options
| author | David Mitchell <davem@iabyn.com> | 2011-01-30 15:00:27 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2011-01-30 23:58:26 +0000 |
| commit | 206ee25612c22f43a80e087b78921f35a28ad8c6 (patch) | |
| tree | 9b92bf772bfa3709425f2edb8418227fece41365 /dump.c | |
| parent | e0bbf36274daaaaa2292316e1a55c396dde3ad26 (diff) | |
| download | perl-206ee25612c22f43a80e087b78921f35a28ad8c6.tar.gz | |
Perl_do_sv_dump: move stub REGEXP code
SVt_REGEXP was in the 'general SV fields' section; move it to the
'type-specific SV fields' section. Not that it does anything yet.
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 13 |
1 files changed, 6 insertions, 7 deletions
@@ -1755,13 +1755,6 @@ 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 regexp *)SvANY(sv))->xrx_regexp)); - */ - } - if (type >= SVt_PVMG) { if (type == SVt_PVMG && SvPAD_OUR(sv)) { HV * const ost = SvOURSTASH(sv); @@ -2137,6 +2130,12 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo Perl_dump_indent(aTHX_ level, file, " TYPE = '\\%o'\n", IoTYPE(sv)); Perl_dump_indent(aTHX_ level, file, " FLAGS = 0x%"UVxf"\n", (UV)IoFLAGS(sv)); break; + case SVt_REGEXP: + /* FIXME dumping + Perl_dump_indent(aTHX_ level, file, " REGEXP = 0x%"UVxf"\n", + PTR2UV(((struct regexp *)SvANY(sv))->xrx_regexp)); + */ + break; } SvREFCNT_dec(d); } |