diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2002-03-10 21:01:39 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-11 03:09:16 +0000 |
| commit | 9014280dc8264580f076d4325a59f22a11592058 (patch) | |
| tree | b30d0236f820bf904e62ecea2b10ab66ceb4f506 /av.c | |
| parent | 1aebe30af2c0b05c78754c84317e50a47a2d0995 (diff) | |
| download | perl-9014280dc8264580f076d4325a59f22a11592058.tar.gz | |
more warnings tidyup
From: "Paul Marquess" <paul_marquess@yahoo.co.uk>
Message-ID: <AIEAJICLCBDNAAOLLOKLMEEGDPAA.paul_marquess@yahoo.co.uk>
p4raw-id: //depot/perl@15155
Diffstat (limited to 'av.c')
| -rw-r--r-- | av.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -30,7 +30,7 @@ Perl_av_reify(pTHX_ AV *av) return; #ifdef DEBUGGING if (SvTIED_mg((SV*)av, PERL_MAGIC_tied) && ckWARN_d(WARN_DEBUGGING)) - Perl_warner(aTHX_ WARN_DEBUGGING, "av_reify called on tied array"); + Perl_warner(aTHX_ packWARN(WARN_DEBUGGING), "av_reify called on tied array"); #endif key = AvMAX(av) + 1; while (key > AvFILLp(av) + 1) @@ -395,7 +395,7 @@ Perl_av_clear(pTHX_ register AV *av) #ifdef DEBUGGING if (SvREFCNT(av) == 0 && ckWARN_d(WARN_DEBUGGING)) { - Perl_warner(aTHX_ WARN_DEBUGGING, "Attempt to clear deleted array"); + Perl_warner(aTHX_ packWARN(WARN_DEBUGGING), "Attempt to clear deleted array"); } #endif if (!av) |