exiftool-vendored.pl 12.62.0 → 12.67.0

package/bin/lib/Image/ExifTool/Apple.pm

@@ -16,7 +16,7 @@ use vars qw($VERSION);
 use Image::ExifTool::Exif;
 use Image::ExifTool::PLIST;
 
-$VERSION = '1.08';
+$VERSION = '1.11';
 
 sub ConvertPLIST($$);
 
@@ -110,24 +110,32 @@ sub ConvertPLIST($$);
     },
     # 0x0010 - int32s: 1 (SphereStatus, ref 2)
     0x0011 => { # (if defined, there is a live photo associated with the video, #forum13565) (AssetIdentifier, ref 2)
-        Name => 'MediaGroupUUID', #NealKrawetz private communication
-        # (changed in 12.19 from Name => 'ContentIdentifier', #forum8750)
+        Name => 'ContentIdentifier',
+        Notes => 'called MediaGroupUUID when it appears as an XAttr',
+        # - originally called ContentIdentifier, forum8750
+        # - changed in 12.19 to MediaGroupUUID, NealKrawetz private communication
+        # - changed back to ContentIdentifier since Apple writes this to Keys content.identifier (forum14874)
         Writable => 'string',
+        
     },
     # 0x0012 - (QRMOutputType, ref 2)
     # 0x0013 - (SphereExternalForceOffset, ref 2)
     0x0014 => { # (StillImageCaptureType, ref 2)
         Name => 'ImageCaptureType',
         Writable => 'int32s',
-        Unknown => 1, # (don't know what the values mean)
         # seen: 1,2,3,4,5,10,12
+        PrintConv => { #forum15096
+            1 => 'ProRAW',
+            2 => 'Portrait',
+            10 => 'Photo',
+        },
     },
     0x0015 => { # (ImageGroupIdentifier, ref 2)
         Name => 'ImageUniqueID',
         Writable => 'string',
     },
     # 0x0016 - string[29]: "AXZ6pMTOh2L+acSh4Kg630XCScoO\0" (PhotosOriginatingSignature, ref 2)
-    0x0017 => { #forum13565 (only valid if MediaGroupUUID exists) (StillImageCaptureFlags, ref 2)
+    0x0017 => { #forum13565 (only valid if MediaGroupUUID/ContentIdentifier exists) (StillImageCaptureFlags, ref 2)
         Name => 'LivePhotoVideoIndex',
         Notes => 'divide by RunTimeScale to get time in seconds',
     },
@@ -153,7 +161,7 @@ sub ConvertPLIST($$);
     # 0x001e - (OriginatingAppID, ref 2)
     # 0x001f - int32s: 0,1 (PhotosAppFeatureFlags, ref 2)
     0x0020 => { # (ImageCaptureRequestIdentifier, ref 2)
-        Name => 'ImageCaptureReqestID',
+        Name => 'ImageCaptureRequestID',
         Writable => 'string',
         Unknown => 1,
     },
@@ -182,7 +190,10 @@ sub ConvertPLIST($$);
     # 0x0028 - int32s (UBMethod, ref 2)
     # 0x0029 - string (SpatialOverCaptureGroupIdentifier, ref 2)
     # 0x002A - (iCloudServerSoftwareVersionForDynamicallyGeneratedMedia, ref 2)
-    # 0x002B - (PhotoIdentifier, ref 2)
+    0x002b => {
+        Name => 'PhotoIdentifier', #2
+        Writable => 'string',
+    },
     # 0x002C - (SpatialOverCaptureImageType, ref 2)
     # 0x002D - (CCT, ref 2)
     # 0x002E - (ApsMode, ref 2)
@@ -308,7 +319,7 @@ sub ConvertPLIST($$)
     $val = $$dirInfo{Value};
     if (ref $val eq 'HASH' and not $et->Options('Struct')) {
         require 'Image/ExifTool/XMPStruct.pl';
-        $val = Image::ExifTool::XMP::SerializeStruct($val);
+        $val = Image::ExifTool::XMP::SerializeStruct($et, $val);
     }
     return $val;
 }

package/bin/lib/Image/ExifTool/BigTIFF.pm

