From be344c9ed676859feddde5c24ef78ac78ab5d570 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 10 Nov 2002 16:38:14 +0000 Subject: *** empty log message *** --- perl_checker.src/lexer.mll | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl_checker.src/lexer.mll') 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 } -- cgit v1.2.1