diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-06-28 08:04:11 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-06-28 08:04:11 +0000 |
| commit | f350421afc41b86767bbf231f41d0e3a2095a2c9 (patch) | |
| tree | c984e4b027a386c9716a6700843de9adf63b5e9b /perl_checker.src/global_checks.ml | |
| parent | eb7b9f404f2405a1cb152fac39101200ec3b9d98 (diff) | |
| download | perl-MDK-Common-f350421afc41b86767bbf231f41d0e3a2095a2c9.tar perl-MDK-Common-f350421afc41b86767bbf231f41d0e3a2095a2c9.tar.gz perl-MDK-Common-f350421afc41b86767bbf231f41d0e3a2095a2c9.tar.bz2 perl-MDK-Common-f350421afc41b86767bbf231f41d0e3a2095a2c9.tar.xz perl-MDK-Common-f350421afc41b86767bbf231f41d0e3a2095a2c9.zip | |
many perl_checker enhancements and cleanup
Diffstat (limited to 'perl_checker.src/global_checks.ml')
| -rw-r--r-- | perl_checker.src/global_checks.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/global_checks.ml b/perl_checker.src/global_checks.ml index 212cde9..def8a79 100644 --- a/perl_checker.src/global_checks.ml +++ b/perl_checker.src/global_checks.ml @@ -268,7 +268,7 @@ let check_variables vars t = Some vars | Call(Deref(I_func, Ident(None, func, func_pos)), Anonymous_sub(_, Block f, pos) :: l) - when List.mem func [ "grep" ; "map" ; "substInFile" ; "map_index" ; "each_index" ; "partition" ; "find_index" ; "grep_index" ; "find" ; "any" ; "every" ] -> + when List.mem func [ "grep" ; "map" ; "substInFile" ; "map_index" ; "each_index" ; "partition" ; "find_index" ; "grep_index" ; "find" ; "any" ; "every" ; "uniq_" ] -> let vars = List.fold_left check_variables_ vars l in let vars' = { vars with my_vars = [] :: vars.my_vars ; our_vars = [(I_scalar, "_"), (pos, ref Access_various, None)] :: vars.our_vars } in let vars' = List.fold_left check_variables_ vars' f in |