@@ -15,7 +15,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.07';
+$VERSION = '1.08';
 
 my $maxOffset = 0x7fffffff; # currently supported maximum data offset/size
 
@@ -216,6 +216,13 @@ sub ProcessBigIFD($$$)
         $dirStart = Image::ExifTool::Get64u(\$nextIFD, 0);
         $dirStart or last;
         $offName = $nextOffName;
+        # protect against infinite loop
+        if ($$et{PROCESSED}{$dirStart}) {
+            $et->Warn("$dirName pointer references previous $$et{PROCESSED}{$dirStart} directory");
+            last;
+        } else {
+            $$et{PROCESSED}{$dirStart} = $dirName;
+        }
     }
     return 1;
 }

package/bin/lib/Image/ExifTool/Canon.pm

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '4.66';
+$VERSION = '4.68';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -608,18 +608,24 @@ $VERSION = '4.66';
    '61182.33' => 'Canon RF 400mm F2.8L IS USM + RF1.4x', #IB
    '61182.34' => 'Canon RF 400mm F2.8L IS USM + RF2x', #IB
    '61182.35' => 'Canon RF 600mm F4L IS USM', #GiaZopatti
-   '61182.36' => 'Canon RF 15-30mm F4.5-6.3 IS STM', #42
-   '61182.37' => 'Canon RF 800mm F5.6L IS USM', #42
-   '61182.38' => 'Canon RF 800mm F5.6L IS USM + RF1.4x', #42
-   '61182.39' => 'Canon RF 800mm F5.6L IS USM + RF2x', #42
-   '61182.40' => 'Canon RF 1200mm F8L IS USM', #42
-   '61182.41' => 'Canon RF 1200mm F8L IS USM + RF1.4x', #42
-   '61182.42' => 'Canon RF 1200mm F8L IS USM + RF2x', #42
-   '61182.43' => 'Canon RF 135mm F1.8 L IS USM', #42
-   '61182.44' => 'Canon RF 24-50mm F4.5-6.3 IS STM', #42
-   '61182.45' => 'Canon RF-S 55-210mm F5-7.1 IS STM', #42
+   '61182.36' => 'Canon RF 600mm F4L IS USM + RF1.4x', #42
+   '61182.37' => 'Canon RF 600mm F4L IS USM + RF2x', #42
+   '61182.38' => 'Canon RF 15-30mm F4.5-6.3 IS STM', #42
+   '61182.39' => 'Canon RF 800mm F5.6L IS USM', #42
+   '61182.40' => 'Canon RF 800mm F5.6L IS USM + RF1.4x', #42
+   '61182.41' => 'Canon RF 800mm F5.6L IS USM + RF2x', #42
+   '61182.42' => 'Canon RF 1200mm F8L IS USM', #42
+   '61182.43' => 'Canon RF 1200mm F8L IS USM + RF1.4x', #42
+   '61182.44' => 'Canon RF 1200mm F8L IS USM + RF2x', #42
+   '61182.45' => 'Canon RF 135mm F1.8 L IS USM', #42
+   '61182.46' => 'Canon RF 24-50mm F4.5-6.3 IS STM', #42
+   '61182.47' => 'Canon RF-S 55-210mm F5-7.1 IS STM', #42
+   '61182.48' => 'Canon RF 100-300mm F2.8L IS USM', #42
+   '61182.49' => 'Canon RF 100-300mm F2.8L IS USM + RF1.4x', #42
+   '61182.50' => 'Canon RF 100-300mm F2.8L IS USM + RF2x', #42
+   '61182.51' => 'Canon RF 28mm F2.8 STM', #42
     # we need the RFLensType values for the following...
-   '61182.46' => 'Canon RF 5.2mm F2.8L Dual Fisheye 3D VR', #PH (NC)
+   '61182.52' => 'Canon RF 5.2mm F2.8L Dual Fisheye 3D VR', #PH (NC)
     65535 => 'n/a',
 );
 
@@ -983,6 +989,8 @@ $VERSION = '4.66';
     0x80000480 => 'EOS R50', #42
     0x80000481 => 'EOS R6 Mark II', #42
     0x80000487 => 'EOS R8', #42
