diff options
| -rw-r--r-- | perl_checker.src/global_checks.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/global_checks.ml b/perl_checker.src/global_checks.ml index 9bb83b5..e709308 100644 --- a/perl_checker.src/global_checks.ml +++ b/perl_checker.src/global_checks.ml @@ -417,7 +417,7 @@ let check_variables vars t = in List.iter (fun (used, _) -> used := true) l_and with Not_found -> - if not (List.mem method_ [ "isa" ]) then + if not (List.mem method_ [ "isa"; "can" ]) then warn_with_pos pos ("unknown method " ^ method_)) ; Some vars |