Change 13829 by jhi@alpha on 2001/12/21 13:39:06
Subject: [ PATCH ] Smoke 13820 /pro/3gl/CPAN/perl-current
From: "H.Merijn Brand" <[EMAIL PROTECTED]>
Date: Fri, 21 Dec 2001 11:15:38 +0100
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/hv.c#96 edit
Differences ...
==== //depot/perl/hv.c#96 (text) ====
Index: perl/hv.c
--- perl/hv.c.~1~ Fri Dec 21 06:45:05 2001
+++ perl/hv.c Fri Dec 21 06:45:05 2001
@@ -893,19 +893,18 @@
{
if (SvREADONLY(hv))
return Nullsv; /* if still SvREADONLY, leave it deleted. */
- else {
- // okay, really delete the placeholder.
- *oentry = HeNEXT(entry);
- if (i && !*oentry)
- xhv->xhv_fill--; /* HvFILL(hv)-- */
- if (entry == xhv->xhv_eiter /* HvEITER(hv) */)
- HvLAZYDEL_on(hv);
- else
- hv_free_ent(hv, entry);
- xhv->xhv_keys--; /* HvKEYS(hv)-- */
- xhv->xhv_placeholders--;
- return Nullsv;
- }
+
+ /* okay, really delete the placeholder. */
+ *oentry = HeNEXT(entry);
+ if (i && !*oentry)
+ xhv->xhv_fill--; /* HvFILL(hv)-- */
+ if (entry == xhv->xhv_eiter /* HvEITER(hv) */)
+ HvLAZYDEL_on(hv);
+ else
+ hv_free_ent(hv, entry);
+ xhv->xhv_keys--; /* HvKEYS(hv)-- */
+ xhv->xhv_placeholders--;
+ return Nullsv;
}
else if (SvREADONLY(hv) && HeVAL(entry) && SvREADONLY(HeVAL(entry))) {
Perl_hv_notallowed(aTHX_ is_utf8, key, klen, keysave);
End of Patch.
