From 26815d8c809e3ebe8a1f1d41cf8f4b28234089e6 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 30 Sep 2003 20:55:11 +0000 Subject: display relative file names when nicer --- 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 7aa1aff..114684e 100644 --- a/perl_checker.src/perl_checker.ml +++ b/perl_checker.src/perl_checker.ml @@ -103,7 +103,7 @@ let parse_options = Arg.parse options (lpush args_r) usage; let files = if !args_r = [] then ["../t.pl"] else !args_r in - let files = List.map file_to_absolute_file files in + let files = List.map Info.file_to_absolute_file files in let required_packages, per_files = collect_withenv (parse_file true None) (default_per_files()) files in let required_packages = uniq_ (fun (a,_) (b,_) -> a = b) required_packages in -- cgit v1.2.1