Partial fix of bug [perl #17589] : prevent the parser to

segfault when encountering the erroneous construct "sub;".

p4raw-id: //depot/perl@18072

1 files changed, 2 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index d95b0a72bb..aff4549138 100644
--- a/toke.c
+++ b/toke.c
@@ -5057,6 +5057,8 @@ Perl_yylex(pTHX)
 
 		if (*s == ':' && s[1] != ':')
 		    PL_expect = attrful;
+		else if (!have_name && *s != '{' && key == KEY_sub)
+		    Perl_croak(aTHX_ "Illegal declaration of anonymous subroutine");
 
 		if (have_proto) {
 		    PL_nextval[PL_nexttoke].opval =