9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-07 05:53:37 +01:00

Exclude temp files in tar

This commit is contained in:
Anthony Scemama 2019-08-02 13:03:14 +02:00
parent 2c0ad8ccc5
commit a8a43100a5

View File

@ -330,7 +330,7 @@ let () =
match arg with match arg with
| EZFIO x -> | EZFIO x ->
begin begin
Printf.sprintf "tar -zcf %s %s" temp_file x Printf.sprintf "tar --exclude=\"*.gz.*\" -zcf %s %s" temp_file x
|> Sys.command |> ignore; |> Sys.command |> ignore;
let fd = let fd =
Unix.openfile temp_file [Unix.O_RDONLY] 0o640 Unix.openfile temp_file [Unix.O_RDONLY] 0o640