Dump the REGEXP member of SVt_REGEXP.

p4raw-id: //depot/perl@32752

1 files changed, 4 insertions, 0 deletions

diff --git a/dump.c b/dump.c
index 42cacb81a9..47a5285b3d 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);