diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-07-12 07:40:33 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-07-12 07:40:33 +0000 |
| commit | 30ec677dd4d12a9c099bac3f654b308d387386e9 (patch) | |
| tree | a1d4bf654d586b6156b588fc9a0e1e74a0271d7c /dump.c | |
| parent | bfe27a58755fd70d150ce6080e7cfdd2f87f2358 (diff) | |
| download | perl-30ec677dd4d12a9c099bac3f654b308d387386e9.tar.gz | |
PVFMs don't need to access the IVX any more. (as of change 32836, which
re-implemented SvOOK() to avoid using it)
p4raw-id: //depot/perl@34133
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1563,7 +1563,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo return; } if ((type >= SVt_PVIV && type != SVt_PVAV && type != SVt_PVHV - && type != SVt_PVCV && !isGV_with_GP(sv)) + && type != SVt_PVCV && !isGV_with_GP(sv) && type != SVt_PVFM) || (type == SVt_IV && !SvROK(sv))) { if (SvIsUV(sv) #ifdef PERL_OLD_COPY_ON_WRITE |