fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed temp file again

Browse Source
This commit is contained in:
John Whitington
2018-02-13 18:05:48 +00:00
parent 5385295c7c
commit 3f9f5a3742
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
cpdfcommand.ml
View File

@@ -2314,6 +2314,7 @@ let write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf =
really_write_pdf ~encryption ~is_decompress mk_id pdf outname
end
| Stdout ->
(* FIXME Do not use a temp file if not calling cpdflin *)
let temp = Filename.temp_file "cpdfstdout" ".pdf" in
begin match encryption with
None ->
@@ -2334,7 +2335,7 @@ let write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf =
assert false
with
End_of_file ->
begin try Sys.remove temp with
begin try close_out temp_file; Sys.remove temp with
e -> Printf.eprintf "Failed to remove temp file %s (%s)\n" temp (Printexc.to_string e)
end;
flush stdout (*r For Windows *)