From 070b4efec4b1a23f5a3b307fa76a18d1e4ba215c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 14 Jun 2006 12:17:23 +0000 Subject: "pop @l" return value can be dropped (ie make it similar to "shift") --- perl_checker.src/lexer.mll | 1 + 1 file changed, 1 insertion(+) (limited to 'perl_checker.src/lexer.mll') diff --git a/perl_checker.src/lexer.mll b/perl_checker.src/lexer.mll index b8f7969..aca8d03 100644 --- a/perl_checker.src/lexer.mll +++ b/perl_checker.src/lexer.mll @@ -546,6 +546,7 @@ rule token = parse | "keys" | "exists" | "shift" +| "pop" | "eval" | "ref" { ONE_SCALAR_PARA(lexeme lexbuf, pos lexbuf) } -- cgit v1.2.1