use yyerror() instead of croak() so that compile-time failures in

my(LIST) don't confuse globals with lexicals

p4raw-id: //depot/perl@3097

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index f1aca91221..d6fc1b81fd 100644
--- a/toke.c
+++ b/toke.c
@@ -1638,7 +1638,7 @@ int yylex(PERL_YYLEX_PARAM_DECL)
 	*/
 	if (PL_in_my) {
 	    if (strchr(PL_tokenbuf,':'))
-		croak(PL_no_myglob,PL_tokenbuf);
+		yyerror(form(PL_no_myglob,PL_tokenbuf));
 
 	    yylval.opval = newOP(OP_PADANY, 0);
 	    yylval.opval->op_targ = pad_allocmy(PL_tokenbuf);