summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-04-30 09:42:37 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-04-30 09:42:37 +0000
commit54b3005cf09b98d29bd841e6cd9b19d88aa0d5a5 (patch)
treecc829e148deca8f4a9031d8a24edba4e20eba88e
parent3d726d18053a2ea9cf435d661fc6fd0a36daab99 (diff)
downloadperl_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.ml2
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