exiftool_vendored 13.34.0 → 13.37.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: ee6400c2f7784efecc62e0876ee90696b3f523abbf6438ee5d3c60e56574ca11
-  data.tar.gz: 33c0b5f6228fc949cead6b4d357117227b7f5fe74a98cef2377cbfca6c8e9753
+  metadata.gz: e99939a853444d1ebc80ab2738cd08bc29f2945044aa74ff682a9205e7e2e878
+  data.tar.gz: 14cc3a3e709dd586a4d73d4056c52ee24e74c0020042ecba084211a17ce93381
 SHA512:
-  metadata.gz: 50d16f2dfe3be3a2c117f72f244da5b762fb7f876fec921e32f7347f002f50de235da85949121cde69175b9b0a6aa11094e80d7e3a720207c422c750f748a0f1
-  data.tar.gz: 5cc1844f04cf8a423af7e7e79403b9e817389cf7b357a482a64fa8c693d9b230018c090dcd722a9b9161e2df35184a421c5db984a2805033fc3e0b3e082b964b
+  metadata.gz: '098d4af617f88acbc7cba6dd401e894e6eac938b5475b889fab26de2c670aef6320040e3bb5acd1e951d06c95de022e6c76207e67c6f022117566efa13fca872'
+  data.tar.gz: 72e570d5b590d04d5a39de9c32698f3946c0f1c0b8bdac6d9010b6c0b94e0418100b6991d16601c5064a093a6d04867290ddc286ae76478e0cc87900a9adb2e3

data/bin/Changes

@@ -4,9 +4,63 @@ ExifTool Version History
 
 RSS feed: https://exiftool.org/rss.xml
 
