diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 19:33:36 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 19:33:36 +0000 |
| commit | 810b8aa5436a934d1a2016588cbacf9b55463c40 (patch) | |
| tree | eabed90b74c878cc77d9ec21c13c0263fcc798a1 /dump.c | |
| parent | 885f9e59968d66740b5c621739ead374e8e37a2b (diff) | |
| download | perl-810b8aa5436a934d1a2016588cbacf9b55463c40.tar.gz | |
"weak" references internals, still needs perlguts documentation
(somewhat modified version of patch suggested by Tuomas J. Lukka
<lukka@fas.harvard.edu>)
p4raw-id: //depot/perl@3385
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -638,6 +638,7 @@ do_magic_dump(I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool du #endif else if (v == &PL_vtbl_amagic) s = "amagic"; else if (v == &PL_vtbl_amagicelem) s = "amagicelem"; + else if (v == &PL_vtbl_backref) s = "backref"; if (s) dump_indent(level, file, " MG_VIRTUAL = &PL_vtbl_%s\n", s); else @@ -766,7 +767,10 @@ do_sv_dump(I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, if (flags & SVf_IOK) sv_catpv(d, "IOK,"); if (flags & SVf_NOK) sv_catpv(d, "NOK,"); if (flags & SVf_POK) sv_catpv(d, "POK,"); - if (flags & SVf_ROK) sv_catpv(d, "ROK,"); + if (flags & SVf_ROK) { + sv_catpv(d, "ROK,"); + if (SvWEAKREF(sv)) sv_catpv(d, "WEAKREF,"); + } if (flags & SVf_OOK) sv_catpv(d, "OOK,"); if (flags & SVf_FAKE) sv_catpv(d, "FAKE,"); if (flags & SVf_READONLY) sv_catpv(d, "READONLY,"); |