From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 11 Jul 2008 18:37:27 +0000 (+0000)
Subject: Also dump the SvPVX of PVFMs.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a49b46c637e9dbdc0b6d3f7b8eef535cb1630908;p=p5sagit%2Fp5-mst-13.2.git

Also dump the SvPVX of PVFMs.

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

diff --git a/dump.c b/dump.c
index 456a130..2696b9b 100644
--- a/dump.c
+++ b/dump.c
@@ -1608,7 +1608,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
 	SvREFCNT_dec(d);
 	return;
     }
-    if (type <= SVt_PVLV && !isGV_with_GP(sv)) {
+    if ((type <= SVt_PVLV && !isGV_with_GP(sv)) || type == SVt_PVFM) {
 	if (SvPVX_const(sv)) {
 	    STRLEN delta;
 	    if (SvOOK(sv)) {