diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-03-31 14:23:09 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-03-31 14:23:09 +0000 |
| commit | 066e4e96b34426d3924789e649648048bf8a3f7e (patch) | |
| tree | 713c4d1988ee7a4a51fab0b7348d5e149ad37755 /perl_checker.src | |
| parent | e47e8074c62d8c68b722301c9142aef375d21bb4 (diff) | |
| download | perl-MDK-Common-066e4e96b34426d3924789e649648048bf8a3f7e.tar perl-MDK-Common-066e4e96b34426d3924789e649648048bf8a3f7e.tar.gz perl-MDK-Common-066e4e96b34426d3924789e649648048bf8a3f7e.tar.bz2 perl-MDK-Common-066e4e96b34426d3924789e649648048bf8a3f7e.tar.xz perl-MDK-Common-066e4e96b34426d3924789e649648048bf8a3f7e.zip | |
fix warning (would also need fixing detecting of boolean context vs scalar
context)
Diffstat (limited to 'perl_checker.src')
| -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 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 () -> ()) |