diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-10 16:38:14 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-10 16:38:14 +0000 |
commit | 7fff947a462837c0cc7ea4cbf4da146b796ac349 (patch) | |
tree | ad3ef9d724fe8748a01bdfde4c47c90da33030ea /perl_checker.src/lexer.mll | |
parent | 5d7ce2843bbd858b3114df9a92c55fc3d42eb67c (diff) | |
download | perl-MDK-Common-7fff947a462837c0cc7ea4cbf4da146b796ac349.tar perl-MDK-Common-7fff947a462837c0cc7ea4cbf4da146b796ac349.tar.gz perl-MDK-Common-7fff947a462837c0cc7ea4cbf4da146b796ac349.tar.bz2 perl-MDK-Common-7fff947a462837c0cc7ea4cbf4da146b796ac349.tar.xz perl-MDK-Common-7fff947a462837c0cc7ea4cbf4da146b796ac349.zip |
*** empty log message ***
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 49f5102..6abbbc2 100644 --- a/perl_checker.src/lexer.mll +++ b/perl_checker.src/lexer.mll @@ -112,7 +112,7 @@ rule token = parse | space+ { (* propagate not_ok_for_match when it was set by the previous token *) if lexeme_start lexbuf = !not_ok_for_match then not_ok_for_match := lexeme_end lexbuf; - (*SPACE(pos lexbuf) *) token lexbuf + (*SPACE(pos lexbuf) *) token lexbuf } | '#' [^ '\n']* { (*COMMENT(lexeme lexbuf, pos lexbuf)*) token lexbuf } |