From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 8 May 2005 19:45:30 +0000 (+0000)
Subject: The idea is that when you find something, you stop looking.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c0ff570e2e94389172145aa89c5c3840c2355167;p=p5sagit%2Fp5-mst-13.2.git

The idea is that when you find something, you stop looking.
( http://use.perl.org/comments.pl?sid=26369&cid=40183 )

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

diff --git a/sv.c b/sv.c
index 2c80f0c..69d50fd 100644
--- a/sv.c
+++ b/sv.c
@@ -267,8 +267,10 @@ S_del_sv(pTHX_ SV *p)
 	for (sva = PL_sv_arenaroot; sva; sva = (SV *) SvANY(sva)) {
 	    sv = sva + 1;
 	    svend = &sva[SvREFCNT(sva)];
-	    if (p >= sv && p < svend)
+	    if (p >= sv && p < svend) {
 		ok = 1;
+		break;
+	    }
 	}
 	if (!ok) {
 	    if (ckWARN_d(WARN_INTERNAL))