diff options
| -rw-r--r-- | MDK/Common.pm.pl | 2 | ||||
| -rw-r--r-- | perl-MDK-Common.spec | 5 | ||||
| -rw-r--r-- | perl_checker.src/global_checks.ml | 2 | ||||
| -rw-r--r-- | perl_checker.src/parser_helper.ml | 4 |
4 files changed, 8 insertions, 5 deletions
diff --git a/MDK/Common.pm.pl b/MDK/Common.pm.pl index 868337d..1fb11fa 100644 --- a/MDK/Common.pm.pl +++ b/MDK/Common.pm.pl @@ -74,7 +74,7 @@ use vars qw(@ISA @EXPORT $VERSION); #); # perl_checker: RE-EXPORT-ALL @EXPORT = map { @$_ } map { values %{'MDK::Common::' . $_ . 'EXPORT_TAGS'} } grep { /::$/ } keys %MDK::Common::; -$VERSION = "1.1.11"; +$VERSION = "1.1.12"; 1; EOF diff --git a/perl-MDK-Common.spec b/perl-MDK-Common.spec index d27b4c7..de97ed2 100644 --- a/perl-MDK-Common.spec +++ b/perl-MDK-Common.spec @@ -2,7 +2,7 @@ # do not change the version here, change in MDK/Common.pm.pl %define version THEVERSION -%define release 4mdk +%define release 1mdk %ifarch x86_64 %define build_option PERL_CHECKER_TARGET='debug-code BCSUFFIX=""' @@ -72,6 +72,9 @@ rm -rf $RPM_BUILD_ROOT # MODIFY IN THE CVS: cvs.mandrakesoft.com:/cooker soft/perl-MDK-Common %changelog +* Mon May 10 2004 Pixel <pixel@mandrakesoft.com> 1.1.12-1mdk +- many perl_checker enhancements and cleanup + * Wed Apr 7 2004 Thierry Vignaud <tvignaud@mandrakesoft.com> 1.1.11-4mdk - pixel: o add perl_checker.html 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 diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index 1f30eb5..8a81bda 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -337,7 +337,7 @@ let sp_same esp1 esp2 = else if esp2.spaces <> Space_0 then sp_p esp1 let function_to_context word_alone = function - | "map" | "grep" | "grep_index" | "map_index" -> M_array + | "map" | "grep" | "grep_index" | "map_index" | "uniq" | "uniq_" -> M_array | "partition" -> M_tuple [ M_ref M_array ; M_ref M_array ] | "find" -> M_unknown_scalar | "any" | "every" -> M_bool @@ -836,7 +836,7 @@ let call_raw force_non_builtin_func (e, para) = | [ List(String _ :: _) ] -> die_rule "don't use interpolated translated string, use %s or %d instead" | _ -> die_rule (sprintf "%s() must be used with a string" f)) - | "map" | "grep" | "grep_index" | "map_index" | "partition" + | "map" | "grep" | "grep_index" | "map_index" | "partition" | "uniq_" | "find" | "any" | "every" | "find_index" |