fixup named->namepv should be saveshared

Author: leonerd

op.c

@@ -1232,7 +1232,7 @@ Perl_op_clear(pTHX_ OP *o)
             if(aux->named) {
                 for(size_t namedix = 0; namedix < aux->n_named; namedix++) {
                     struct op_multiparam_named_aux *named = aux->named + namedix;
-                    Safefree(named->namepv);
+                    PerlMemShared_free((void *)named->namepv);
                 }
                 PerlMemShared_free(aux->named);
             }
@@ -17214,7 +17214,7 @@ Perl_subsignature_finish(pTHX)
         struct op_multiparam_named_aux *named = aux->named + namedix;
         namedix++;
 
-        named->namepv   = savepv(namepv);
+        named->namepv   = savesharedpv(namepv);
         named->namelen  = namelen;
         named->namehash = namehash;
         named->padix    = param->padix;