-Note: The most recent production release is Version 13.30. (Other versions are
+Note: The most recent production release is Version 13.36. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+Sept. 22, 2025 - Version 13.37
+
+  - Added support for geotagging from Columbus GPS logger CSV files
+  - Added some new Canon, Sony and Olympus lenses (thanks Hubert Figuiere,
+    github #352 and Jos Roost)
+  - Added new Canon RFLensType and CanonModelID values (thanks Norbert Wasser
+    and Hubert Figuiere, github #350)
+  - Added a new FujiFilm FaceElementType value
+  - Decode Reconyx MicroFire and Hyperfire 4K maker notes (thanks Reconyx)
+  - Decode a number of new Canon and Pentax tags and add a number of new values
+    (thanks Karsten Gieselmann)
+  - Decode maker notes from Ricoh GR III videos
+  - Decode a new Sony tag (thanks Jos Roost)
+  - Decode Google HDRP maker notes
+  - Raised size limit on QuickTime atoms extracted for the -ee option, and added
+    a minor warning and allow bypassing with the -m option if over this limit
+  - Minor change to verbose output for XMP metadata
+  - Fixed possible hang/crash when reading Windows executables (github #351)
+  - Fixed incorrect FujiFilm PanoramaDirection values
+  - API Changes:
+      - Fixed GeoDir option so alternate languages are loaded properly when a
+        relative path is used
+
+Sept. 9, 2025 - Version 13.36 (production release)
+
+  - Added a new Nikon LensID (thanks Max, github #345)
+  - Added new Sony and Pentax camera ID's (thanks Hubert Figuiere, github #347)
+  - Tolerate 'junk' after 'WAVE' chunk in LA, PAC, OFR and WV audio files
+  - Use gnu tar 1.35 to build the .tar.gz distribution package (versions
+    13.31-13.35 used bsdtar 3.5.3, and earlier versions used bsdtar 2.8.3)
+
+Sept. 6, 2025 - Version 13.35 (production release)
+
+  - Added a new CanonModelID
+  - Added new Olympus PictureMode and LensType values (thanks Michael Meissner)
+  - Decode GPS from another DJI protobuf format (DJI Neo)
+  - Decode a few new FujiFilm tags
+  - Enhanced -ee option to extract M-RAW information from all images in FujiFilm
+    RAF files
+  - Improved handling of standard-format unknown XMP date/time tags when the API
+    XMPAutoConv option is set (which is the default) to put them in the "Time"
+    group and apply the -d date/time formatting
+  - Improved -fileNUM option so it may be used to access tags from alternate
+    files when the specified target FILE doesn't exist
+  - Improved print conversions for some Canon tags to handle "n/a" values
+  - Enhanced JSON long output (-j -l) so the API SaveBin option also returns the
+    Rational ("rat") value if available
+  - Changed -if option so the expression is evaluated even when the source file
+    doesn't exist (to allow more flexibily when using -fileNUM option or when
+    creating the output file when writing)
+  - Fixed decoding of a few new Pentax tags (thanks Karsten Gieselmann)
+  - Fixed -diff feature to report differences in binary-data values and to be
+    consistent with handling of backslashes in Windows path names
+
 Aug. 18, 2025 - Version 13.34
 
   - Decode a number of new Pentax tags (thanks Karsten Gieselmann)

data/bin/MANIFEST

@@ -87,6 +87,7 @@ html/TagNames/GM.html
 html/TagNames/GPS.html
 html/TagNames/GeoTiff.html
 html/TagNames/GoPro.html
+html/TagNames/Google.html
 html/TagNames/H264.html
 html/TagNames/HP.html
 html/TagNames/HTML.html
@@ -308,6 +309,7 @@ lib/Image/ExifTool/FujiFilm.pm
 lib/Image/ExifTool/GE.pm
 lib/Image/ExifTool/GIF.pm
 lib/Image/ExifTool/GIMP.pm
+lib/Image/ExifTool/Google.pm
 lib/Image/ExifTool/GM.pm
 lib/Image/ExifTool/GPS.pm
 lib/Image/ExifTool/GeoTiff.pm
@@ -645,6 +647,8 @@ t/Geotag_8.out
 t/Geotag_9.out
 t/GoPro.t
 t/GoPro_2.out
+t/Google.t
+t/Google_2.out
 t/HTML.t
 t/HTML_2.out
 t/ICO.t
@@ -1095,6 +1099,7 @@ t/images/Geotag2.log
 t/images/Geotag3.log
 t/images/Geotag_DJI_2020-12-02_[07-50-31].csv
 t/images/GoPro.jpg
+t/images/Google.jpg
 t/images/HTML.html
 t/images/ICC_Profile.icc
 t/images/ICO.ico

data/bin/META.json

@@ -50,6 +50,6 @@
       }
    },
    "release_status" : "stable",
-   "version" : "13.34",
+   "version" : "13.37",
    "x_serialization_backend" : "JSON::PP version 4.06"
 }

data/bin/META.yml

@@ -31,5 +31,5 @@ recommends:
   Time::HiRes: '0'
 requires:
   perl: '5.004'
-version: '13.34'
+version: '13.37'
 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

data/bin/Makefile.PL

@@ -46,6 +46,7 @@ WriteMakefile(
             },
         } ) : ()),
     clean         => { FILES => 't/*.tmp' },
