diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-09-25 13:02:50 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-09-25 13:02:50 +0000 |
| commit | 417591df3ca93ce22fa8fe53077adbd74b5d8b76 (patch) | |
| tree | edcdf2645660117d1646f914055208d9cbc4b718 /src | |
| parent | 79d3d408c16740c5fd80329a0b0a2299890803b7 (diff) | |
| download | perl_checker-417591df3ca93ce22fa8fe53077adbd74b5d8b76.tar perl_checker-417591df3ca93ce22fa8fe53077adbd74b5d8b76.tar.gz perl_checker-417591df3ca93ce22fa8fe53077adbd74b5d8b76.tar.bz2 perl_checker-417591df3ca93ce22fa8fe53077adbd74b5d8b76.tar.xz perl_checker-417591df3ca93ce22fa8fe53077adbd74b5d8b76.zip | |
- recognize "state"
Diffstat (limited to 'src')
| -rw-r--r-- | src/global_checks.ml | 1 | ||||
| -rw-r--r-- | src/lexer.mll | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/src/global_checks.ml b/src/global_checks.ml index 8425ee3..800bb54 100644 --- a/src/global_checks.ml +++ b/src/global_checks.ml @@ -245,6 +245,7 @@ let declare_Our vars (ours, pos) = let declare_My_our vars (my_or_our, l, pos) = match my_or_our with + | "state" | "my" -> declare_My vars (l, pos) | "local" | "our" -> declare_Our vars (l, pos) diff --git a/src/lexer.mll b/src/lexer.mll index b25e08c..42f0ddb 100644 --- a/src/lexer.mll +++ b/src/lexer.mll @@ -530,6 +530,7 @@ rule token = parse | "for" { FOR(lexeme lexbuf, pos lexbuf) } | "my" { MY_OUR(lexeme lexbuf, pos lexbuf) } | "our" { MY_OUR(lexeme lexbuf, pos lexbuf) } +| "state" { MY_OUR(lexeme lexbuf, pos lexbuf) } | "local" { LOCAL(pos lexbuf) } | "continue" { CONTINUE(pos lexbuf) } | "sub" { SUB(pos lexbuf) } |