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 (file)
--- 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))