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 | f3c8293bb8d26a63f1a0bd2b98e4b94fa1f69ae9 (patch) | |
| tree | e4f225b3eddd17de97700b4ba4b8216e878c29ab /perl_checker.src/global_checks.ml | |
| parent | d6ed071ca23941755671614ad566d3524d044f8b (diff) | |
| download | perl-MDK-Common-f3c8293bb8d26a63f1a0bd2b98e4b94fa1f69ae9.tar perl-MDK-Common-f3c8293bb8d26a63f1a0bd2b98e4b94fa1f69ae9.tar.gz perl-MDK-Common-f3c8293bb8d26a63f1a0bd2b98e4b94fa1f69ae9.tar.bz2 perl-MDK-Common-f3c8293bb8d26a63f1a0bd2b98e4b94fa1f69ae9.tar.xz perl-MDK-Common-f3c8293bb8d26a63f1a0bd2b98e4b94fa1f69ae9.zip | |
->can is allowed on any object
Diffstat (limited to 'perl_checker.src/global_checks.ml')
| -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 |