From 24f597a7ea48b0fbab6e0541d65390035be66e89 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 10 Nov 2003 10:27:16 +0000 Subject: fix absolute_file_to_file (do allow filename to be ../../xxx) --- perl_checker.src/info.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl_checker.src') 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 -- cgit v1.2.1