diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-10 17:55:05 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-10 17:55:05 +0000 |
| commit | 85ad03dc0777dd8450d349b30e2347da6e317f86 (patch) | |
| tree | 7999359c1d43531756ff229a54ff46d773c6d67a /perl_checker.src/lexer.mll | |
| parent | 77aaee3575adb8923b4af56b40385b5958ea84a5 (diff) | |
| download | perl_checker-85ad03dc0777dd8450d349b30e2347da6e317f86.tar perl_checker-85ad03dc0777dd8450d349b30e2347da6e317f86.tar.gz perl_checker-85ad03dc0777dd8450d349b30e2347da6e317f86.tar.bz2 perl_checker-85ad03dc0777dd8450d349b30e2347da6e317f86.tar.xz perl_checker-85ad03dc0777dd8450d349b30e2347da6e317f86.zip | |
0.2 is a NUM, not a REVISION (otherwise it gets into a Raw_string)
Diffstat (limited to 'perl_checker.src/lexer.mll')
| -rw-r--r-- | perl_checker.src/lexer.mll | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/lexer.mll b/perl_checker.src/lexer.mll index 502acda..9f230a4 100644 --- a/perl_checker.src/lexer.mll +++ b/perl_checker.src/lexer.mll @@ -600,7 +600,7 @@ rule token = parse | '-' [ 'a'-'z' 'A'-'Z' ] [ ' ' '(' ';' ] { putback lexbuf 1; ONE_SCALAR_PARA(lexeme lexbuf, pos lexbuf) } -| ['0'-'9'] ['0'-'9' '_']* ('.' ['0'-'9'] ['0'-'9' '_']*)+ +| ['0'-'9'] ['0'-'9' '_']* '.' ['0'-'9'] ['0'-'9' '_']* ('.' ['0'-'9'] ['0'-'9' '_']*)+ | 'v' ['0'-'9'] ['0'-'9' '_']* ('.' ['0'-'9'] ['0'-'9' '_']*)* { not_ok_for_match := lexeme_end lexbuf; |