From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 15 Jan 2007 18:33:02 +0000 (+0000)
Subject: make Dump display the SVf_BREAK flag
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=de6bd8a1ed4db086fc45ac2ccbc4d4951a347d77;p=p5sagit%2Fp5-mst-13.2.git

make Dump display the SVf_BREAK flag

p4raw-id: //depot/perl@29839
---

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