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 | f75a8ee85b6a04eb58381de43c172199dd38f69b (patch) | |
tree | 70c6d008e4e281ef704988ddb0eac83e29d9bd73 /perl_checker.src/parser_helper.ml | |
parent | fead421aab7e98564f5ea45c55613f05dffd8458 (diff) | |
download | perl_checker-f75a8ee85b6a04eb58381de43c172199dd38f69b.tar perl_checker-f75a8ee85b6a04eb58381de43c172199dd38f69b.tar.gz perl_checker-f75a8ee85b6a04eb58381de43c172199dd38f69b.tar.bz2 perl_checker-f75a8ee85b6a04eb58381de43c172199dd38f69b.tar.xz perl_checker-f75a8ee85b6a04eb58381de43c172199dd38f69b.zip |
many perl_checker enhancements and cleanup
Diffstat (limited to 'perl_checker.src/parser_helper.ml')
-rw-r--r-- | perl_checker.src/parser_helper.ml | 4 |
1 files changed, 2 insertions, 2 deletions
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" |