diff options
-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; |