diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-01 14:44:57 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-01 14:44:57 +0000 |
| commit | 2ca280165adadc0eef3743c9eec4b7b5430d4271 (patch) | |
| tree | 0c266ffe3287e5b611bdc575e4d66553fe6b833f /perl_checker.src | |
| parent | f8b5137e260e50539465ae0e48fae9717dce4e86 (diff) | |
| download | perl_checker-2ca280165adadc0eef3743c9eec4b7b5430d4271.tar perl_checker-2ca280165adadc0eef3743c9eec4b7b5430d4271.tar.gz perl_checker-2ca280165adadc0eef3743c9eec4b7b5430d4271.tar.bz2 perl_checker-2ca280165adadc0eef3743c9eec4b7b5430d4271.tar.xz perl_checker-2ca280165adadc0eef3743c9eec4b7b5430d4271.zip | |
warn "map(&f, ...)", use "map { f } ..." instead
Diffstat (limited to 'perl_checker.src')
| -rw-r--r-- | perl_checker.src/parser_helper.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index f16ca14..7665eee 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -664,6 +664,12 @@ let call_func is_a_func (e, para) = | Call_op("m//", Deref(I_scalar, Ident(None, "_", _)) :: pattern, pos) :: l -> Some(Call_op("qr//", pattern, pos) :: l) | _ -> None) + + | "map" -> + (match para with + | Anonymous_sub _ :: _ -> () + | _ -> warn_rule "always use \"map\" with a block (eg: map { ... } @list)"); + None | _ -> None in Call(e, some_or para' para) |