From: Tim Jenness <tjenness@cpan.org>
Date: Thu, 23 May 2002 10:00:00 +0000 (-1000)
Subject: dump.c recognizes CvLOCKED
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=662a8415e06f51848864e67b8bf26a899274884e;p=p5sagit%2Fp5-mst-13.2.git

dump.c recognizes CvLOCKED
Message-ID: <Pine.LNX.4.44.0205230959040.3222-100000@lapaki>

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

diff --git a/dump.c b/dump.c
index 7f82fad..7828e94 100644
--- a/dump.c
+++ b/dump.c
@@ -979,6 +979,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
 	if (SvCOMPILED(sv))	sv_catpv(d, "COMPILED,");
 	if (CvLVALUE(sv))	sv_catpv(d, "LVALUE,");
 	if (CvMETHOD(sv))	sv_catpv(d, "METHOD,");
+	if (CvLOCKED(sv))	sv_catpv(d, "LOCKED,");
 	break;
     case SVt_PVHV:
 	if (HvSHAREKEYS(sv))	sv_catpv(d, "SHAREKEYS,");