From: Andy Lester <andy@petdance.com>
Date: Tue, 24 May 2005 11:41:15 +0000 (-0500)
Subject: Teeny optimization in S_hv_magic_check
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4ab2a30b7819ac6edb69c69e044edaf44dd8119f;p=p5sagit%2Fp5-mst-13.2.git

Teeny optimization in S_hv_magic_check
Message-ID: <20050524164115.GA12027@petdance.com>

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

diff --git a/hv.c b/hv.c
index fe7e388..21e7ac3 100644
--- a/hv.c
+++ b/hv.c
@@ -828,6 +828,7 @@ S_hv_magic_check(pTHX_ HV *hv, bool *needs_copy, bool *needs_store)
 	    case PERL_MAGIC_tied:
 	    case PERL_MAGIC_sig:
 		*needs_store = FALSE;
+		return; /* We've set all there is to set. */
 	    }
 	}
 	mg = mg->mg_moremagic;