summaryrefslogtreecommitdiffstats
path: root/perl_checker.src
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-08 03:06:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-08 03:06:44 +0000
commit78e7b2f4b3fe63e9e9158ac13da7d5d619c27f78 (patch)
tree2cbc98f7dc26fa0c732fcf8f828b8e138e44af57 /perl_checker.src
parent298dc81b7310f9241ddf044efcffcf4593cb829b (diff)
downloadperl_checker-78e7b2f4b3fe63e9e9158ac13da7d5d619c27f78.tar
perl_checker-78e7b2f4b3fe63e9e9158ac13da7d5d619c27f78.tar.gz
perl_checker-78e7b2f4b3fe63e9e9158ac13da7d5d619c27f78.tar.bz2
perl_checker-78e7b2f4b3fe63e9e9158ac13da7d5d619c27f78.tar.xz
perl_checker-78e7b2f4b3fe63e9e9158ac13da7d5d619c27f78.zip
fix --check-unused-global-vars
Diffstat (limited to 'perl_checker.src')
-rw-r--r--perl_checker.src/global_checks.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/global_checks.ml b/perl_checker.src/global_checks.ml
index b0b8d7a..2b43152 100644
--- a/perl_checker.src/global_checks.ml
+++ b/perl_checker.src/global_checks.ml
@@ -500,7 +500,7 @@ let add_file_to_files per_files file =
let check_unused_vars package =
Hashtbl.iter (fun (context, name) (pos, is_used, _proto) ->
- if not (!is_used != Access_various || List.mem name ["BEGIN"; "END"; "DESTROY"; "ISA"; "AUTOLOAD"; "EXPORT"; "EXPORT_OK"; "EXPORT_TAGS"]) then
+ if !is_used != Access_various && not (List.mem name ["BEGIN"; "END"; "DESTROY"; "ISA"; "AUTOLOAD"; "EXPORT"; "EXPORT_OK"; "EXPORT_TAGS"]) then
warn_with_pos [Warn_unused_global_vars] pos (sprintf "unused %s%s::%s" (if context = I_func then "function " else "variable " ^ context2s context) package.package_name name)
) package.vars_declared