diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-07-11 18:37:27 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-07-11 18:37:27 +0000 |
| commit | a49b46c637e9dbdc0b6d3f7b8eef535cb1630908 (patch) | |
| tree | 9f460a967512cda3b81908f37c33f51231ba2d8e /dump.c | |
| parent | d2821e7281f778ddf755abc7b47fcaaf73530b23 (diff) | |
| download | perl-a49b46c637e9dbdc0b6d3f7b8eef535cb1630908.tar.gz | |
Also dump the SvPVX of PVFMs.
p4raw-id: //depot/perl@34127
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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)) { |