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 | 0534eb2c7cf65db5d0e07e03b14d361f04df3e09 (patch) | |
| tree | f362a979c0ce9f07d8b4719863905a85cb137c08 /perl_checker.src/common.ml | |
| parent | b3e55b9596ad46d0411bae54194beeaa32aab585 (diff) | |
| download | perl-MDK-Common-0534eb2c7cf65db5d0e07e03b14d361f04df3e09.tar perl-MDK-Common-0534eb2c7cf65db5d0e07e03b14d361f04df3e09.tar.gz perl-MDK-Common-0534eb2c7cf65db5d0e07e03b14d361f04df3e09.tar.bz2 perl-MDK-Common-0534eb2c7cf65db5d0e07e03b14d361f04df3e09.tar.xz perl-MDK-Common-0534eb2c7cf65db5d0e07e03b14d361f04df3e09.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 |