From: Abhijit Menon-Sen <ams@wiw.org>
Date: Fri, 13 Jul 2001 03:04:25 +0000 (+0530)
Subject: Re: Perl bug with "delete" on arrays
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d9c632885426f166b78d9000b0c7670e7cab6f2a;p=p5sagit%2Fp5-mst-13.2.git

Re: Perl bug with "delete" on arrays
Message-ID: <20010713030425.A5669@lustre.dyn.wiw.org>

p4raw-id: //depot/perl@11329
---

diff --git a/av.c b/av.c
index 456a21e..8a4f855 100644
--- a/av.c
+++ b/av.c
@@ -765,6 +765,7 @@ Perl_av_delete(pTHX_ AV *av, I32 key, I32 flags)
     else {
 	sv = AvARRAY(av)[key];
 	if (key == AvFILLp(av)) {
+	    AvARRAY(av)[key] = &PL_sv_undef;
 	    do {
 		AvFILLp(av)--;
 	    } while (--key >= 0 && AvARRAY(av)[key] == &PL_sv_undef);