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 | aff050c6ba86c87d9ce962e1b4cd7d4f71aeb245 (patch) | |
tree | 7e40d2fcec6d26bcf624138d0c6c02bbae286475 | |
parent | 4afc0398529198b0b6ce9092b206e015cc3fbf00 (diff) | |
download | perl_checker-aff050c6ba86c87d9ce962e1b4cd7d4f71aeb245.tar perl_checker-aff050c6ba86c87d9ce962e1b4cd7d4f71aeb245.tar.gz perl_checker-aff050c6ba86c87d9ce962e1b4cd7d4f71aeb245.tar.bz2 perl_checker-aff050c6ba86c87d9ce962e1b4cd7d4f71aeb245.tar.xz perl_checker-aff050c6ba86c87d9ce962e1b4cd7d4f71aeb245.zip |
in Pkg->method, warn when Pkg is an unknown package
-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) -> |