diff options
| -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) |