Make clean play with AND

This commit is contained in:
John Whitington 2019-10-21 11:28:40 +01:00
parent 219b58e466
commit 153aed080a
1 changed files with 2 additions and 6 deletions

View File

@ -3675,12 +3675,8 @@ let go () =
_ -> soft_error "Malformed XRef table. Cannot determine number of revisions." _ -> soft_error "Malformed XRef table. Cannot determine number of revisions."
end end
| Some Clean -> | Some Clean ->
begin match args.out with
| (File _ | Stdout) ->
let pdf' = get_single_pdf (Some Clean) false in let pdf' = get_single_pdf (Some Clean) false in
write_pdf false pdf' write_pdf false pdf'
| _ -> error "Clean: No output specified"
end
| Some Info -> | Some Info ->
let pdf = get_single_pdf ~decrypt:true (Some Info) true in let pdf = get_single_pdf ~decrypt:true (Some Info) true in
let inname = match args.inputs with (InFile x, _, _, _, _, _)::_ -> x | _ -> "" in let inname = match args.inputs with (InFile x, _, _, _, _, _)::_ -> x | _ -> "" in