From d9c632885426f166b78d9000b0c7670e7cab6f2a Mon Sep 17 00:00:00 2001 From: Abhijit Menon-Sen Date: Fri, 13 Jul 2001 08:34:25 +0530 Subject: Re: Perl bug with "delete" on arrays Message-ID: <20010713030425.A5669@lustre.dyn.wiw.org> p4raw-id: //depot/perl@11329 --- av.c | 1 + 1 file changed, 1 insertion(+) (limited to 'av.c') diff --git a/av.c b/av.c index 456a21e02d..8a4f855645 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); -- cgit v1.2.1