diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-10-01 11:59:57 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-10-01 11:59:57 +0000 |
commit | 1da65bfb78a24eacd6529df1b0710da46f8d4893 (patch) | |
tree | 579c41583a7bc7eff67a3f132b7077213dca1aec | |
parent | becd898e36e7a717d6a75ed7a80d3f0360092e65 (diff) | |
download | perl-MDK-Common-1da65bfb78a24eacd6529df1b0710da46f8d4893.tar perl-MDK-Common-1da65bfb78a24eacd6529df1b0710da46f8d4893.tar.gz perl-MDK-Common-1da65bfb78a24eacd6529df1b0710da46f8d4893.tar.bz2 perl-MDK-Common-1da65bfb78a24eacd6529df1b0710da46f8d4893.tar.xz perl-MDK-Common-1da65bfb78a24eacd6529df1b0710da46f8d4893.zip |
fix symbolic link dereference on "use"
-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 114684e..2ff19b3 100644 --- a/perl_checker.src/perl_checker.ml +++ b/perl_checker.src/perl_checker.ml @@ -56,7 +56,7 @@ and parse_package_if_needed per_files (package_name, pos) = (*print_endline_flush ("wondering about " ^ package_name) ;*) try let dir = findfile (Build.fake_packages_dir :: !use_lib) rel_file in - let file = dir ^ "/" ^ rel_file in + let file = Info.file_to_absolute_file (dir ^ "/" ^ rel_file) in Config_file.read_any (Filename.dirname file) (List.length splitted) ; let already_done = try |