diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-02-18 10:45:33 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-02-18 10:45:33 +0000 |
commit | d33bf663475db11dd085f6a83b370119dd53b196 (patch) | |
tree | b750bbaffc03326d9a439da91285216543e2974a /perl_checker.src/parser_helper.ml | |
parent | 65e91a0c26eb70a3cbefd665403d1cee66864ae2 (diff) | |
download | perl-MDK-Common-d33bf663475db11dd085f6a83b370119dd53b196.tar perl-MDK-Common-d33bf663475db11dd085f6a83b370119dd53b196.tar.gz perl-MDK-Common-d33bf663475db11dd085f6a83b370119dd53b196.tar.bz2 perl-MDK-Common-d33bf663475db11dd085f6a83b370119dd53b196.tar.xz perl-MDK-Common-d33bf663475db11dd085f6a83b370119dd53b196.zip |
"$!" is NOT better written without the double quotes
Diffstat (limited to 'perl_checker.src/parser_helper.ml')
-rw-r--r-- | perl_checker.src/parser_helper.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index edd0023..46f6300 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -714,7 +714,7 @@ let to_String parse strict (l, (_, pos)) = let l' = parse_interpolated parse l in (match l' with | [ "", List [Deref(I_scalar, Ident(None, ident, _))]] -> - if strict then warn pos (sprintf "%s is better written without the double quotes" (variable2s(I_scalar, ident))) + if ident <> "!" && strict then warn pos (sprintf "%s is better written without the double quotes" (variable2s(I_scalar, ident))) | [ "", List [Deref(I_hash, _)]] -> warn pos "don't use a hash in string context" | [ "", List [Deref(I_array, _)]] -> |