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 | 048499c3f5b613f0511c1fe1af993686563dbeb2 (patch) | |
| tree | a504ecc82e900e82b02cd57a8ff0b0f30497edb9 | |
| parent | a746e7fab214e9ca9e072e1b33491e56f4d71268 (diff) | |
| download | perl_checker-048499c3f5b613f0511c1fe1af993686563dbeb2.tar perl_checker-048499c3f5b613f0511c1fe1af993686563dbeb2.tar.gz perl_checker-048499c3f5b613f0511c1fe1af993686563dbeb2.tar.bz2 perl_checker-048499c3f5b613f0511c1fe1af993686563dbeb2.tar.xz perl_checker-048499c3f5b613f0511c1fe1af993686563dbeb2.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; |