Change 11329 by jhi@alpha on 2001/07/12 22:54:39
Subject: [PATCH 20010712.005] Re: Perl bug with "delete" on arrays
From: Abhijit Menon-Sen <[EMAIL PROTECTED]>
Date: Fri, 13 Jul 2001 03:04:25 +0530
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/av.c#61 edit
Differences ...
==== //depot/perl/av.c#61 (text) ====
Index: perl/av.c
--- perl/av.c.~1~ Thu Jul 12 17:00:05 2001
+++ perl/av.c Thu Jul 12 17:00:05 2001
@@ -765,6 +765,7 @@
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);
End of Patch.
