From 1641eba327caa7cbc29de4453bd42ebd8912d962 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 17 May 2021 16:51:00 +0000
Subject: [PATCH] fpexif: Avoid raising an exception  when IPTC is present but
 has zero length. Issue #38876.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8034 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpexif/fpeiptcreadwrite.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/fpexif/fpeiptcreadwrite.pas b/components/fpexif/fpeiptcreadwrite.pas
index 8053669d4..68ae3bed8 100644
--- a/components/fpexif/fpeiptcreadwrite.pas
+++ b/components/fpexif/fpeiptcreadwrite.pas
@@ -274,7 +274,7 @@ var
 begin
   FImgInfo.IptcData.Clear;
   if Length(ABuffer) = 0 then begin
-    Error(rsIptcDataExpected);
+    // IPTC block available but has zero length
     exit;
   end;