diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-19 20:42:32 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-19 20:42:32 +0000 |
commit | fccde77987a942d09a64058b22eb3844fe468335 (patch) | |
tree | 527b61a94b45a306be0c34a31c4e4edf564e79ac /perl_checker.src/config_file.ml | |
parent | 1e9b027b5bb760a1b15d76a7b4574052853930e0 (diff) | |
download | perl-MDK-Common-fccde77987a942d09a64058b22eb3844fe468335.tar perl-MDK-Common-fccde77987a942d09a64058b22eb3844fe468335.tar.gz perl-MDK-Common-fccde77987a942d09a64058b22eb3844fe468335.tar.bz2 perl-MDK-Common-fccde77987a942d09a64058b22eb3844fe468335.tar.xz perl-MDK-Common-fccde77987a942d09a64058b22eb3844fe468335.zip |
- perl_checker: many new features including
- checking methods being available
- checking unused functions
- saving parsed file in .perl_checker.cache
- new instruction "Basedir .." in .perl_checker (useful for gi/perl-install/standalone/.perl_checker)
Diffstat (limited to 'perl_checker.src/config_file.ml')
-rw-r--r-- | perl_checker.src/config_file.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl_checker.src/config_file.ml b/perl_checker.src/config_file.ml index f4453f5..a5ee94f 100644 --- a/perl_checker.src/config_file.ml +++ b/perl_checker.src/config_file.ml @@ -29,10 +29,12 @@ let read dir = ) default fh in Hashtbl.add config_cache dir config ; + if !Flags.verbose then print_endline_flush ("reading config file " ^ file_name); config with Sys_error _ -> default + let rec read_any dir depth = if depth = 0 then () else let _ = read dir in - read_any (dir ^ "/..") (depth - 1) + read_any (updir dir 1) (depth - 1) |