From 6d20037c5480bd51ab88e227feb7f69b3ce1825d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 10 Nov 2003 09:51:31 +0000 Subject: do check files passed as parameters --- perl_checker.src/perl_checker.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); -- cgit v1.2.1