summaryrefslogtreecommitdiffstats
path: root/perl_checker.src/lexer.mll
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-12-13 12:51:09 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-12-13 12:51:09 +0000
commit7ca6ba037fe3055909d48635f69ddcfb1b0f0ad7 (patch)
tree0b157493159461396e7f92bf376bb229084b67f2 /perl_checker.src/lexer.mll
parent1f60ce276457c8270aef4a80448520fd72b5b7bd (diff)
downloadperl-MDK-Common-7ca6ba037fe3055909d48635f69ddcfb1b0f0ad7.tar
perl-MDK-Common-7ca6ba037fe3055909d48635f69ddcfb1b0f0ad7.tar.gz
perl-MDK-Common-7ca6ba037fe3055909d48635f69ddcfb1b0f0ad7.tar.bz2
perl-MDK-Common-7ca6ba037fe3055909d48635f69ddcfb1b0f0ad7.tar.xz
perl-MDK-Common-7ca6ba037fe3055909d48635f69ddcfb1b0f0ad7.zip
- ugly hack to workaround uniop calls priority pb, but at least have a P_uniop instead of using P_mul
- add delete as a uniop
Diffstat (limited to 'perl_checker.src/lexer.mll')
-rw-r--r--perl_checker.src/lexer.mll1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl_checker.src/lexer.mll b/perl_checker.src/lexer.mll
index a9de7d2..7de0f13 100644
--- a/perl_checker.src/lexer.mll
+++ b/perl_checker.src/lexer.mll
@@ -540,6 +540,7 @@ rule token = parse
| "printf" { PRINT(lexeme lexbuf, pos lexbuf) }
| "new" { NEW(pos lexbuf) }
| "format" { let pos = pos lexbuf in FORMAT(here_doc_next_line ".", pos) }
+| "delete"
| "defined"
| "length"
| "keys"