diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-11 14:33:22 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-11 14:33:22 +0000 |
commit | 00cbf7c47c0f642a9fe3d6b0189ed1ed642564e6 (patch) | |
tree | 5c52050103c20836cda1bad7a732de319fc1ad20 /perl_checker.src/common.ml | |
parent | d42f84dc16ea124b864f0ae4eeb3b8071009fe54 (diff) | |
download | perl-MDK-Common-00cbf7c47c0f642a9fe3d6b0189ed1ed642564e6.tar perl-MDK-Common-00cbf7c47c0f642a9fe3d6b0189ed1ed642564e6.tar.gz perl-MDK-Common-00cbf7c47c0f642a9fe3d6b0189ed1ed642564e6.tar.bz2 perl-MDK-Common-00cbf7c47c0f642a9fe3d6b0189ed1ed642564e6.tar.xz perl-MDK-Common-00cbf7c47c0f642a9fe3d6b0189ed1ed642564e6.zip |
add option "-t" enabling titi to precise tab-width=4
fix a bug in getting exported functions (fixes "unknown function gtkshow")
Diffstat (limited to 'perl_checker.src/common.ml')
-rw-r--r-- | perl_checker.src/common.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl_checker.src/common.ml b/perl_checker.src/common.ml index f84e027..9d21a48 100644 --- a/perl_checker.src/common.ml +++ b/perl_checker.src/common.ml @@ -760,16 +760,16 @@ let split_at2 c1 c2 s = split_at2_ [] 0 0 let words s = - let rec words_ accu i = + let rec words_ accu i s = try let i2 = non_index_from s i ' ' in try let i3 = String.index_from s i2 ' ' in - words_ (String.sub s i2 (i3 - i2) :: accu) (i3+1) + words_ (String.sub s i2 (i3 - i2) :: accu) (i3+1) s with Not_found -> rev (skip_n_char i2 s :: accu) with Invalid_argument _ -> rev accu in - words_ [] 0 + collect (words_ [] 0) (split_at '\n' s) let to_CamelCase s_ = let l = ref [] in |