X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=dump.c;h=2285cca42985fd2b3019959fef58cbce9adb3bb1;hb=86f5593612e0fa4d1eddfb78098731af1f9f4548;hp=3acbc4246528c2f0c8e46a5122f60bb5306f8296;hpb=e33435896f177fccb609ddddaf85afbfdc7a4e5f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/dump.c b/dump.c
index 3acbc42..2285cca 100644
--- a/dump.c
+++ b/dump.c
@@ -1439,6 +1439,15 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
 	    if (hvname)
 		Perl_dump_indent(aTHX_ level, file, "  NAME = \"%s\"\n", hvname);
 	}
+	if (SvOOK(sv)) {
+	    AV *backrefs = *Perl_hv_backreferences_p(aTHX_ (HV*)sv);
+	    if (backrefs) {
+		Perl_dump_indent(aTHX_ level, file, "  BACKREFS = 0x%"UVxf"\n",
+				 PTR2UV(backrefs));
+		do_sv_dump(level+1, file, (SV*)backrefs, nest+1, maxnest,
+			   dumpops, pvlim);
+	    }
+	}
 	if (nest < maxnest && !HvEITER_get(sv)) { /* Try to preserve iterator */
 	    HE *he;
 	    HV * const hv = (HV*)sv;