if ($tagTablePtr eq \%Image::ExifTool::IPTC::Main) {
# calculate MD5 if Digest::MD5 is available (for standard IPTC only)
my $path = $exifTool->MetadataPath();
if (IsStandardIPTC($path)) {
my $md5;
if (eval 'require Digest::MD5') {
if ($pos or $dirLen != length($$dataPt)) {
$md5 = Digest::MD5::md5(substr $$dataPt, $pos, $dirLen);
} else {
$md5 = Digest::MD5::md5($$dataPt);
}
} else {
# a zero digest indicates IPTC exists but we don't have Digest::MD5
$md5 = "\0" x 16;
}
$exifTool->FoundTag('CurrentIPTCDigest', $md5);
} elsif ($Image::ExifTool::MWG::strict and $$exifTool{FILE_TYPE} =~ /^(JPEG|TIFF|PSD)$/) {
# ignore non-standard IPTC while in strict MWG compatibility mode
$exifTool->Warn("Ignored non-standard IPTC at $path");
return 1;
}
# set family 1 group name if multiple IPTC directories
my $dirCount = ($exifTool->{DIR_COUNT}->{IPTC} || 0) + 1;
$exifTool->{DIR_COUNT}->{IPTC} = $dirCount;
$exifTool->{SET_GROUP1} = '+' . $dirCount if $dirCount > 1;
}