diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-13 14:11:04 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-13 14:11:04 +0000 |
commit | be8db69c2cb1b184265803ff6efb7be5e946a474 (patch) | |
tree | d4a4dc94e4db5e6747075aef2d9a59b6dd3a5d31 /perl_checker.src/common.ml | |
parent | 4eb762f8af4f23b0ff940f2e5760d5d58756d33f (diff) | |
download | perl_checker-be8db69c2cb1b184265803ff6efb7be5e946a474.tar perl_checker-be8db69c2cb1b184265803ff6efb7be5e946a474.tar.gz perl_checker-be8db69c2cb1b184265803ff6efb7be5e946a474.tar.bz2 perl_checker-be8db69c2cb1b184265803ff6efb7be5e946a474.tar.xz perl_checker-be8db69c2cb1b184265803ff6efb7be5e946a474.zip |
use a float to save the mtime since int overflows.
this fixes the cache being used partially
Diffstat (limited to 'perl_checker.src/common.ml')
-rw-r--r-- | perl_checker.src/common.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |