The _ character is only allowed to be at the end of prototypes

p4raw-id: //depot/perl@29036

1 files changed, 3 insertions, 0 deletions

diff --git a/op.c b/op.c
index eb14e0348e..95fb100c7a 100644
--- a/op.c
+++ b/op.c
@@ -7376,6 +7376,9 @@ Perl_ck_subr(pTHX_ OP *o)
 		proto++;
 		continue;
 	    case '_':
+		/* _ must be at the end */
+		if (proto[1])
+		    goto oops;
 	    case '$':
 		proto++;
 		arg++;