automake2junit.ml: use LargeFile to stat'ing files

While scanning the sources, some of the files (i.e. the cached
appliance) may be larger than 4G, and thus raise EOVERFLOW on 32bit
architectures.

Fixes commit b4e119d8b7.

(cherry picked from commit ba53251ab9)
This commit is contained in:
Pino Toscano
2018-03-01 10:14:32 +01:00
committed by Richard W.M. Jones
parent f7df2acc66
commit 3c0a77fbf7

View File

@@ -85,7 +85,7 @@ let find_trs basedir =
let rec work dirs files = function
| [] -> dirs, files
| ((_, full_x) as x) :: xs ->
match (Unix.lstat full_x).Unix.st_kind with
match (Unix.LargeFile.lstat full_x).Unix.LargeFile.st_kind with
| Unix.S_REG -> work dirs (x :: files) xs
| Unix.S_DIR -> work (x :: dirs) files xs
| _ -> work dirs files xs