diff options
| author | Salvador Fandiño <sfandino@yahoo.com> | 2002-11-30 17:24:09 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-02-16 13:55:10 +0000 |
| commit | 06492da604676b8820ba5623ac813ceec4f48731 (patch) | |
| tree | 51a6bda59973daccf9c0377e9639e90650598088 /dump.c | |
| parent | ed25273444c5542e4865fbe422e026b78ba33b80 (diff) | |
| download | perl-06492da604676b8820ba5623ac813ceec4f48731.tar.gz | |
add support for assertions. Updated form of:
Subject: Re: Did the assertion patch/feature submission get overlooked?
Message-ID: <3DE8F439.50402@yahoo.com>
p4raw-id: //depot/perl@18727
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -1008,6 +1008,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo if (CvMETHOD(sv)) sv_catpv(d, "METHOD,"); if (CvLOCKED(sv)) sv_catpv(d, "LOCKED,"); if (CvWEAKOUTSIDE(sv)) sv_catpv(d, "WEAKOUTSIDE,"); + if (CvASSERTION(sv)) sv_catpv(d, "ASSERTION,"); break; case SVt_PVHV: if (HvSHAREKEYS(sv)) sv_catpv(d, "SHAREKEYS,"); |