diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-22 20:02:18 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-22 20:02:18 +0000 |
| commit | 26a2a4adfdac19f22b505e5ea0b09b767e5af1ce (patch) | |
| tree | def4cd680738e7fb3c4e1da73f7c38a2b426c9cb /perl_checker.src | |
| parent | 6c6dc110be94b197fe4f4c6f249de192da10c13e (diff) | |
| download | perl-MDK-Common-26a2a4adfdac19f22b505e5ea0b09b767e5af1ce.tar perl-MDK-Common-26a2a4adfdac19f22b505e5ea0b09b767e5af1ce.tar.gz perl-MDK-Common-26a2a4adfdac19f22b505e5ea0b09b767e5af1ce.tar.bz2 perl-MDK-Common-26a2a4adfdac19f22b505e5ea0b09b767e5af1ce.tar.xz perl-MDK-Common-26a2a4adfdac19f22b505e5ea0b09b767e5af1ce.zip | |
fix argument checking for Class->method(...) calls
Diffstat (limited to 'perl_checker.src')
| -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 9a8f9ad..4165c7e 100644 --- a/perl_checker.src/global_checks.ml +++ b/perl_checker.src/global_checks.ml @@ -357,7 +357,7 @@ let check_variables vars t = | Method_call(Raw_string(pkg, _) as class_, Raw_string(method_, pos), para) -> let vars = List.fold_left check_variables_ vars para in let rec search pkg = - if is_global_var_declared vars (I_func, pkg, method_) (Some(pos, class_ :: para)) then true + if is_global_var_declared vars (I_func, pkg, method_) (Some(pos, [ List (class_ :: para) ])) then true else let package = Hashtbl.find vars.state.per_package pkg in List.exists search (List.map fst (some_or package.isa [])) |