Change 34525 by [EMAIL PROTECTED] on 2008/10/20 13:44:44
Integrate:
[ 34127]
Also dump the SvPVX of PVFMs.
Affected files ...
... //depot/maint-5.10/perl/dump.c#10 integrate
Differences ...
==== //depot/maint-5.10/perl/dump.c#10 (text) ====
Index: perl/dump.c
--- perl/dump.c#9~34265~ 2008-09-04 07:27:46.000000000 -0700
+++ perl/dump.c 2008-10-20 06:44:44.000000000 -0700
@@ -1576,7 +1576,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)) {
Perl_dump_indent(aTHX_ level, file," PV = 0x%"UVxf" ",
PTR2UV(SvPVX_const(sv)));
if (SvOOK(sv))
End of Patch.
