X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=hv.c;h=8b41f77f21d3a1b8efb19183753009967dff6685;hb=c067b4bea65bd7b97b0ae4f7b058dd94b44a4c48;hp=147efcc21ee8291888df95a476c2bddcde09436d;hpb=51a37f8016223ef5212790d4185d213114f2fd9b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/hv.c b/hv.c
index 147efcc..8b41f77 100644
--- a/hv.c
+++ b/hv.c
@@ -145,7 +145,7 @@ Perl_hek_dup(pTHX_ HEK *source, CLONE_PARAMS* param)
 }
 
 HE *
-Perl_he_dup(pTHX_ HE *e, bool shared, CLONE_PARAMS* param)
+Perl_he_dup(pTHX_ const HE *e, bool shared, CLONE_PARAMS* param)
 {
     HE *ret;
 
@@ -859,9 +859,7 @@ S_hv_magic_check(pTHX_ HV *hv, bool *needs_copy, bool *needs_store)
     while (mg) {
 	if (isUPPER(mg->mg_type)) {
 	    *needs_copy = TRUE;
-	    switch (mg->mg_type) {
-	    case PERL_MAGIC_tied:
-	    case PERL_MAGIC_sig:
+	    if (mg->mg_type == PERL_MAGIC_tied) {
 		*needs_store = FALSE;
 		return; /* We've set all there is to set. */
 	    }