diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-09-25 13:04:23 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-09-25 13:04:23 +0000 |
| commit | 538532b25796d7d819c8b8666fea1acbe5b62e83 (patch) | |
| tree | a504ecc82e900e82b02cd57a8ff0b0f30497edb9 | |
| parent | 417591df3ca93ce22fa8fe53077adbd74b5d8b76 (diff) | |
| download | perl_checker-538532b25796d7d819c8b8666fea1acbe5b62e83.tar perl_checker-538532b25796d7d819c8b8666fea1acbe5b62e83.tar.gz perl_checker-538532b25796d7d819c8b8666fea1acbe5b62e83.tar.bz2 perl_checker-538532b25796d7d819c8b8666fea1acbe5b62e83.tar.xz perl_checker-538532b25796d7d819c8b8666fea1acbe5b62e83.zip | |
- fix typo causing qq(} $foo) to be parsed as q(} $foo)
| -rw-r--r-- | NEWS | 1 | ||||
| -rw-r--r-- | src/lexer.mll | 2 |
2 files changed, 2 insertions, 1 deletions
@@ -1,4 +1,5 @@ - recognize "state" +- fix typo causing qq(} $foo) to be parsed as q(} $foo) Version 1.2.9 - 17 September 2008, by Thierry Vignaud diff --git a/src/lexer.mll b/src/lexer.mll index 42f0ddb..fdb9420 100644 --- a/src/lexer.mll +++ b/src/lexer.mll @@ -844,7 +844,7 @@ and qqstring = parse if lexeme_char lexbuf 0 = !delimit_char_close then if !string_nestness <> 0 then (decr string_nestness; next qqstring lexbuf) else () - else next qstring lexbuf + else next qqstring lexbuf } | pattern_open { if lexeme_char lexbuf 0 = !delimit_char_open then incr string_nestness; |