mirror of
https://github.com/johnwhitington/cpdf-source.git
synced 2025-06-05 22:09:39 +02:00
Close files properly
This commit is contained in:
@ -525,7 +525,8 @@ let jpeg_to_jpeg pdf ~pixel_threshold ~length_threshold ~percentage_threshold ~q
|
|||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
if !debug_image_processing then Printf.printf "no size reduction\n%!"
|
if !debug_image_processing then Printf.printf "no size reduction\n%!"
|
||||||
end
|
end;
|
||||||
|
close_in result
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
begin Printf.printf "external process failed\n%!" end;
|
begin Printf.printf "external process failed\n%!" end;
|
||||||
|
Reference in New Issue
Block a user