From 9f85d1a79fc1c8bd1542194d4730a3ff2e90e991 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 2 Apr 2003 11:26:29 +0000 Subject: enhance warning "... =~ /^foo$/" is better written "... eq 'foo'" --- perl_checker.src/parser_helper.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl_checker.src') diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index 21f91d8..d5869ec 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -428,7 +428,7 @@ let check_simple_pattern = function st.[0] = '^' && st.[String.length st - 1] = '$' then let st = skip_n_char_ 1 1 st in if string_forall_with char_is_alphanumerical_ 0 st then - warn_rule (sprintf "\"... =~ /^%s$/\" is better written \"... eq %s\"" st st) + warn_rule (sprintf "\"... =~ /^%s$/\" is better written \"... eq '%s'\"" st st) | _ -> () let rec only_one (l, (spaces, pos)) = -- cgit v1.2.1