From 538532b25796d7d819c8b8666fea1acbe5b62e83 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)

---
 src/lexer.mll | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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