From 048499c3f5b613f0511c1fe1af993686563dbeb2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 25 Sep 2008 13:04:23 +0000
Subject: - fix typo causing qq(} $foo) to be parsed as q(} $foo)

---
 NEWS          | 1 +
 src/lexer.mll | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

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;
-- 
cgit v1.2.1