summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-11-10 09:51:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-11-10 09:51:31 +0000
commit6d20037c5480bd51ab88e227feb7f69b3ce1825d (patch)
tree37b432355b051dda046d083753847761ca176458
parent39108997d193862a9611d910076293eea3d2cb68 (diff)
downloadperl_checker-6d20037c5480bd51ab88e227feb7f69b3ce1825d.tar
perl_checker-6d20037c5480bd51ab88e227feb7f69b3ce1825d.tar.gz
perl_checker-6d20037c5480bd51ab88e227feb7f69b3ce1825d.tar.bz2
perl_checker-6d20037c5480bd51ab88e227feb7f69b3ce1825d.tar.xz
perl_checker-6d20037c5480bd51ab88e227feb7f69b3ce1825d.zip
do check files passed as parameters
-rw-r--r--perl_checker.src/perl_checker.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/perl_checker.ml b/perl_checker.src/perl_checker.ml
index 2ff19b3..761d7e5 100644
--- a/perl_checker.src/perl_checker.ml
+++ b/perl_checker.src/perl_checker.ml
@@ -120,7 +120,7 @@ let parse_options =
(* removing non needed files from per_files (those files come from the cache) *)
List.iter (fun k ->
let per_file = Hashtbl.find per_files k in
- if not (per_file.require_name = None || List.mem (some per_file.require_name) l_required_packages) then
+ if per_file.require_name <> None && not (List.mem (some per_file.require_name) l_required_packages) && not (List.mem per_file.file_name files) then
Hashtbl.remove per_files k
) (hashtbl_keys per_files);