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