diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-02-22 18:21:30 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-02-22 18:21:30 +0000 |
| commit | b5b10606725dc42adb2909e77c05473776295195 (patch) | |
| tree | ef8ef4bcf410f47211b1780ed640f3fb12afcb70 | |
| parent | e36cc0fbcf17e559bf3f189f3b67eca0ac6dc543 (diff) | |
| download | perl-b5b10606725dc42adb2909e77c05473776295195.tar.gz | |
sv_dump should report the PV for PVGVs, as it can get set.
(Typeglobs stringify via a call to GET magic, which uses the PV slot.)
p4raw-id: //depot/perl@27269
| -rw-r--r-- | dump.c | 2 | ||||
| -rw-r--r-- | ext/Devel/Peek/t/Peek.t | 1 |
2 files changed, 2 insertions, 1 deletions
@@ -1324,7 +1324,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo SvREFCNT_dec(d); return; } - if (type <= SVt_PVLV && type != SVt_PVGV) { + if (type <= SVt_PVLV) { if (SvPVX_const(sv)) { Perl_dump_indent(aTHX_ level, file," PV = 0x%"UVxf" ", PTR2UV(SvPVX_const(sv))); if (SvOOK(sv)) diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t index 0f4fbb8966..b8ee13a4cb 100644 --- a/ext/Devel/Peek/t/Peek.t +++ b/ext/Devel/Peek/t/Peek.t @@ -308,6 +308,7 @@ do_test(17, FLAGS = \\(GMG,SMG,MULTI(?:,IN_PAD)?\\) IV = 0 NV = 0 + PV = 0 MAGIC = $ADDR MG_VIRTUAL = &PL_vtbl_glob MG_TYPE = PERL_MAGIC_glob\(\*\) |