diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-01-15 18:33:02 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-01-15 18:33:02 +0000 |
| commit | de6bd8a1ed4db086fc45ac2ccbc4d4951a347d77 (patch) | |
| tree | 60f9e4cd3d9815be7d1949dd48d9bd817caaedcd /dump.c | |
| parent | 3e7dd34d07ec3fbcf1e108a3270d6009e068e8eb (diff) | |
| download | perl-de6bd8a1ed4db086fc45ac2ccbc4d4951a347d77.tar.gz | |
make Dump display the SVf_BREAK flag
p4raw-id: //depot/perl@29839
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -1390,6 +1390,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo if (flags & SVf_OOK) sv_catpv(d, "OOK,"); if (flags & SVf_FAKE) sv_catpv(d, "FAKE,"); if (flags & SVf_READONLY) sv_catpv(d, "READONLY,"); + if (flags & SVf_BREAK) sv_catpv(d, "BREAK,"); if (flags & SVf_AMAGIC) sv_catpv(d, "OVERLOAD,"); if (flags & SVp_IOK) sv_catpv(d, "pIOK,"); |