diff options
| author | Tim Jenness <tjenness@cpan.org> | 2002-05-23 00:00:00 -1000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-23 19:02:23 +0000 |
| commit | 662a8415e06f51848864e67b8bf26a899274884e (patch) | |
| tree | 234a42a6d5b4a8cd42c01c60fe09d6acce1b5c19 /dump.c | |
| parent | 2bad225e044a6e3cf063675adbf900894460d1ee (diff) | |
| download | perl-662a8415e06f51848864e67b8bf26a899274884e.tar.gz | |
dump.c recognizes CvLOCKED
Message-ID: <Pine.LNX.4.44.0205230959040.3222-100000@lapaki>
p4raw-id: //depot/perl@16754
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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,"); |