From f19b4ba939a9fcdd83b091f4baa1c12b87ff9886 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 28 Dec 2007 11:27:10 +0000
Subject: [PATCH] Dump the REGEXP member of SVt_REGEXP.

p4raw-id: //depot/perl@32752
---
 dump.c                  | 4 ++++
 ext/Devel/Peek/t/Peek.t | 3 ++-
 2 files changed, 6 insertions(+), 1 deletion(-)

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),
-- 
2.7.4