From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Fri, 21 Dec 2001 11:15:38 +0000 (+0100)
Subject: [ PATCH ] Smoke 13820 /pro/3gl/CPAN/perl-current
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=03fed38d20c6ad958c9c8a42fd30941b5768a7c8;p=p5sagit%2Fp5-mst-13.2.git

[ PATCH ] Smoke 13820 /pro/3gl/CPAN/perl-current
Message-Id: <20011221104035.4B4F.H.M.BRAND@hccnet.nl>

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

diff --git a/hv.c b/hv.c
index d0859d8..a5884e5 100644
--- a/hv.c
+++ b/hv.c
@@ -893,19 +893,18 @@ Perl_hv_delete_ent(pTHX_ HV *hv, SV *keysv, I32 flags, U32 hash)
 	{
 	    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);