Dump the REGEXP member of SVt_REGEXP.
Nicholas Clark [Fri, 28 Dec 2007 11:27:10 +0000 (11:27 +0000)]
p4raw-id: //depot/perl@32752

dump.c
ext/Devel/Peek/t/Peek.t

diff --git a/dump.c b/dump.c
index 42cacb8..47a5285 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -1590,6 +1590,10 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
        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);
index 5700a0b..2c4cfbf 100644 (file)
@@ -287,7 +287,8 @@ do_test(15,
     FLAGS = \\(\\)
     IV = 0
     NV = 0
-    PV = 0');
+    PV = 0
+    REGEXP = $ADDR');
 } else {
 do_test(15,
         qr(tic),