summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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);