diff options
| author | Tim Jenness <tjenness@cpan.org> | 2001-01-29 11:48:55 -1000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-30 18:34:53 +0000 |
| commit | 18f7acf9faf31fce7abe270746233ffc605127e2 (patch) | |
| tree | 48fc4328ba8fe296c38b113c3799787aef269ada /dump.c | |
| parent | ef9edfd01e3c829c5c5b98c37662df9d1108dc9e (diff) | |
| download | perl-18f7acf9faf31fce7abe270746233ffc605127e2.tar.gz | |
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
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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,"); |