diff options
| author | John Tobey <jtobey@john-edwin-tobey.org> | 2000-10-22 13:10:43 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-22 21:24:11 +0000 |
| commit | de3f1649f32c093f94ded9e1969c53ca3166ec24 (patch) | |
| tree | 56b4e377c393f4746f1dc032104aa8846c83d199 /dump.c | |
| parent | eb3fce905f8436bbc374998ec8c7c34ce2b73e4e (diff) | |
| download | perl-de3f1649f32c093f94ded9e1969c53ca3166ec24.tar.gz | |
ripples from constsub patch
Message-Id: <m13nSOB-000FObC@feynman.localnet>
p4raw-id: //depot/perl@7403
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -822,6 +822,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo if (CvUNIQUE(sv)) sv_catpv(d, "UNIQUE,"); if (CvCLONE(sv)) sv_catpv(d, "CLONE,"); if (CvCLONED(sv)) sv_catpv(d, "CLONED,"); + if (CvCONST(sv)) sv_catpv(d, "CONST,"); if (CvNODEBUG(sv)) sv_catpv(d, "NODEBUG,"); if (SvCOMPILED(sv)) sv_catpv(d, "COMPILED,"); break; |