diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-10-01 12:01:00 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-10-01 12:01:00 +0000 |
| commit | d1d64f26a180dfa3bfd3757a65d33049dea88780 (patch) | |
| tree | e9f50413e3024034f9560d8398530b8f10d55ae9 /perl_checker.src/common.ml | |
| parent | 1da65bfb78a24eacd6529df1b0710da46f8d4893 (diff) | |
| download | perl-MDK-Common-d1d64f26a180dfa3bfd3757a65d33049dea88780.tar perl-MDK-Common-d1d64f26a180dfa3bfd3757a65d33049dea88780.tar.gz perl-MDK-Common-d1d64f26a180dfa3bfd3757a65d33049dea88780.tar.bz2 perl-MDK-Common-d1d64f26a180dfa3bfd3757a65d33049dea88780.tar.xz perl-MDK-Common-d1d64f26a180dfa3bfd3757a65d33049dea88780.zip | |
perfect warning for suggesting qq(...) instead of "..."
Diffstat (limited to 'perl_checker.src/common.ml')
| -rw-r--r-- | perl_checker.src/common.ml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/perl_checker.src/common.ml b/perl_checker.src/common.ml index e30dc20..554a65c 100644 --- a/perl_checker.src/common.ml +++ b/perl_checker.src/common.ml @@ -756,6 +756,13 @@ let count_chars_in_string s c = Not_found -> 0 in rec_count_chars_in_string 0 +let rec string_fold_left f val_ s = + let val_ = ref val_ in + for i = 0 to String.length s - 1 do + val_ := f !val_ s.[i] + done ; + !val_ + let rec string_forall_with f i s = try f s.[i] && string_forall_with f (i+1) s |