From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 28 Dec 2007 11:27:10 +0000 (+0000)
Subject: Dump the REGEXP member of SVt_REGEXP.
X-Git-Tag: accepted/trunk/20130322.191538~13911
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=f19b4ba939a9fcdd83b091f4baa1c12b87ff9886;p=platform%2Fupstream%2Fperl.git

Dump the REGEXP member of SVt_REGEXP.

p4raw-id: //depot/perl@32752
---

diff --git a/dump.c b/dump.c
index 42cacb8..47a5285 100644
--- 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);
diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t
index 5700a0b..2c4cfbf 100644
--- a/ext/Devel/Peek/t/Peek.t
+++ b/ext/Devel/Peek/t/Peek.t
@@ -287,7 +287,8 @@ do_test(15,
     FLAGS = \\(\\)
     IV = 0
     NV = 0
-    PV = 0');
+    PV = 0
+    REGEXP = $ADDR');
 } else {
 do_test(15,
         qr(tic),