diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-12-16 23:19:47 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-12-16 23:19:47 +0000 |
| commit | dcdef6368ea8db7584b5ce80835fb262e987fd4c (patch) | |
| tree | 38ed2e98d3cce7f77bccfa09b8afaf94842ac754 /perl_checker.src/common.ml | |
| parent | 38d1fcc6e59327f5739ab00e048bee55fc6b2791 (diff) | |
| download | perl_checker-dcdef6368ea8db7584b5ce80835fb262e987fd4c.tar perl_checker-dcdef6368ea8db7584b5ce80835fb262e987fd4c.tar.gz perl_checker-dcdef6368ea8db7584b5ce80835fb262e987fd4c.tar.bz2 perl_checker-dcdef6368ea8db7584b5ce80835fb262e987fd4c.tar.xz perl_checker-dcdef6368ea8db7584b5ce80835fb262e987fd4c.zip | |
disallow
- $a = (1, 2)
- my $a = (1, 2)
- my ($a, $b) = (1, 2, 3)
Diffstat (limited to 'perl_checker.src/common.ml')
| -rw-r--r-- | perl_checker.src/common.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/perl_checker.src/common.ml b/perl_checker.src/common.ml index 554a65c..ddd6b08 100644 --- a/perl_checker.src/common.ml +++ b/perl_checker.src/common.ml @@ -185,6 +185,11 @@ let rec for_all2_ p l1 l2 = | (a1::l1, a2::l2) -> p a1 a2 && for_all2_ p l1 l2 | (_, _) -> false +let rec for_all2_true p l1 l2 = + match (l1, l2) with + | (a1::l1, a2::l2) -> p a1 a2 && for_all2_true p l1 l2 + | (_, _) -> true + let maxl l = fold_right1 max l let rec stack2list s = |