From 959912cb126dbbbfa7a7d7a9fc7a258de50ecf0b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 18 Feb 2003 10:45:33 +0000 Subject: "$!" is NOT better written without the double quotes --- perl_checker.src/parser_helper.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl_checker.src/parser_helper.ml') 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, _)]] -> -- cgit v1.2.1