+    0x80000491 => 'PowerShot V10', #25
+    0x80000498 => 'EOS R100', #25
     0x80000520 => 'EOS D2000C', #IB
     0x80000560 => 'EOS D6000C', #PH (guess)
 );
@@ -1696,6 +1704,12 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
         # Writable => 'int32u',
         # Protected => 2,
     },
+    0x82 => { #github219 (found on 1DS)
+         Name => 'RawDataLength',
+         # (can't yet write 1DS raw files)
+         # Writable => 'int32u',
+         # Protected => 2,
+    },
     0x83 => { #PH
         Name => 'OriginalDecisionDataOffset',
         Writable => 'int32u',
@@ -2092,6 +2106,7 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
             TagTable => 'Image::ExifTool::Canon::AFConfig',
         }
     },
+  # 0x402b - crop information (forum14904)
     0x403f => { #25
         Name => 'RawBurstModeRoll',
         SubDirectory => {
@@ -6856,6 +6871,8 @@ my %ciMaxFocal = (
             290 => 'Canon RF 400mm F2.8L IS USM + RF1.4x', #IB
             291 => 'Canon RF 400mm F2.8L IS USM + RF2x', #IB
             292 => 'Canon RF 600mm F4L IS USM', #GiaZopatti
+            293 => 'Canon RF 600mm F4L IS USM + RF1.4x', #42
+            294 => 'Canon RF 600mm F4L IS USM + RF2x', #42
             295 => 'Canon RF 800mm F5.6L IS USM', #42
             296 => 'Canon RF 800mm F5.6L IS USM + RF1.4x', #42
             297 => 'Canon RF 800mm F5.6L IS USM + RF2x', #42
@@ -6866,6 +6883,10 @@ my %ciMaxFocal = (
             303 => 'Canon RF 135mm F1.8 L IS USM', #42
             304 => 'Canon RF 24-50mm F4.5-6.3 IS STM', #42
             305 => 'Canon RF-S 55-210mm F5-7.1 IS STM', #42
+            306 => 'Canon RF 100-300mm F2.8L IS USM', #42
+            307 => 'Canon RF 100-300mm F2.8L IS USM + RF1.4x', #42
+            308 => 'Canon RF 100-300mm F2.8L IS USM + RF2x', #42
+            313 => 'Canon RF 28mm F2.8 STM', #42
             # Note: add new RF lenses to %canonLensTypes with ID 61182
         },
     },

package/bin/lib/Image/ExifTool/CanonRaw.pm

@@ -21,7 +21,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::Canon;
 
-$VERSION = '1.60';
+$VERSION = '1.61';
 
 sub WriteCRW($$);
 sub ProcessCanonRaw($$$);
@@ -698,9 +698,9 @@ sub ProcessCanonRaw($$$)
                           $format ne 'string' and not $subdir;
         } else {
             $valueDataPos = $ptr;
-            # do MD5 of image data if requested
-            if ($$et{ImageDataMD5} and $tagID == 0x2005) {
-                $raf->Seek($ptr, 0) and $et->ImageDataMD5($raf, $size, 'raw');
+            # do hash of image data if requested
+            if ($$et{ImageDataHash} and $tagID == 0x2005) {
+                $raf->Seek($ptr, 0) and $et->ImageDataHash($raf, $size, 'raw');
             }
             if ($size <= 512 or ($verbose > 2 and $size <= 65536)
                 or ($tagInfo and ($$tagInfo{SubDirectory}

package/bin/lib/Image/ExifTool/CanonVRD.pm

@@ -23,7 +23,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Canon;
 
-$VERSION = '1.35';
+$VERSION = '1.36';
 
 sub ProcessCanonVRD($$;$);
 sub WriteCanonVRD($$;$);
@@ -187,6 +187,7 @@ my $blankFooter = "CANON OPTIONAL DATA\0" . ("\0" x 42) . "\xff\xd9";
     WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     WRITABLE => 1,
+    PERMANENT => 1, # (can't add/delete these individually)
     FIRST_ENTRY => 0,
     GROUPS => { 2 => 'Image' },
     DATAMEMBER => [ 0x002 ],   # necessary for writing
@@ -485,6 +486,7 @@ my $blankFooter = "CANON OPTIONAL DATA\0" . ("\0" x 42) . "\xff\xd9";
     WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     WRITABLE => 1,
+    PERMANENT => 1, # (can't add/delete these individually)
     FIRST_ENTRY => 0,
     FORMAT => 'int16s',
     DATAMEMBER => [ 0x58, 0xdc, 0xdf, 0xe0 ], # (required for DataMember and var-format tags)
@@ -999,6 +1001,7 @@ my $blankFooter = "CANON OPTIONAL DATA\0" . ("\0" x 42) . "\xff\xd9";
     PROCESS_PROC => \&ProcessDR4,
     WRITE_PROC => \&ProcessDR4,
     WRITABLE => 1,
+    PERMANENT => 1, # (can't add/delete these individually)
     GROUPS => { 1 => 'CanonDR4', 2 => 'Image' },
     VARS => { HEX_ID => 1, SORT_PROC => \&SortDR4 },
     NOTES => q{

package/bin/lib/Image/ExifTool/Exif.pm

@@ -43,6 +43,7 @@
 #              30) http://geotiff.maptools.org/spec/geotiffhome.html
 #              31) https://android.googlesource.com/platform/external/dng_sdk/+/refs/heads/master/source/dng_tag_codes.h
 #              32) Jeffry Friedl private communication
+#              33) https://www.cipa.jp/std/documents/download_e.html?DC-008-Translation-2023-E (Exif 3.0)
 #              IB) Iliah Borg private communication (LibRaw)
 #              JD) Jens Duttke private communication
 #------------------------------------------------------------------------------
@@ -65,7 +66,7 @@ sub RebuildMakerNotes($$$);
 sub EncodeExifText($$);
 sub ValidateIFD($;$);
 sub ValidateImageData($$$;$);
-sub AddImageDataMD5($$$);
+sub AddImageDataHash($$$);
 sub ProcessTiffIFD($$$);
 sub PrintParameter($$$);
 sub GetOffList($$$$$);
@@ -79,6 +80,7 @@ sub BINARY_DATA_LIMIT { return 10 * 1024 * 1024; }
 
 # byte sizes for the various EXIF format types below
 @formatSize = (undef,1,1,2,4,8,1,1,2,4,8,4,8,4,2,8,8,8,8);
+$formatSize[129] = 1; # (Exif 3.0)
 
 @formatName = (
      undef,    'int8u',      'string',     'int16u',
@@ -87,6 +89,7 @@ sub BINARY_DATA_LIMIT { return 10 * 1024 * 1024; }
     'double',  'ifd',        'unicode',    'complex',
     'int64u',  'int64s',     'ifd64', # (new BigTIFF formats)
 );
+$formatName[129] = 'utf8';  # (Exif 3.0)
 
 # hash to look up EXIF format numbers by name
 # (format types are all lower case)
@@ -110,6 +113,7 @@ sub BINARY_DATA_LIMIT { return 10 * 1024 * 1024; }
     'int64u'      => 16, # LONG8 [BigTIFF]
     'int64s'      => 17, # SLONG8 [BigTIFF]
     'ifd64'       => 18, # IFD8 (with int64u format) [BigTIFF]
+    'utf8'        => 129,# UTF-8 (Exif 3.0)
     # Note: unicode and complex types are not yet properly supported by ExifTool.
     # These are types which have been observed in the Adobe DNG SDK code, but
     # aren't fully supported there either.  We know the sizes, but that's about it.
@@ -2823,6 +2827,13 @@ my %opcodeInfo = (
     0xa433 => { Name => 'LensMake',         Writable => 'string' }, #24
     0xa434 => { Name => 'LensModel',        Writable => 'string' }, #24
     0xa435 => { Name => 'LensSerialNumber', Writable => 'string' }, #24
+    0xa436 => { Name => 'Title',            Writable => 'string', Avoid => 1 }, #33
+    0xa437 => { Name => 'Photographer',     Writable => 'string' }, #33
+    0xa438 => { Name => 'ImageEditor',      Writable => 'string' }, #33
+    0xa439 => { Name => 'CameraFirmware',          Writable => 'string' }, #33
+    0xa43a => { Name => 'RAWDevelopingSoftware',   Writable => 'string' }, #33
+    0xa43b => { Name => 'ImageEditingSoftware',    Writable => 'string' }, #33
+    0xa43c => { Name => 'MetadataEditingSoftware', Writable => 'string' }, #33
     0xa460 => { #Exif2.32
         Name => 'CompositeImage',
         Writable => 'int16u',
@@ -4910,10 +4921,10 @@ my %subSecConv = (
         Writable => 1,
         Protected => 1,
         WriteAlso => {
-            GPSLatitude => '(defined $val and $val =~ /(.*?)( ?[NS])?,/) ? $1 : undef',
-            GPSLatitudeRef => '(defined $val and $val =~ /(-?)(.*?) ?([NS]?),/) ? ($3 || ($1 ? "S" : "N")) : undef',
-            GPSLongitude => '(defined $val and $val =~ /, ?(.*?)( ?[EW]?)$/) ? $1 : undef',
-            GPSLongitudeRef => '(defined $val and $val =~ /, ?(-?)(.*?) ?([EW]?)$/) ? ($3 || ($1 ? "W" : "E")) : undef',
+            GPSLatitude => '(defined $val and $val =~ /(.*) /) ? $1 : undef',
+            GPSLatitudeRef => '(defined $val and $val =~ /(-?)(.*?) /) ? ($1 ? "S" : "N") : undef',
+            GPSLongitude => '(defined $val and $val =~ / (.*)$/) ? $1 : undef',
+            GPSLongitudeRef => '(defined $val and $val =~ / (-?)/) ? ($1 ? "W" : "E") : undef',
         },
         PrintConvInv => q{
             return undef unless $val =~ /(.*? ?[NS]?), ?(.*? ?[EW]?)$/;
@@ -4921,7 +4932,7 @@ my %subSecConv = (
             require Image::ExifTool::GPS;
             $lat = Image::ExifTool::GPS::ToDegrees($lat, 1, "lat");
             $lon = Image::ExifTool::GPS::ToDegrees($lon, 1, "lon");
-            return "$lat, $lon";
+            return "$lat $lon";
         },
         Require => {
             0 => 'GPSLatitude',
@@ -5929,12 +5940,12 @@ sub ProcessExif($$$)
     my ($verbose,$validate,$saveFormat) = @{$$et{OPTIONS}}{qw(Verbose Validate SaveFormat)};
     my $htmlDump = $$et{HTML_DUMP};
     my $success = 1;
-    my ($tagKey, $dirSize, $makerAddr, $strEnc, %offsetInfo, $offName, $nextOffName, $doMD5);
+    my ($tagKey, $dirSize, $makerAddr, $strEnc, %offsetInfo, $offName, $nextOffName, $doHash);
     my $inMakerNotes = $$tagTablePtr{GROUPS}{0} eq 'MakerNotes';
     my $isExif = ($tagTablePtr eq \%Image::ExifTool::Exif::Main);
 
-    # set flag to calculate image data MD5 if requested
-    $doMD5 = 1 if $$et{ImageDataMD5} and (($$et{FILE_TYPE} eq 'TIFF' and not $base and not $inMakerNotes) or
+    # set flag to calculate image data hash if requested
+    $doHash = 1 if $$et{ImageDataHash} and (($$et{FILE_TYPE} eq 'TIFF' and not $base and not $inMakerNotes) or
         ($$et{FILE_TYPE} eq 'RAF' and $dirName eq 'FujiIFD'));
 
     # set encoding to assume for strings
@@ -6088,7 +6099,7 @@ sub ProcessExif($$$)
         my $format = Get16u($dataPt, $entry+2);
         my $count = Get32u($dataPt, $entry+4);
         # (Apple uses the BigTIFF format code 16 in the maker notes of their ProRaw DNG files)
-        if (($format < 1 or $format > 13) and not ($format == 16 and $$et{Make} eq 'Apple' and $inMakerNotes)) {
+        if (($format < 1 or $format > 13) and $format != 129 and not ($format == 16 and $$et{Make} eq 'Apple' and $inMakerNotes)) {
             if ($mapFmt and $$mapFmt{$format}) {
                 $format = $$mapFmt{$format};
             } else {
@@ -6404,7 +6415,13 @@ sub ProcessExif($$$)
                 # convert according to specified format
                 $val = ReadValue($valueDataPt,$valuePtr,$formatStr,$count,$readSize,\$rational);
                 # re-code if necessary
-                $val = $et->Decode($val, $strEnc) if $strEnc and $formatStr eq 'string' and defined $val;
+                if (defined $val) {
+                    if ($formatStr eq 'utf8') {
+                        $val = $et->Decode($val, 'UTF8');
+                    } elsif ($strEnc and $formatStr eq 'string') {
+                        $val = $et->Decode($val, $strEnc);
+                    }
+                }
             }
         }
 
@@ -6781,7 +6798,7 @@ sub ProcessExif($$$)
             }
             $val = join(' ', @vals);
         }
-        if ($validate or $doMD5) {
+        if ($validate or $doHash) {
             if ($$tagInfo{OffsetPair}) {
                 $offsetInfo{$tagID} = [ $tagInfo, $val ];
             } elsif ($saveForValidate{$tagID} and $isExif) {
@@ -6800,8 +6817,8 @@ sub ProcessExif($$$)
     }
 
     if (%offsetInfo) {
-        # calculate image data MD5 if requested
-        AddImageDataMD5($et, $dirInfo, \%offsetInfo) if $doMD5;
+        # calculate image data hash if requested
+        AddImageDataHash($et, $dirInfo, \%offsetInfo) if $doHash;
         # validate image data offsets for this IFD (note: modifies %offsetInfo)
         Image::ExifTool::Validate::ValidateOffsetInfo($et, \%offsetInfo, $dirName, $inMakerNotes) if $validate;
     }

package/bin/lib/Image/ExifTool/FlashPix.pm

@@ -11,6 +11,7 @@
 #               4) http://msdn.microsoft.com/en-us/library/aa380374.aspx
 #               5) http://www.cpan.org/modules/by-authors/id/H/HC/HCARVEY/File-MSWord-0.1.zip
 #               6) https://msdn.microsoft.com/en-us/library/cc313153(v=office.12).aspx
+#               7) https://learn.microsoft.com/en-us/openspecs/office_file_formats/ms-oshared/3ef02e83-afef-4b6c-9585-c109edd24e07
 #------------------------------------------------------------------------------
 
 package Image::ExifTool::FlashPix;
@@ -21,7 +22,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::ASF;   # for GetGUID()
 
-$VERSION = '1.45';
+$VERSION = '1.46';
 
 sub ProcessFPX($$);
 sub ProcessFPXR($$$);
@@ -587,6 +588,7 @@ my %fpxFileType = (
         However, ExifTool will also extract any other information found in the
         UserDefined properties.
     },
+  # 0x01 => 'CodePage', #7
     0x02 => 'Category',
     0x03 => 'PresentationTarget',
     0x04 => 'Bytes',
@@ -631,12 +633,16 @@ my %fpxFileType = (
         Name => 'AppVersion',
         ValueConv => 'sprintf("%d.%.4d",$val >> 16, $val & 0xffff)',
     },
-  # 0x18 ? seen -1
+  # 0x18 ? seen -1 (DigitalSignature, VtDigSig format, ref 7)
   # 0x19 ? seen 0
   # 0x1a ? seen 0
   # 0x1b ? seen 0
   # 0x1c ? seen 0,1
   # 0x1d ? seen 1
+    0x1a => 'ContentType', #7, github#217
+    0x1b => 'ContentStatus', #7, github#217
+    0x1c => 'Language', #7, github#217
+    0x1d => 'DocVersion', #7, github#217
   # 0x1e ? seen 1
   # 0x1f ? seen 1,5
   # 0x20 ? seen 0,5

package/bin/lib/Image/ExifTool/FujiFilm.pm

@@ -31,7 +31,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.87';
+$VERSION = '1.89';
 
 sub ProcessFujiDir($$$);
 sub ProcessFaceRec($$$);
@@ -670,6 +670,7 @@ my %faceCategories = (
             0x800 => 'Classic Negative', #forum10536
             0x900 => 'Bleach Bypass', #forum10890
             0xa00 => 'Nostalgic Neg', #forum12085
+            0xb00 => 'Reala ACE', #forum15190
         },
     },
     0x1402 => { #2
@@ -897,6 +898,8 @@ my %faceCategories = (
             25 => 'Aircraft Cockpit',
             26 => 'Train Front',
             27 => 'Train Cockpit',
+            28 => 'Animal Head (28)', #forum15192
+            29 => 'Animal Body (29)', #forum15192
         },'REPEAT'],
     },
     # 0x4202 int8u[-1] - number of cooredinates in each rectangle? (ref 11)
@@ -1687,8 +1690,8 @@ sub ProcessRAF($$)
             my $tagTablePtr = GetTagTable('Image::ExifTool::FujiFilm::IFD');
             # this is TIFF-format data only for some models, so no warning if it fails
             unless ($et->ProcessTIFF(\%dirInfo, $tagTablePtr, \&Image::ExifTool::ProcessTIFF)) {
-                # do MD5 of image data if necessary
-                $et->ImageDataMD5($raf, $len, 'raw') if $$et{ImageDataMD5} and $raf->Seek($start,0);
+                # do hash of image data if necessary
+                $et->ImageDataHash($raf, $len, 'raw') if $$et{ImageDataHash} and $raf->Seek($start,0);
             }
             delete $$et{SET_GROUP1};
             $ifdNum = ($ifdNum || 1) + 1;

package/bin/lib/Image/ExifTool/GPS.pm

@@ -106,8 +106,10 @@ my %coordConv = (
                 return undef unless $inv and $val =~ /^([-+0-9])/;
                 return($1 eq '-' ? 1 : 0);
             },
-            0 => 'Above Sea Level',
-            1 => 'Below Sea Level',
+            0 => 'Above Sea Level', # (ellipsoidal surface, Exif 3.0)
+            1 => 'Below Sea Level', # (ellipsoidal surface, Exif 3.0)
+            # 2 => 'Above Sea Level', # (Exif 3.0)
+            # 3 => 'Below Sea Level', # (Exif 3.0)
         },
     },
     0x0006 => {
@@ -289,6 +291,7 @@ my %coordConv = (
         Name => 'GPSProcessingMethod',
         Writable => 'undef',
         Notes => 'values of "GPS", "CELLID", "WLAN" or "MANUAL" by the EXIF spec.',
+        # (or QZZSS, GALILEO, GLONASS, BEIDOU or NAVIC in Exif 3.0)
         RawConv => 'Image::ExifTool::Exif::ConvertExifText($self,$val,1,$tag)',
         RawConvInv => 'Image::ExifTool::Exif::EncodeExifText($self,$val)',
     },

package/bin/lib/Image/ExifTool/Geotag.pm

@@ -29,7 +29,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:Public);
 use Image::ExifTool::GPS;
 
-$VERSION = '1.71';
+$VERSION = '1.72';
 
 sub JITTER() { return 2 }       # maximum time jitter
 
@@ -224,6 +224,9 @@ sub LoadTrackLog($$;$)
         # determine file format
         if (not $format) {
             s/^\xef\xbb\xbf//;          # remove leading BOM if it exists
+            if (/^\xff\xfe|\xfe\xff/) {
+                return "ExifTool doesn't yet read UTF16-format track logs";
+            }
             if (/^<(\?xml|gpx)[\s>]/) { # look for XML or GPX header
                 $format = 'XML';
             # check for NMEA sentence
@@ -1106,7 +1109,7 @@ sub SetGeoValues($$;$)
                     $iExt = $i1;
                 }
                 if (abs($time - $tn) > $geoMaxExtSecs) {
-                    $err or $err = 'Time is too far from nearest GPS fix';
+                    $err or $err = 'Time is too far from nearest GPS fix'.' '.abs($time-$tn).' '.$geoMaxExtSecs;
                     $et->VPrint(2, '  Nearest fix:     ', PrintFixTime($tn), "\n") if $verbose > 2;
                     $fix = { } if $$geotag{DateTimeOnly};
                 } else {