diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-11-18 16:53:12 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-11-19 09:51:02 +0000 |
| commit | 3cf51070223b095664012011bc367370eda3074c (patch) | |
| tree | bad6030e58677ef117a2fe7f3cf37e69e26972e6 /dump.c | |
| parent | 580561a3a5dd3bfef87627781ac362004e3d87b5 (diff) | |
| download | perl-3cf51070223b095664012011bc367370eda3074c.tar.gz | |
PVIOs don't use the SvIVX slot.
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1587,7 +1587,8 @@ 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_PVFM) + && type != SVt_PVCV && !isGV_with_GP(sv) && type != SVt_PVFM + && type != SVt_PVIO) || (type == SVt_IV && !SvROK(sv))) { if (SvIsUV(sv) #ifdef PERL_OLD_COPY_ON_WRITE |