diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-05-23 21:01:37 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-06-11 09:12:37 +0200 |
| commit | 0a0c4b76b41cff6aaa3670fa19292a3e9248e69e (patch) | |
| tree | 9d7bc74c9942e6fe8f67c2667522f3041ea31a02 /dump.c | |
| parent | a672f009fb8f223715e97dfcac7fb84e4bb2904b (diff) | |
| download | perl-0a0c4b76b41cff6aaa3670fa19292a3e9248e69e.tar.gz | |
Perl_do_sv_dump() shouldn't show "IV" for a FBM, as it's not valid.
The memory is used for part of the FBM state.
Tidy the order of conditions in the if() determining whether the IV/UV should
be shown.
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1708,8 +1708,8 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo /* Dump general SV fields */ if ((type >= SVt_PVIV && type != SVt_PVAV && type != SVt_PVHV - && type != SVt_PVCV && !isGV_with_GP(sv) && type != SVt_PVFM - && type != SVt_PVIO && type != SVt_REGEXP) + && type != SVt_PVCV && type != SVt_PVFM && type != SVt_PVIO + && type != SVt_REGEXP && !isGV_with_GP(sv) && !SvVALID(sv)) || (type == SVt_IV && !SvROK(sv))) { if (SvIsUV(sv) #ifdef PERL_OLD_COPY_ON_WRITE |