summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-10-01 10:28:06 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-10-01 10:28:06 +0000
commite83d3cdad8561d588e271f2cd1a3a65b7b218df1 (patch)
treec2f24dab84ec51e49e90f496002f75841fbea13e
parentdf929f792ac9cfe60b38601cc8492dedceb8de95 (diff)
downloadperl_checker-e83d3cdad8561d588e271f2cd1a3a65b7b218df1.tar
perl_checker-e83d3cdad8561d588e271f2cd1a3a65b7b218df1.tar.gz
perl_checker-e83d3cdad8561d588e271f2cd1a3a65b7b218df1.tar.bz2
perl_checker-e83d3cdad8561d588e271f2cd1a3a65b7b218df1.tar.xz
perl_checker-e83d3cdad8561d588e271f2cd1a3a65b7b218df1.zip
don't suggest replacing "xxx" with 'xxx' in case of N("xxx")
-rw-r--r--perl_checker.src/lexer.mll3
1 files changed, 2 insertions, 1 deletions
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