buglet: sub a(;&) { } doesn't work

Message-ID: <20030418224107.GA2751@ratsnest.hole>

p4raw-id: //depot/perl@19367

2 files changed, 6 insertions, 1 deletions

diff --git a/t/comp/parser.t b/t/comp/parser.t
index b50d8af29d..25025cc06c 100644
--- a/t/comp/parser.t
+++ b/t/comp/parser.t
@@ -9,7 +9,7 @@ BEGIN {
 }
 
 require "./test.pl";
-plan( tests => 37 );
+plan( tests => 38 );
 
 eval '%@x=0;';
 like( $@, qr/^Can't modify hash dereference in repeat \(x\)/, '%@x=0' );
@@ -89,6 +89,9 @@ ${a}{ ${a}[ @{b}{
 ${a}{
 }
 
+eval q{ sub a(;; &) { } a { } };
+is($@, '', "';&' sub prototype confuses the lexer");
+
 # Bug #21575
 # ensure that the second print statement works, by playing a bit
 # with the test output.
diff --git a/toke.c b/toke.c
index 23ae908f30..850480cf88 100644
--- a/toke.c
+++ b/toke.c
@@ -4086,6 +4086,8 @@ Perl_yylex(pTHX)
 			    TERM(FUNC0SUB);
 			if (strEQ(proto, "$"))
 			    OPERATOR(UNIOPSUB);
+			while (*proto == ';')
+			    proto++;
 			if (*proto == '&' && *s == '{') {
 			    sv_setpv(PL_subname, PL_curstash ? 
 					"__ANON__" : "__ANON__::__ANON__");