Teeny optimization in S_hv_magic_check

Message-ID: <20050524164115.GA12027@petdance.com>

p4raw-id: //depot/perl@24626

1 files changed, 1 insertions, 0 deletions

diff --git a/hv.c b/hv.c
index fe7e3885c6..21e7ac3a1d 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;