From c20fa0a8ad2c4698b1f966b99581abb1719898c1 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 31 Mar 2004 14:23:09 +0000 Subject: fix warning (would also need fixing detecting of boolean context vs scalar context) --- perl_checker.src/parser_helper.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index a60cb79..0bba0d9 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -1086,7 +1086,7 @@ let mcontext_check wanted_mcontext esp = | M_list | M_array | M_mixed [M_array; M_none] | M_tuple _ -> () | _ -> match un_parenthesize_full esp.any.expr with - | Call(Deref(I_func, Ident(None, "grep", _)), _) -> warn_rule "in scalar context, use \"any\" instead of \"grep\"" + | Call(Deref(I_func, Ident(None, "grep", _)), _) -> warn_rule "in boolean context, use \"any\" instead of \"grep\"" | _ -> ()); mcontext_check_raw wanted_mcontext esp (fun () -> ()) (fun () -> ()) (fun () -> ()) -- cgit v1.2.1