diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-02-20 14:01:59 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-02-20 14:01:59 +0000 |
| commit | 8a27f21b702728eba502a2ab9428475e0535d96d (patch) | |
| tree | f0d04a342d8ef41f9591d224be757001f9e9e0d9 /dump.c | |
| parent | d04ba5897acce6425e3b231fbf36336ea42f8165 (diff) | |
| download | perl-8a27f21b702728eba502a2ab9428475e0535d96d.tar.gz | |
Fix sv_dump to dump formats without the (non-existent) NVX.
p4raw-id: //depot/perl@27245
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1303,7 +1303,8 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo #endif PerlIO_putc(file, '\n'); } - if ((type >= SVt_PVNV && type != SVt_PVAV && type != SVt_PVHV) + if ((type >= SVt_PVNV && type != SVt_PVAV && type != SVt_PVHV + && type != SVt_PVFM) || type == SVt_NV) { STORE_NUMERIC_LOCAL_SET_STANDARD(); /* %Vg doesn't work? --jhi */ |