This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make Dump display the SVf_BREAK flag
authorDave Mitchell <davem@fdisolutions.com>
Mon, 15 Jan 2007 18:33:02 +0000 (18:33 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Mon, 15 Jan 2007 18:33:02 +0000 (18:33 +0000)
p4raw-id: //depot/perl@29839

dump.c

diff --git a/dump.c b/dump.c
index ea81ce8..b8b15de 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -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_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,");
 
     if (flags & SVf_AMAGIC)    sv_catpv(d, "OVERLOAD,");
     if (flags & SVp_IOK)       sv_catpv(d, "pIOK,");