diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-09-30 20:55:11 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-09-30 20:55:11 +0000 |
| commit | 8465c1513276ddfab59ed7578049cebf167b71fc (patch) | |
| tree | 4ad27e47c238cd4c814e7d8d146fe5a2148effc9 /perl_checker.src/perl_checker.ml | |
| parent | 98004c4ce6b1853dfd86c8060a049094afb4de93 (diff) | |
| download | perl-MDK-Common-8465c1513276ddfab59ed7578049cebf167b71fc.tar perl-MDK-Common-8465c1513276ddfab59ed7578049cebf167b71fc.tar.gz perl-MDK-Common-8465c1513276ddfab59ed7578049cebf167b71fc.tar.bz2 perl-MDK-Common-8465c1513276ddfab59ed7578049cebf167b71fc.tar.xz perl-MDK-Common-8465c1513276ddfab59ed7578049cebf167b71fc.zip | |
display relative file names when nicer
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 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 |