diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-11-10 09:51:31 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-11-10 09:51:31 +0000 |
commit | 6d20037c5480bd51ab88e227feb7f69b3ce1825d (patch) | |
tree | 37b432355b051dda046d083753847761ca176458 | |
parent | 39108997d193862a9611d910076293eea3d2cb68 (diff) | |
download | perl_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.ml | 2 |
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); |