From c8343eb58ad633426335e5bb3f1d0d1a89730a46 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 25 Nov 2002 23:02:05 +0000 Subject: *** empty log message *** --- perl_checker.src/perl_checker.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl_checker.src/perl_checker.ml') 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] \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) -- cgit v1.2.1