fixup permit unnamed slurpy mixed with named params

Author: leonerd

op.c

@@ -17125,10 +17125,6 @@ Perl_subsignature_finish(pTHX)
     aux->slurpy       = signature->slurpy;
     aux->slurpy_padix = 0;
 
-    if(signature->named_params && !aux->slurpy)
-        // maybe argcheck should do this?
-        aux->slurpy = '%';
-
     OP *multiparam = newUNOP_AUX(OP_MULTIPARAM, 0, NULL, (UNOP_AUX_item *)aux);
 
     sigops = op_append_elem(OP_LINESEQ, sigops,

pp.c

@@ -7901,7 +7901,9 @@ PP(pp_multiparam)
     assert(!SvMAGICAL(defav));
     size_t argc = (AvFILLp(defav) + 1);
 
-    S_check_argc(aTHX_ argc, nparams, nparams - aux->min_args, slurpy);
+    S_check_argc(aTHX_ argc, nparams, nparams - aux->min_args,
+            /* if there's no slurpy but we have named params, claim it to be '%' for argcheck */
+            slurpy ? slurpy : aux->n_named ? '%' : 0);
 
     size_t parami;
     for(parami = 0; parami < nparams; parami++) {
@@ -8026,6 +8028,9 @@ PP(pp_multiparam)
                 SvPADSTALE_off(*padentry);
                 SvSetMagicSV(*padentry, val);
             }
+            else if(slurpy && !slurpypad) {
+                /* unnamed slurpy just ignores extra values */
+            }
             else if(slurpypad && slurpy == '@') {
                 AV *av = (AV *)*slurpypad;
 

t/op/signatures.t

@@ -956,6 +956,15 @@ is eval("tnamed05(w => 'W', x => 'X', y => 'Y', z => 'Z')"), "x=X y=Y w=W,z=Z";
 is eval("tnamed05(w => 'W', x => 'X', y => 'Y', 'single')"), undef;
 like $@, qr{^Odd name/value argument for subroutine 'main::tnamed05' at };
 
+sub tnamed06 (:$x, :$y, @) { "x=$x y=$y"; }
+is prototype(\&tnamed06), undef;
+is eval("tnamed06(w => 'W', x => 'X', y => 'Y', z => 'Z')"), "x=X y=Y";
+is eval("tnamed06(w => 'W', x => 'X', y => 'Y', 'single')"), "x=X y=Y";
+
+sub tnamed07 (:$x, :$y, %) { "x=$x y=$y"; }
+is prototype(\&tnamed07), undef;
+is eval("tnamed07(w => 'W', x => 'X', y => 'Y', z => 'Z')"), "x=X y=Y";
+
 sub t085
     (
     $