diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-11-10 10:27:16 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-11-10 10:27:16 +0000 |
commit | 342e892f950469e66f000802b7327220e55cbcc9 (patch) | |
tree | 7f6c282e586c436cdad3dfa96675079db494db61 /perl_checker.src/info.ml | |
parent | cd81d6e1b082d458d55e22cf27abc12e510aa442 (diff) | |
download | perl-MDK-Common-342e892f950469e66f000802b7327220e55cbcc9.tar perl-MDK-Common-342e892f950469e66f000802b7327220e55cbcc9.tar.gz perl-MDK-Common-342e892f950469e66f000802b7327220e55cbcc9.tar.bz2 perl-MDK-Common-342e892f950469e66f000802b7327220e55cbcc9.tar.xz perl-MDK-Common-342e892f950469e66f000802b7327220e55cbcc9.zip |
fix absolute_file_to_file (do allow filename to be ../../xxx)
Diffstat (limited to 'perl_checker.src/info.ml')
-rw-r--r-- | perl_checker.src/info.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/info.ml b/perl_checker.src/info.ml index eb32142..d872ca7 100644 --- a/perl_checker.src/info.ml +++ b/perl_checker.src/info.ml @@ -29,7 +29,7 @@ let file_to_absolute_file file = let absolute_file_to_file = let s1 = Filename.dirname cwd in if String.length s1 < 4 then (fun x -> x) else - let s2 = Filename.dirname cwd in + let s2 = Filename.dirname s1 in let short_cwd = if String.length s2 < 4 then s1 else s2 in memoize (fun abs_file -> if str_begins_with abs_file (short_cwd ^ "/") then |