diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-08-19 18:53:05 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-08-19 18:53:05 +0000 |
commit | 4f26697fc64c5b98ac310d6534d94905f0c7b34b (patch) | |
tree | 54ad1b4e85168b51496820c8cefa2b4ae76db460 | |
parent | fe26395c5f68dcb9a452dd0d4707d95fa2b0ea32 (diff) | |
download | perl_checker-4f26697fc64c5b98ac310d6534d94905f0c7b34b.tar perl_checker-4f26697fc64c5b98ac310d6534d94905f0c7b34b.tar.gz perl_checker-4f26697fc64c5b98ac310d6534d94905f0c7b34b.tar.bz2 perl_checker-4f26697fc64c5b98ac310d6534d94905f0c7b34b.tar.xz perl_checker-4f26697fc64c5b98ac310d6534d94905f0c7b34b.zip |
you can't replace \r with r
-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 d0a2152..9edf77b 100644 --- a/perl_checker.src/lexer.mll +++ b/perl_checker.src/lexer.mll @@ -820,7 +820,7 @@ and re_string_escape = parse | "x{" [^ '}']* '}' { hex_in_string lexbuf next_rule (skip_n_char_ 2 1 (lexeme lexbuf)) } | 'x' [^ '{'] _ { hex_in_string lexbuf next_rule (skip_n_char 1 (lexeme lexbuf)) } | '\n' { die lexbuf "do not use \"\\\" before end-of-line, it's useless and generally bad" } -| ['b' 'f' '$' '@' '%' '"' 's' 'S' 'd' 'D' 'w' 'W' 'Q' 'E' 'b' '.' '*' '+' '?' '[' ']' '(' ')' '|' '{' '}' '-'] { +| ['r' 'b' 'f' '$' '@' '%' '"' 's' 'S' 'd' 'D' 'w' 'W' 'Q' 'E' 'b' '.' '*' '+' '?' '[' ']' '(' ')' '|' '{' '}' '-'] { next_s ("\\" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } | _ { |