diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-30 08:19:23 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-30 08:19:23 +0000 |
| commit | 16d1e7e21e4169abd573a3b6e53afb4a203a81f2 (patch) | |
| tree | 5fee8f7c13fcc2fd377f16ded7f04f0596432068 /perl_checker.src/lexer.mll | |
| parent | ae907464eec088d4dd61d38f1d83f9283271208e (diff) | |
| download | perl_checker-16d1e7e21e4169abd573a3b6e53afb4a203a81f2.tar perl_checker-16d1e7e21e4169abd573a3b6e53afb4a203a81f2.tar.gz perl_checker-16d1e7e21e4169abd573a3b6e53afb4a203a81f2.tar.bz2 perl_checker-16d1e7e21e4169abd573a3b6e53afb4a203a81f2.tar.xz perl_checker-16d1e7e21e4169abd573a3b6e53afb4a203a81f2.zip | |
\ *is* necessary in "$foo\{"
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 5a9fd4b..b00e728 100644 --- a/perl_checker.src/lexer.mll +++ b/perl_checker.src/lexer.mll @@ -787,7 +787,7 @@ and 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' '$' '@' '%' 'a' 'r'] { next_s ("\\" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } +| ['b' 'f' '$' '@' '%' 'a' 'r' '{'] { next_s ("\\" ^ lexeme lexbuf) (Stack.pop next_rule) lexbuf } | _ { let c = lexeme lexbuf in (match !string_escape_kind with |