fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed temp file again

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