Turn XMP data failure into warning

This commit is contained in:
John Whitington 2021-04-27 18:50:28 +01:00
parent 3a2b400a56
commit a37071fa9a
1 changed files with 6 additions and 2 deletions

View File

@ -3768,9 +3768,13 @@ let xmp_date date =
end
| _ -> raise Exit
end
| _ -> failwith (Printf.sprintf "xmp_date: Malformed date string (no year): %s" date)
| _ ->
Printf.eprintf "xmp_date: Malformed date string (no year): %s\n" date;
make_xmp_date_from_components d
end
| _ -> failwith (Printf.sprintf "xmp_date: Malformed date string (no prefix): %s" date)
| _ ->
Printf.eprintf "xmp_date: Malformed date string (no prefix): %s\n" date;
make_xmp_date_from_components d
with
Exit -> make_xmp_date_from_components d