From f3c8293bb8d26a63f1a0bd2b98e4b94fa1f69ae9 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 30 Apr 2003 09:42:37 +0000 Subject: ->can is allowed on any object --- perl_checker.src/global_checks.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl_checker.src') 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 -- cgit v1.2.1