From 0534eb2c7cf65db5d0e07e03b14d361f04df3e09 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 13 Jan 2004 14:11:04 +0000 Subject: use a float to save the mtime since int overflows. this fixes the cache being used partially --- perl_checker.src/common.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl_checker.src/common.ml') diff --git a/perl_checker.src/common.ml b/perl_checker.src/common.ml index ddd6b08..6a3be82 100644 --- a/perl_checker.src/common.ml +++ b/perl_checker.src/common.ml @@ -859,7 +859,7 @@ let expand_symlinks file = ) (file ^ "/" ^ piece)) "" l | _ -> internal_error (Printf.sprintf "expand_symlinks: %s is relative\n" file) -let mtime f = int_of_float ((Unix.stat f).Unix.st_mtime) +let mtime f = (Unix.stat f).Unix.st_mtime let rec updir dir nb = if nb = 0 then dir else -- cgit v1.2.1