diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-08-19 18:58:03 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-08-19 18:58:03 +0000 |
commit | c6a43984cfcf0f06167113ebfe680a5b4836d0ee (patch) | |
tree | c8c1648699de29a524a0926b204ca78adced1619 /perl_checker.src | |
parent | 04f79981f5965f302fb69ee787f74efc2ad20e6e (diff) | |
download | perl-MDK-Common-c6a43984cfcf0f06167113ebfe680a5b4836d0ee.tar perl-MDK-Common-c6a43984cfcf0f06167113ebfe680a5b4836d0ee.tar.gz perl-MDK-Common-c6a43984cfcf0f06167113ebfe680a5b4836d0ee.tar.bz2 perl-MDK-Common-c6a43984cfcf0f06167113ebfe680a5b4836d0ee.tar.xz perl-MDK-Common-c6a43984cfcf0f06167113ebfe680a5b4836d0ee.zip |
you can't replace \[ with [ in "$foo[0]" otherwise the meaning is really different!
Diffstat (limited to 'perl_checker.src')
-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 9edf77b..eb43d42 100644 --- a/perl_checker.src/lexer.mll +++ b/perl_checker.src/lexer.mll @@ -793,7 +793,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 |