diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2001-07-13 08:34:25 +0530 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-12 22:54:39 +0000 |
| commit | d9c632885426f166b78d9000b0c7670e7cab6f2a (patch) | |
| tree | 7a7bbe23a6c16bec504e2151ff6cc09ddd93dc79 /av.c | |
| parent | 5e2fdd206cb74b2c46df0f9af010e310d95829a8 (diff) | |
| download | perl-d9c632885426f166b78d9000b0c7670e7cab6f2a.tar.gz | |
Re: Perl bug with "delete" on arrays
Message-ID: <20010713030425.A5669@lustre.dyn.wiw.org>
p4raw-id: //depot/perl@11329
Diffstat (limited to 'av.c')
| -rw-r--r-- | av.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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); |