Change 34127: Also dump the SvPVX of PVFMs.

[Nicholas Clark]

Change 34127 by [EMAIL PROTECTED] on 2008/07/11 18:37:27

        Also dump the SvPVX of PVFMs.

Affected files ...

... //depot/perl/dump.c#308 edit

Differences ...

==== //depot/perl/dump.c#308 (text) ====
Index: perl/dump.c
--- perl/dump.c#307~34087~      2008-06-25 11:22:18.000000000 -0700
+++ perl/dump.c 2008-07-11 11:37:27.000000000 -0700
@@ -1608,7 +1608,7 @@
        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)) {
End of Patch.