Allow the _ prototype character to be followed by optional arguments

p4raw-id: //depot/perl@29048

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index 95fb100c7a..3dad4882be 100644
--- a/op.c
+++ b/op.c
@@ -7377,7 +7377,7 @@ Perl_ck_subr(pTHX_ OP *o)
 		continue;
 	    case '_':
 		/* _ must be at the end */
-		if (proto[1])
+		if (proto[1] && proto[1] != ';')
 		    goto oops;
 	    case '$':
 		proto++;