diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-25 23:02:05 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-25 23:02:05 +0000 |
| commit | 0a3eca317134e14282153c851f0dcdc6a8a54282 (patch) | |
| tree | 0eefe259e192f6e6104612600810dddbb45a26de /perl_checker.src/perl_checker.ml | |
| parent | 9d2129c561e82d14c6e5ae82cd2f3ae5a34d12a4 (diff) | |
| download | perl-MDK-Common-0a3eca317134e14282153c851f0dcdc6a8a54282.tar perl-MDK-Common-0a3eca317134e14282153c851f0dcdc6a8a54282.tar.gz perl-MDK-Common-0a3eca317134e14282153c851f0dcdc6a8a54282.tar.bz2 perl-MDK-Common-0a3eca317134e14282153c851f0dcdc6a8a54282.tar.xz perl-MDK-Common-0a3eca317134e14282153c851f0dcdc6a8a54282.zip | |
*** empty log message ***
Diffstat (limited to 'perl_checker.src/perl_checker.ml')
| -rw-r--r-- | perl_checker.src/perl_checker.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/perl_checker.ml b/perl_checker.src/perl_checker.ml index 78dc2d5..d5d4945 100644 --- a/perl_checker.src/perl_checker.ml +++ b/perl_checker.src/perl_checker.ml @@ -67,6 +67,6 @@ let parse_options = let usage = "Usage: perl_checker [-v] [-q] <files>\nOptions are:" in Arg.parse options (lpush args_r) usage; - let args = if !args_r = [] then ["../t.pl"] else !args_r in + let args = if !args_r = [] then (Unix.chdir "/home/pixel/cooker/gi/perl-install" ; ["/home/pixel/cooker/gi/perl-install/t.pl"]) else !args_r in let state = List.fold_left parse_file default_state args in List.iter (check_tree state) (List.map snd state.per_package) |