diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-06-21 18:18:33 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-06-22 23:16:40 -0700 |
| commit | 5a3c73497c32449b69801228df80f2b7aafce13b (patch) | |
| tree | 05f45c5392dc06b5fee225810c282c978e0a10bf /dump.c | |
| parent | 66379c06cdfaf5fb5c63d8518f0a1e65d80b1072 (diff) | |
| download | perl-5a3c73497c32449b69801228df80f2b7aafce13b.tar.gz | |
dump.c: Dump PV fields of SVt_PVIOs
Yes, these can hold PVs when source filters are involved.
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1660,7 +1660,8 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo return; } - if (type <= SVt_PVLV && !isGV_with_GP(sv)) { + if ((type <= SVt_PVLV && !isGV_with_GP(sv)) + || (type == SVt_PVIO && IoFLAGS(sv) & IOf_FAKE_DIRP)) { const bool re = isREGEXP(sv); const char * const ptr = re ? RX_WRAPPED((REGEXP*)sv) : SvPVX_const(sv); |