p4raw-id: //depot/perl@32752
else
Perl_dump_indent(aTHX_ level, file, " PV = 0\n");
}
+ if (type == SVt_REGEXP) {
+ Perl_dump_indent(aTHX_ level, file, " REGEXP = 0x%"UVxf"\n",
+ PTR2UV(((struct xregexp *)SvANY(sv))->xrx_regexp));
+ }
if (type >= SVt_PVMG) {
if (type == SVt_PVMG && SvPAD_OUR(sv)) {
HV * const ost = SvOURSTASH(sv);
FLAGS = \\(\\)
IV = 0
NV = 0
- PV = 0');
+ PV = 0
+ REGEXP = $ADDR');
} else {
do_test(15,
qr(tic),