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 | 5a2d7c11e92680631d2e09b60120cd11a64636fd (patch) | |
tree | 745993ffd848a6208b895c89a32245173f32f6f7 /perl_checker.src | |
parent | f2cd7b2f753d5f708308150538d36787d1f098ba (diff) | |
download | perl-MDK-Common-5a2d7c11e92680631d2e09b60120cd11a64636fd.tar perl-MDK-Common-5a2d7c11e92680631d2e09b60120cd11a64636fd.tar.gz perl-MDK-Common-5a2d7c11e92680631d2e09b60120cd11a64636fd.tar.bz2 perl-MDK-Common-5a2d7c11e92680631d2e09b60120cd11a64636fd.tar.xz perl-MDK-Common-5a2d7c11e92680631d2e09b60120cd11a64636fd.zip |
do check files passed as parameters
Diffstat (limited to 'perl_checker.src')
-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); |