From e83d3cdad8561d588e271f2cd1a3a65b7b218df1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 1 Oct 2003 10:28:06 +0000
Subject: don't suggest replacing "xxx" with 'xxx' in case of N("xxx")

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

(limited to 'perl_checker.src')

diff --git a/perl_checker.src/lexer.mll b/perl_checker.src/lexer.mll
index 39a3c02..15f9038 100644
--- a/perl_checker.src/lexer.mll
+++ b/perl_checker.src/lexer.mll
@@ -277,7 +277,8 @@ let ins_to_string t lexbuf =
   string_escape_useful := Left false ;
   let s, pos = ins t lexbuf in
 
-  (match !string_escape_useful, s with
+  if not !string_is_i18n then
+    (match !string_escape_useful, s with
     | Right c, [ _, [] ] ->
 	let msg = 
 	  if c = "\"" then
-- 
cgit v1.2.1