diff options
| -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 e709308..e475c8a 100644 --- a/perl_checker.src/global_checks.ml +++ b/perl_checker.src/global_checks.ml @@ -396,7 +396,7 @@ let check_variables vars t = (try if not (uses_external_package pkg || List.mem pkg !ignored_packages || search pkg || method_ = "bootstrap") then warn_with_pos pos (sprintf "unknown method %s starting in package %s" method_ pkg); - with Not_found -> (* no warning, "can't find package" is already warned *)()); + with Not_found -> warn_with_pos pos (sprintf "unknown package %s" pkg)); Some vars | Method_call(o, Raw_string(method_, pos), para) -> |