diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-30 09:42:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-30 09:42:37 +0000 |
| commit | 54b3005cf09b98d29bd841e6cd9b19d88aa0d5a5 (patch) | |
| tree | cc829e148deca8f4a9031d8a24edba4e20eba88e | |
| parent | 3d726d18053a2ea9cf435d661fc6fd0a36daab99 (diff) | |
| download | perl_checker-54b3005cf09b98d29bd841e6cd9b19d88aa0d5a5.tar perl_checker-54b3005cf09b98d29bd841e6cd9b19d88aa0d5a5.tar.gz perl_checker-54b3005cf09b98d29bd841e6cd9b19d88aa0d5a5.tar.bz2 perl_checker-54b3005cf09b98d29bd841e6cd9b19d88aa0d5a5.tar.xz perl_checker-54b3005cf09b98d29bd841e6cd9b19d88aa0d5a5.zip | |
->can is allowed on any object
| -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 |