diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-08-04 01:15:28 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-08-04 01:15:28 +0000 |
commit | e4e3c65cfffce19267e299e1e9d15a913276abe5 (patch) | |
tree | 0533b93a71aba02d56d73c195b0b4f6f3ddca7df /perl_checker.src | |
parent | 314f8507815b58c4ccfef9ea19ef81cb67c7f7c5 (diff) | |
download | perl-MDK-Common-e4e3c65cfffce19267e299e1e9d15a913276abe5.tar perl-MDK-Common-e4e3c65cfffce19267e299e1e9d15a913276abe5.tar.gz perl-MDK-Common-e4e3c65cfffce19267e299e1e9d15a913276abe5.tar.bz2 perl-MDK-Common-e4e3c65cfffce19267e299e1e9d15a913276abe5.tar.xz perl-MDK-Common-e4e3c65cfffce19267e299e1e9d15a913276abe5.zip |
in Pkg->method, warn when Pkg is an unknown package
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 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) -> |