From: Tim Jenness <tjenness@cpan.org>
Date: Mon, 29 Jan 2001 21:48:55 +0000 (-1000)
Subject: Add missing CV flags to dump.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=18f7acf9faf31fce7abe270746233ffc605127e2;p=p5sagit%2Fp5-mst-13.2.git

Add missing CV flags to dump.c
Message-ID: <Pine.LNX.4.30.0101292144280.14179-100000@lapaki.jach.hawaii.edu>

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

diff --git a/dump.c b/dump.c
index 5bc7349..6805729 100644
--- a/dump.c
+++ b/dump.c
@@ -823,6 +823,8 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
 	if (CvCONST(sv))	sv_catpv(d, "CONST,");
 	if (CvNODEBUG(sv))	sv_catpv(d, "NODEBUG,");
 	if (SvCOMPILED(sv))	sv_catpv(d, "COMPILED,");
+	if (CvLVALUE(sv))	sv_catpv(d, "LVALUE,");
+	if (CvMETHOD(sv))	sv_catpv(d, "METHOD,");
 	break;
     case SVt_PVHV:
 	if (HvSHAREKEYS(sv))	sv_catpv(d, "SHAREKEYS,");