diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 1999-06-27 00:19:52 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-07 09:45:43 +0000 |
| commit | 0453d815b8a74697ff1e5451c27aba2fe537b8e0 (patch) | |
| tree | b6275867deb61ba13fb0e665d516f115dd9f1d69 /av.c | |
| parent | 69e210baba6414aba2758bc791a6dc3e9e167d9d (diff) | |
| download | perl-0453d815b8a74697ff1e5451c27aba2fe537b8e0.tar.gz | |
lexical warnings update (warning.t fails one test
due to leaked scalar, investigation pending)
Message-ID: <5104D4DBC598D211B5FE0000F8FE7EB29C6C8E@mbtlipnt02.btlabs.bt.co.uk>
Subject: [PATCH 5.005_57] Lexical Warnings - mandatory warning are now default warnings
p4raw-id: //depot/perl@3640
Diffstat (limited to 'av.c')
| -rw-r--r-- | av.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -25,8 +25,8 @@ Perl_av_reify(pTHX_ AV *av) if (AvREAL(av)) return; #ifdef DEBUGGING - if (SvTIED_mg((SV*)av, 'P')) - Perl_warn(aTHX_ "av_reify called on tied array"); + if (SvTIED_mg((SV*)av, 'P') && ckWARN_d(WARN_DEBUGGING)) + Perl_warner(aTHX_ WARN_DEBUGGING, "av_reify called on tied array"); #endif key = AvMAX(av) + 1; while (key > AvFILLp(av) + 1) @@ -325,8 +325,8 @@ Perl_av_clear(pTHX_ register AV *av) SV** ary; #ifdef DEBUGGING - if (SvREFCNT(av) <= 0) { - Perl_warn(aTHX_ "Attempt to clear deleted array"); + if (SvREFCNT(av) <= 0 && ckWARN_d(WARN_DEBUGGING)) { + Perl_warner(aTHX_ WARN_DEBUGGING, "Attempt to clear deleted array"); } #endif if (!av) |