+    dist          => { TAR => 'gtar' },
     EXE_FILES     => [ 'exiftool' ],
     ($] >= 5.005 ?
         (ABSTRACT_FROM => $ExifTool_pod,

data/bin/README

@@ -110,8 +110,8 @@ your home directory, then you would type the following commands in a
 terminal window to extract and run ExifTool:
 
   cd ~/Desktop
-  gzip -dc Image-ExifTool-13.34.tar.gz | tar -xf -
-  cd Image-ExifTool-13.34
+  gzip -dc Image-ExifTool-13.37.tar.gz | tar -xf -
+  cd Image-ExifTool-13.37
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 

data/bin/build_geolocation

@@ -16,6 +16,9 @@
 #                               under ActivePerl
 #               2024-04-29 - PH Added feature types and default to db v1.03
 #               2024-06-13 - PH Tweaked case of imported feature types
+#               2025-09-11 - PH Changed priority of alternate-language names to
+#                               use the preferred name if available and fixed
+#                               flag counts in verbose output
 #
 # Notes:        Requires these files from https://download.geonames.org/export/
 #
@@ -564,7 +567,8 @@ if (not $noLang and open INFILE, '<', "$dbdir/$altNamesFile") {
         $items[$_] and $flags |= (1<<($_-4)) foreach 4,5,6,7;
         $flags{$items[1]} = ( $flags{$items[1]} || 0 ) | $flags;
         next if $items[6] or $items[7]; # ignore colloquial and historic names
-        my $pri = $items[5] ? 0 : ($items[4] ? 1 : 2); # priority for best type of name
+        # give more weight to preferred name and less weight to short name
+        my $pri = ($items[4] ? 2 : 0) + ($items[5] ? 0 : 1);
         my $langPri = $bestPri{$lng};
         $langPri or $langPri = $bestPri{$lng} = { };
         next if $$langPri{$items[1]} and $$langPri{$items[1]} > $pri;
@@ -930,9 +934,9 @@ if ($noLang) {
             print "$type flags:\n";
             printf("  0x%.2x - %d\n", 0, $$flags{0} || 0);
             my @label = qw(preferred short colloquial historic);
-            foreach my $bit (0..5) {
+            foreach my $bit (0..3) {
                 my $n = 0;
-                $_ & (1<<$bit) and ++$n foreach keys %$flags;
+                $_ & (1<<$bit) and $n += $$flags{$_} foreach keys %$flags;
                 printf("  0x%.2x - %d (%s)\n", (1<<$bit), $n, shift(@label)) if $n;
             }
         }

data/bin/exiftool

@@ -11,7 +11,7 @@ use strict;
 use warnings;
 require 5.004;
 
-my $version = '13.34';
+my $version = '13.37';
 
 $^W = 1;    # enable global warnings
 
@@ -57,7 +57,7 @@ sub FormatJSON($$$;$);
 sub PrintCSV(;$);
 sub AddGroups($$$$);
 sub ConvertBinary($);
-sub IsEqual($$);
+sub IsEqual($$;$);
 sub Printable($);
 sub LengthUTF8($);
 sub Infile($;$);
@@ -969,6 +969,7 @@ for (;;) {
     if (/^diff$/i) {
         $diff = shift;
         defined $diff or Error("Expecting file name for -$_ option\n"), $badCmd=1;
+        CleanFilename($diff);   # change to forward slashes if necessary
         next;
     }
     /^delete_original(!?)$/i and $deleteOrig = ($1 ? 2 : 1), next;
@@ -2150,10 +2151,12 @@ sub GetImageInfo($$)
     # set alternate file names
     foreach $g8 (sort keys %altFile) {
         my $altName = $orig;
-        # must double any '$' symbols in the original file name because
-        # they are used for tag names in a -fileNUM argument
-        $altName =~ s/\$/\$\$/g;
-        $altName = FilenameSPrintf($altFile{$g8}, $altName);
+        unless ($altFile{$g8} eq '@') {
+            # must double any '$' symbols in the original file name because
+            # they are used for tag names in a -fileNUM argument
+            $altName =~ s/\$/\$\$/g;
+            $altName = FilenameSPrintf($altFile{$g8}, $altName);
+        }
         $et->SetAlternateFile($g8, $altName);
     }
 
@@ -2178,15 +2181,7 @@ sub GetImageInfo($$)
     }
     # evaluate -if expression for conditional processing
     if (@condition) {
-        unless ($file eq '-' or $et->Exists($file)) {
-            Warn "Error: File not found - $file\n";
-            EFile($file);
-            FileNotFound($file);
-            ++$countBad;
-            return;
-        }
         my $result;
-
         unless ($failCondition) {
             # catch run time errors as well as compile errors
             undef $evalWarning;
@@ -2225,7 +2220,10 @@ sub GetImageInfo($$)
             }
             undef @foundTags if $fastCondition; # ignore if we didn't get all tags
         }
-        unless ($result) {
+        if ($result) {
+            # discard $info for non-existent file
+            undef $info unless $file eq '-' or $et->Exists($file);
+        } else {
             Progress($vout, "-------- $file (failed condition)") if $verbose;
             EFile($file, 2);
             ++$countFailed;
@@ -2922,7 +2920,7 @@ TAG:    foreach $tag (@foundTags) {
                             $val = $et->GetValue($tag, 'ValueConv');
                             $val = '' unless defined $val;
                             # go back to print ValueConv value only if different
-                            next unless IsEqual($val, $lastVal);
+                            next unless IsEqual($val, $lastVal, 1);
                             print $fp "$descClose\n </$tok>";
                             last;
                         }
@@ -2959,7 +2957,7 @@ TAG:    foreach $tag (@foundTags) {
                         $$val{desc} = $desc;
                         if ($printConv) {
                             my $num = $et->GetValue($tag, 'ValueConv');
-                            $$val{num} = $num if defined $num and not IsEqual($num, $$val{val});
+                            $$val{num} = $num if defined $num and not IsEqual($num, $$val{val}, 1);
                         }
                         my $ex = $$et{TAG_EXTRA}{$tag};
                         $$val{'fmt'} = $$ex{G6} if defined $$ex{G6};
@@ -2972,6 +2970,7 @@ TAG:    foreach $tag (@foundTags) {
                                 $$val{'hex'} = join ' ', unpack '(H2)*', $$ex{BinVal};
                             }
                         }
+                        $$val{rat} = $$ex{Rational} if defined $$ex{Rational} and $$et{OPTIONS}{SaveBin};
                     }
                 }
                 FormatJSON($fp, $val, $ind, $quote);
@@ -3945,24 +3944,29 @@ sub ConvertBinary($)
 
 #------------------------------------------------------------------------------
 # Compare ValueConv and PrintConv values of a tag to see if they are equal
-# Inputs: 0) value1, 1) value2
+# Inputs: 0) value1, 1) value2, 2) flag to return true for any scalar references
 # Returns: true if they are equal
-sub IsEqual($$)
+sub IsEqual($$;$)
 {
-    my ($a, $b) = @_;
+    my ($a, $b, $trueScalar) = @_;
     # (scalar values are not print-converted)
-    return 1 if $a eq $b or ref $a eq 'SCALAR';
+    return 1 if $a eq $b;
+    if (ref $a eq 'SCALAR') {
+        return 1 if $trueScalar;
+        return 1 if ref $b eq 'SCALAR' and $$a eq $$b;
+        return 0;
+    }
     if (ref $a eq 'HASH' and ref $b eq 'HASH') {
         return 0 if scalar(keys %$a) != scalar(keys %$b);
         my $key;
         foreach $key (keys %$a) {
-            return 0 unless IsEqual($$a{$key}, $$b{$key});
+            return 0 unless IsEqual($$a{$key}, $$b{$key}, $trueScalar);
         }
     } else {
         return 0 if ref $a ne 'ARRAY' or ref $b ne 'ARRAY' or @$a != @$b;
         my $i;
         for ($i=0; $i<scalar(@$a); ++$i) {
-            return 0 unless IsEqual($$a[$i], $$b[$i]);
+            return 0 unless IsEqual($$a[$i], $$b[$i], $trueScalar);
         }
     }
     return 1;
@@ -4380,7 +4384,7 @@ sub FindFileWindows($$)
     # recode file name as UTF-8 if necessary
     my $enc = $et->Options('CharsetFileName');
     $wildfile = $et->Decode($wildfile, $enc, undef, 'UTF8') if $enc and $enc ne 'UTF8';
-    $wildfile =~ tr/\\/\//; # use forward slashes
+    CleanFilename($wildfile); # use forward slashes
     my ($dir, $wildname) = ($wildfile =~ m{(.*[:/])(.*)}) ? ($1, $2) : ('', $wildfile);
     if (HasWildcards($dir)) {
         Warn "Wildcards don't work in the directory specification\n";
@@ -4460,7 +4464,7 @@ sub AbsPath($)
             local $SIG{'__WARN__'} = sub { };
             $path = eval { Cwd::abs_path($file) };
         }
-        $path =~ tr/\\/\// if $^O eq 'MSWin32' and defined $path;   # use forward slashes
+        CleanFilename($path) if defined $path;  # use forward slashes
     }
     return $path;
 }
@@ -5901,13 +5905,15 @@ Adding the B<-D> or B<-H> option changes tag values to JSON objects with
 "val" and "id" fields.  Adding B<-l> adds a "desc" field, and a "num" field
 if the numerical value is different from the converted "val", and "fmt" and
 "hex" fields for EXIF metadata if the API SaveFormat and SaveBin options are
-set respectively, and the length of the "hex" output is limited by the API
-LimitLongValues setting.  The B<-b> option may be added to output binary
-data, encoded in base64 if necessary (indicated by ASCII "base64:" as the
-first 7 bytes of the value), and B<-t> may be added to include tag table
-information (see B<-t> for details).  The JSON output is UTF-8 regardless of
-any B<-L> or B<-charset> option setting, but the UTF-8 validation is
-disabled if a character set other than UTF-8 is specified.
+set respectively.  The length of the "hex" output is limited by the API
+LimitLongValues setting.  Setting the SaveBin option also causes the
+original values of Rational tags to be returned in string form as an extra
+"rat" field.  The B<-b> option may be added to output binary data, encoded
+in base64 if necessary (indicated by ASCII "base64:" as the first 7 bytes of
+the value), and B<-t> may be added to include tag table information (see
+B<-t> for details).  The JSON output is UTF-8 regardless of any B<-L> or
+B<-charset> option setting, but the UTF-8 validation is disabled if a
+character set other than UTF-8 is specified.
 
 Note that ExifTool quotes JSON values only if they don't look like numbers
 (regardless of the original storage format or the relevant metadata
@@ -6076,7 +6082,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 13.34 --
+    -- Generated by ExifTool 13.37 --
     File: a.jpg - 2003:10:31 15:44:19
     (f/5.6, 1/60s, ISO 100)
     File: b.jpg - 2006:05:23 11:57:38
@@ -7173,6 +7179,10 @@ Subtle note:  If a B<-tagsFromFile> option is used, tags in the I<ALTFILE>
 argument come from the I<SRCFILE> that applies to the first argument
 accessing tags from the corresponding C<FileNUM> group.
 
+I<ALTFILE> may also be C<@> to access tags from the specified I<FILE>, which
+may be useful when the B<-srcfile> option is used to process a different
+source file.
+
 User-defined Composite tags may access tags from alternate files using the
 appropriate (case-sensitive) family 8 group name.
 

data/bin/lib/Image/ExifTool/Audible.pm

@@ -88,7 +88,7 @@ sub ProcessAudible_cvrx($$$);
     PROCESS_PROC => \&ProcessAudible_cvrx,
     GROUPS => { 0 => 'QuickTime', 2 => 'Audio' },
     NOTES => 'Audible cover art information in M4B audio books.',
-    VARS => { NO_ID => 1 },
+    VARS => { ID_FMT => 'none' },
     CoverArtType => 'CoverArtType',
     CoverArt     => {
         Name => 'CoverArt',

data/bin/lib/Image/ExifTool/BMP.pm

@@ -234,7 +234,7 @@ my %fixed2_30 = (
 %Image::ExifTool::BMP::Extra = (
     GROUPS => { 0 => 'File', 1 => 'File', 2 => 'Image' },
     NOTES => 'Extra information extracted from some BMP images.',
-    VARS => { NO_ID => 1 },
+    VARS => { ID_FMT => 'none' },
     LinkedProfileName => { },
     ICC_Profile => { SubDirectory => { TagTable => 'Image::ExifTool::ICC_Profile::Main' } },
     EmbeddedJPG => {

data/bin/lib/Image/ExifTool/BuildTagLookup.pm

@@ -35,7 +35,7 @@ use Image::ExifTool::Sony;
 use Image::ExifTool::Validate;
 use Image::ExifTool::MacOS;
 
-$VERSION = '3.62';
+$VERSION = '3.63';
 @ISA = qw(Exporter);
 
 sub NumbersFirst($$);
@@ -109,6 +109,7 @@ my %tweakOrder = (
     'FujiFilm::RAFData' => 'FujiFilm::RAF',
     'QuickTime::AudioKeys' => 'QuickTime::Keys',
     'QuickTime::VideoKeys' => 'QuickTime::AudioKeys',
+    'Google::HDRPText' => 'Google::HDRPlusMakerNote',
 );
 
 # list of all recognized Format strings
@@ -867,15 +868,15 @@ sub new
         $longID{$tableName} = 0;
         $longName{$tableName} = 0;
         # save all tag names
-        my ($tagID, $binaryTable, $noID, $hexID, $isIPTC, $isXMP);
+        my ($tagID, $binaryTable, $noID, $prtID, $isIPTC, $isXMP);
         $isIPTC = 1 if $writeProc and $writeProc eq \&Image::ExifTool::IPTC::WriteIPTC;
         # generate flattened tag names for structure fields if this is an XMP table
         if ($$table{GROUPS} and $$table{GROUPS}{0} eq 'XMP' or $$vars{ADD_FLATTENED}) {
             Image::ExifTool::XMP::AddFlattenedTags($table);
             $isXMP = 1;
         }
-        $noID = 1 if $isXMP or $short =~ /^(Shortcuts|ASF.*)$/ or $$vars{NO_ID};
-        $hexID = $$vars{HEX_ID};
+        $prtID = $$vars{ID_FMT};
+        $noID = 1 if $isXMP or $short =~ /^(Shortcuts|ASF.*)$/ or $prtID and $prtID eq 'none';
         if ($$table{WRITE_PROC} and $$table{WRITE_PROC} eq \&Image::ExifTool::WriteBinaryData
             and not $$table{CHECK_PROC})
         {
@@ -1104,7 +1105,7 @@ TagID:  foreach $tagID (@keys) {
                         $note = 'NOT a flattened tag!';
                     } else {
                         # add note about different XMP Tag ID
-                        $note = $$tagInfo{RootTagInfo} ? $tagID : "called $tagID by the spec";
+                        $note = $$tagInfo{RootTagInfo} ? $tagID : "tag ID is '${tagID}'";
                     }
                     if ($$tagInfo{Notes}) {
                         $values[-1] =~ s/^\(/($note; /;
@@ -1492,8 +1493,14 @@ TagID:  foreach $tagID (@keys) {
             if ($tagID =~ /^(-)?\d+(\.\d+)?$/) {
                 if ($1) {
                     $tagIDstr = $tagID;
-                } elsif (defined $hexID) {
-                    $tagIDstr = $hexID ? sprintf('0x%.4x',$tagID) : $tagID;
+                } elsif (defined $prtID) {
+                    if ($prtID eq 'hex') {
+                        $tagIDstr = sprintf('0x%.4x',$tagID);
+                    } elsif ($prtID eq 'str') {
+                        $tagIDstr = "'${tagID}'";
+                    } else {
+                        $tagIDstr = $tagID;
+                    }
                 } elsif (not $2 and not $binaryTable and not $isIPTC and
                          not ($short =~ /^CanonCustom/ and $tagID < 256))
                 {
@@ -1911,7 +1918,7 @@ sub SortedTagTableKeys($)
     my $table = shift;
     my $vars = $$table{VARS} || { };
     my @keys = TagTableKeys($table);
-    if ($$vars{NO_ID}) {
+    if ($$vars{ID_FMT} and $$vars{ID_FMT} eq 'none') {
         # sort by tag name if ID not shown
         my ($key, %name);
         foreach $key (@keys) {

data/bin/lib/Image/ExifTool/CBOR.pm

@@ -62,7 +62,7 @@ my %cborType7 = (
 
 %Image::ExifTool::CBOR::Main = (
     GROUPS => { 0 => 'JUMBF', 1 => 'CBOR', 2 => 'Other' },
-    VARS => { NO_ID => 1 },
+    VARS => { ID_FMT => 'none' },
     PROCESS_PROC => \&ProcessCBOR,
     NOTES => q{
         The tags below are extracted from CBOR (Concise Binary Object

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

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '4.95';
+$VERSION = '4.97';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -561,7 +561,8 @@ $VERSION = '4.95';
     4159 => 'Canon EF-M 32mm f/1.4 STM', #42
     4160 => 'Canon EF-S 35mm f/2.8 Macro IS STM', #42
     4208 => 'Sigma 56mm f/1.4 DC DN | C or other Sigma Lens', #forum10603
-    4208.1 => 'Sigma 30mm F1.4 DC DN | C', #git issue#83 (016)
+    4208.1 => 'Sigma 30mm F1.4 DC DN | C', #github#83 (016)
+    6512 => 'Sigma 12mm F1.4 DC | C', #github#352 (025)
     # (Nano USM lenses - 0x90xx)
     36910 => 'Canon EF 70-300mm f/4-5.6 IS II USM', #42
     36912 => 'Canon EF-S 18-135mm f/3.5-5.6 IS USM', #42
@@ -640,6 +641,7 @@ $VERSION = '4.95';
    '61182.62' => 'Canon RF 50mm F1.4 L VCM', #42
    '61182.63' => 'Canon RF 24mm F1.4 L VCM', #42
    '61182.64' => 'Canon RF 20mm F1.4 L VCM', #42
+   '61182.65' => 'Canon RF 85mm F1.4 L VCM', #github350
     65535 => 'n/a',
 );
 
@@ -892,6 +894,7 @@ $VERSION = '4.95';
 
 # (see http://cweb.canon.jp/e-support/faq/answer/digitalcamera/10447-1.html for PowerShot/IXUS/IXY names)
 
+    0x40000227 => 'EOS C50', #github350
     0x4007d673 => 'DC19/DC21/DC22',
     0x4007d674 => 'XH A1',
     0x4007d675 => 'HV10',
@@ -1006,6 +1009,7 @@ $VERSION = '4.95';
     0x80000491 => 'PowerShot V10', #25
     0x80000495 => 'EOS R1', #PH
     0x80000496 => 'R5 Mark II', #forum16406
+    0x80000497 => 'PowerShot V1', #PH
     0x80000498 => 'EOS R100', #25
     0x80000516 => 'EOS R50 V', #42
     0x80000520 => 'EOS D2000C', #IB
@@ -7047,6 +7051,7 @@ my %ciMaxFocal = (
             325 => 'Canon RF 50mm F1.4 L VCM', #42
             326 => 'Canon RF 24mm F1.4 L VCM', #42
             327 => 'Canon RF 20mm F1.4 L VCM', #42
+            328 => 'Canon RF 85mm F1.4 L VCM', #42/github350
             # Note: add new RF lenses to %canonLensTypes with ID 61182
         },
     },
@@ -9124,7 +9129,7 @@ my %filterConv = (
         RawConv => '$val == 0x7fffffff ? undef : $val',
     },
     7 => {  # -4 to 4
-        Name => 'Saturation', 
+        Name => 'Saturation',
         RawConv => '$val == 0x7fffffff ? undef : $val',
         %Image::ExifTool::Exif::printParameter,
     },
@@ -9172,15 +9177,40 @@ my %filterConv = (
         Name => 'AFConfigTool',
         ValueConv => '$val + 1',
         ValueConvInv => '$val - 1',
-        PrintConv => '"Case $val"',
-        PrintConvInv => '$val=~/(\d+)/ ? $1 : undef',
+        PrintHex => 1,
+        PrintConv => {
+            11 => 'Case A',  #KG instead of 'Case 11'. Canon use A for Auto
+            0x80000000 => 'n/a',
+            OTHER => sub { 'Case ' . shift },
+        },
+        PrintConvInv => '$val=~/(\d+)/ ? $1 : 0x80000000',
+    },
+    2 => {
+        Name => 'AFTrackingSensitivity',
+        PrintHex => 1,
+        PrintConv => {
+            127 => 'Auto', #KG
+            0x7fffffff => 'n/a',
+            OTHER => sub { shift },
+        },
     },
-    2 => 'AFTrackingSensitivity',
     3 => {
         Name => 'AFAccelDecelTracking',
         Description => 'AF Accel/Decel Tracking',
+        PrintHex => 1,
+        PrintConv => {
+            127 => 'Auto', #KG
+            0x7fffffff => 'n/a',
+            OTHER => sub { shift },
+        },
+    },
+    4 => {
+        Name => 'AFPointSwitching',
+        PrintConv => {
+            0x7fffffff => 'n/a',
+            OTHER => sub { shift },
+        },
     },
-    4 => 'AFPointSwitching',
     5 => { #52
         Name => 'AIServoFirstImage',
         PrintConv => {
@@ -9330,6 +9360,7 @@ my %filterConv = (
             1 => 'People',
             2 => 'Animals',
             3 => 'Vehicles',
+            4 => 'Auto',  #KG (R1, R5m2)
         },
     },
     21 => { #github344 (R6)
@@ -9340,9 +9371,55 @@ my %filterConv = (
             2 => 'Switch Subject',
         },
     },
-    24 => { #forum16068
+    24 => { #forum16068  #KG extensions for 'left' and 'right'
         Name => 'EyeDetection',
-        PrintConv => \%offOn,
+        PrintConv => {
+            0 => 'Off',
+            1 => 'Auto',
+            2 => 'Left Eye',
+            3 => 'Right Eye',
+         },
+    },
+    # ---------------
+    # Entries 25..31 exist for recent models only (R1, R5m2, ...)
+    # ---------------
+    26 => { #KG
+        Name => 'WholeAreaTracking',
+        PrintConv => {
+            0 => 'Off',
+            1 => 'On',
+        },
+    },
+    27 => { #KG
+        Name => 'ServoAFCharacteristics',
+        PrintConv => {
+            0 => 'Case Auto',
+            1 => 'Case Manual',
+        },
+    },
+    28 => { #KG
+        Name => 'CaseAutoSetting',
+        PrintConv => {
+           -1 => 'Locked On',
+            0 => 'Standard',
+            1 => 'Responsive',
+            0x7fffffff => 'n/a',
+        },
+    },
+    29 => { #KG
+        Name => 'ActionPriority',
+        PrintConv => {
+            0 => 'Off',
+            1 => 'On',
+        },
+    },
+    30 => { #KG
+        Name => 'SportEvents',
+        PrintConv => {
+            0 => 'Soccer',
+            1 => 'Basketball',
+            2 => 'Volleyball',
+        }
     },
 );
 

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

@@ -1004,7 +1004,7 @@ my $blankFooter = "CANON OPTIONAL DATA\0" . ("\0" x 42) . "\xff\xd9";
     WRITABLE => 1,
     PERMANENT => 1, # (can't add/delete these individually)
     GROUPS => { 1 => 'CanonDR4', 2 => 'Image' },
-    VARS => { HEX_ID => 1, SORT_PROC => \&SortDR4 },
+    VARS => { ID_FMT => 'hex', SORT_PROC => \&SortDR4 },
     NOTES => q{
         Tags written by Canon DPP version 4 in CanonVRD trailers and DR4 files. Each
         tag has three associated flag words which are stored with the directory

data/bin/lib/Image/ExifTool/CaptureOne.pm

@@ -25,7 +25,7 @@ $VERSION = '1.04';
 %Image::ExifTool::CaptureOne::Main = (
     GROUPS => { 0 => 'XML', 1 => 'XML', 2 => 'Image' },
     PROCESS_PROC => \&Image::ExifTool::XMP::ProcessXMP,
-    VARS => { NO_ID => 1 },
+    VARS => { ID_FMT => 'none' },
     ColorCorrections => { ValueConv => '\$val' }, # (long list of floating point numbers)
 );