summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-09-25 13:04:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-09-25 13:04:23 +0000
commit538532b25796d7d819c8b8666fea1acbe5b62e83 (patch)
treea504ecc82e900e82b02cd57a8ff0b0f30497edb9
parent417591df3ca93ce22fa8fe53077adbd74b5d8b76 (diff)
downloadperl_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--NEWS1
-rw-r--r--src/lexer.mll2
2 files changed, 2 insertions, 1 deletions
diff --git a/NEWS b/NEWS
index 6361288..df31991 100644
--- a/NEWS
+++ b/NEWS
@@ -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;