exiftool_vendored 13.44.0 → 13.45.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: fb2a0154a02210ed5be6f51530e8def85c78f27b7502a4b0816c4096fdaa113d
-  data.tar.gz: 47f90d853b810216a1524ef5558a594753a3d812a6ead844fc398e5cb5d110a4
+  metadata.gz: afe0b5c9723e0cb054a72d6482febe2474734b1386b4d3aed677da56cad8a206
+  data.tar.gz: a3967d74c3e3567a3ae39b19ce1c4fb556522c4050bb0c51e3fff4fccb8e73dc
 SHA512:
-  metadata.gz: d027d7d5415bbfb942c312406ce8e8bf5dd6acd4217f59495e35bf32ca27f93d809e2b7f666f15e413287b9bbf12ddefdd2635a99f83fa8d4e2e55a0114c42dd
-  data.tar.gz: eea916b76ba6c527981536482f148b347f88410b9d56365d942e1cd8f3e3f1abe434f5d68792c2f1e992121466cf9764c25adcf668bb5ee1178123cd1d97f6fc
+  metadata.gz: fe134a1cedace0c69a146cb87af11c9089b5f1bae57b50d730945a8ac5950cbe58fe89268f2c3c68485213a201f26a804af62a69e6b4cbaf6da9dd54d3a81a78
+  data.tar.gz: 589710ba09384a20e9cde53eebbc7e3647a26f99327ca52bbdd32f363b5d260edffc9107a3b958818c06d66d4971fd7016c62afa5739a519d140255168188188

data/bin/Changes

@@ -7,6 +7,20 @@ RSS feed: https://exiftool.org/rss.xml
 Note: The most recent production release is Version 13.44. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+Dec. 26, 2025 - Version 13.45
+
+  - Added a number of new values for some Sony tags (thanks Milos Komarcevic)
+  - Added a few new button functions for the Nikon Z9 (thanks Warren Hatch)
+  - Added some Nikon subject detection values (thanks Warren Hatch)
+  - Added a new Canon SubjectSwitching value
+  - Decode Ricoh APP7 maker notes
+  - Patched to allow a specific PreviewImage to be written to a DNG file
+    containing multiple previews
+  - Fixed minor error when writing some DJI DNG files
+  - Fixed bug reading large Protobuf integers on 32-bit systems (github #373)
+  - API Changes:
+      - Added SystemTimeRes option
+
 Dec. 15, 2025 - Version 13.44 (production release)
 
   - Added read support for Kandao KVAR files
@@ -15,7 +29,7 @@ Dec. 15, 2025 - Version 13.44 (production release)
   - Added a few new Matroska tags
   - Added a few values related to the new RAW file types for the Sony ILCE-7M5
     (thanks Milos Komarcevic)
-  - Decode a few new PhaseOne tags ( (github #372)
+  - Decode a few new PhaseOne tags (github #372)
   - Decode timed GPS and other metadata from Kandao MP4 videos
   - Improvements to family 1 and 5 groups for tags in Matroska videos, and
     prioritize top-level tags when duplicates exist

data/bin/META.json

@@ -50,6 +50,6 @@
       }
    },
    "release_status" : "stable",
-   "version" : "13.44",
+   "version" : "13.45",
    "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.44'
+version: '13.45'
 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

data/bin/README

@@ -111,8 +111,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.44.tar.gz | tar -xf -
-  cd Image-ExifTool-13.44
+  gzip -dc Image-ExifTool-13.45.tar.gz | tar -xf -
+  cd Image-ExifTool-13.45
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 

data/bin/config_files/example.config

@@ -71,8 +71,11 @@
 # The %Image::ExifTool::UserDefined hash defines new tags to be added
 # to existing tables.
 %Image::ExifTool::UserDefined = (
-    # All EXIF tags are added to the Main table, and WriteGroup is used to
-    # specify where the tag is written (default is ExifIFD if not specified):
+    # All EXIF tags but GPS are added to the Main table, and WriteGroup is
+    # used to specify where the tag is written (defaulting to ExifIFD). Note
+    # that when reading custom EXIF tags, the same config file must be used
+    # to be able to see them with the given names. Without the config file
+    # they may only be seen as unknown tags with the -u option.
     'Image::ExifTool::Exif::Main' => {
         # Example 1.  EXIF:NewEXIFTag
         0xd000 => {

data/bin/exiftool

@@ -11,7 +11,7 @@ use strict;
 use warnings;
 require 5.004;
 
-my $version = '13.44';
+my $version = '13.45';
 
 $^W = 1;    # enable global warnings
 
@@ -5368,7 +5368,7 @@ values (or decrement if I<VALUE> is negative), and C<-=> may be used to
 conditionally delete or replace a tag (see L</WRITING EXAMPLES> for
 examples).  C<^=> is used to write an empty string instead of deleting the
 tag when no I<VALUE> is given, but otherwise it is equivalent to C<=>.
-(Note that the caret must be quoted on the Windows command line.)
+(Note that the caret must be quoted in the Windows CMD shell.)
 
 I<TAG> may contain one or more leading family 0, 1, 2 or 7 group names,
 prefixed by optional family numbers, and separated colons.  If no group name
@@ -5570,12 +5570,19 @@ list items when copying groups of tags from a file containing redundant
 information, it also prevents values of different tags from being copied
 into the same list when this is the intent.  To accumulate values
 from different operations into the same list, add a C<+> after the initial
-C<-> of the argument.  For example:
+C<-> of the argument or use the B<-addTagsFromFile> option.  For example:
 
     exiftool -tagsfromfile @ '-subject<make' '-+subject<model' ...
 
-Similarly, C<-+DSTTAG> must be used when conditionally replacing a tag to
-prevent overriding earlier conditions.
+or
+
+    exiftool -addtagsfromfile @ '-subject<make' '-subject<model' ...
+
+Similarly, C<-+DSTTAG> or B<-addTagsFromFile> must be used when
+conditionally replacing a tag to prevent overriding earlier conditions.
+
+Other than these differences, the B<-tagsFromFile> and B<-addTagsFromFile>
+options are equivalent.
 
 6) The B<-a> option (allow duplicate tags) is always in effect when copying
 tags from I<SRCFILE>, but the highest priority tag is always copied last so
@@ -6128,7 +6135,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 13.44 --
+    -- Generated by ExifTool 13.45 --
     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

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.63';
+$VERSION = '3.64';
 @ISA = qw(Exporter);
 
 sub NumbersFirst($$);
@@ -555,7 +555,7 @@ Pentax, Ricoh, Samsung, Sanyo, SeaLife, Sony, Supra and Vivitar.
 These tags are used in Panasonic/Leica cameras.
 },
     Pentax => q{
-These tags are used in Pentax/Asahi cameras.
+These tags are used in Pentax/Asahi/Ricoh cameras.
 },
     CanonRaw => q{
 These tags apply to CRW-format Canon RAW files and information in the APP0

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

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '5.00';
+$VERSION = '5.01';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -9397,6 +9397,7 @@ my %filterConv = (
             0 => 'Initial Priority',
             1 => 'On Subject',
             2 => 'Switch Subject',
+            0x7fffffff => 'n/a',
         },
     },
     24 => { #forum16068  #KG extensions for 'left' and 'right'

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

@@ -57,7 +57,7 @@ use vars qw($VERSION $AUTOLOAD @formatSize @formatName %formatNumber %intFormat
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::MakerNotes;
 
-$VERSION = '4.61';
+$VERSION = '4.63';
 
 sub ProcessExif($$$);
 sub WriteExif($$$);
@@ -213,7 +213,7 @@ $formatName[129] = 'utf8';  # (Exif 3.0)
     10 => 'JBIG Color', #3
     99 => 'JPEG', #16
     262 => 'Kodak 262', #16
-    32766 => 'Next', #3
+    32766 => 'Next or Sony ARW Compressed 2', #3/Milos
     32767 => 'Sony ARW Compressed', #16
     32769 => 'Packed RAW', #PH (used by Epson, Nikon, Samsung)
     32770 => 'Samsung SRW Compressed', #PH
@@ -1598,7 +1598,7 @@ my %opcodeInfo = (
             2 => 'Sony Compressed RAW', # (lossy, ref IB)
             3 => 'Sony Lossless Compressed RAW', #IB
             4 => 'Sony Lossless Compressed RAW 2', #JR (ILCE-1)
-            6 => 'Sony Compressed RAW HQ', # ILCE-7M5
+            6 => 'Sony Compressed RAW 2', # ILCE-7M5
         },
     },
     # 0x7001 - int16u[1] (in SubIFD of Sony ARW images) - values: 0,1
@@ -3591,6 +3591,7 @@ my %opcodeInfo = (
             Condition => '$$valPt =~ /^\[ae_dbg_info:/',
             MakerNotes => 1,
             Binary => 1,
+            NotIFD => 1,
             WriteGroup => 'IFD0', # (for Validate)
             SubDirectory => { TagTable => 'Image::ExifTool::DJI::Info' },
             Format => 'undef',

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

@@ -35,7 +35,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:Public);
 use Image::ExifTool::GPS;
 
-$VERSION = '1.83';
+$VERSION = '1.84';
 
 sub JITTER() { return 2 }       # maximum time jitter
 
@@ -1530,7 +1530,7 @@ sub PrintFixTime($)
 {
     my $time = $_[0] + 0.0005;  # round off to nearest ms
     my $fsec = int(($time - int($time)) * 1000);
-    return sprintf('%s.%.3d UTC', Image::ExifTool::ConvertUnixTime($time), $fsec);
+    return Image::ExifTool::ConvertUnixTime($time, undef, 3) . ' UTC';
 }
 
 #------------------------------------------------------------------------------

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

@@ -11,7 +11,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.39';
+$VERSION = '1.40';
 
 sub ProcessOcad($$$);
 sub ProcessJPEG_HDR($$$);
@@ -212,6 +212,10 @@ sub ProcessJPEG_HDR($$$);
         Name => 'Pentax',
         Condition => '$$valPt =~ /^PENTAX \0/',
         SubDirectory => { TagTable => 'Image::ExifTool::Pentax::Main' },
+      }, {
+        Name => 'Ricoh',
+        Condition => '$$valPt =~ /^RICOH\0/',
+        SubDirectory => { TagTable => 'Image::ExifTool::Pentax::Main' },
       }, {
         Name => 'Huawei',
         Condition => '$$valPt =~ /^HUAWEI\0\0/',

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

@@ -41,8 +41,8 @@ my %format = (
     VARS => { NO_LOOKUP => 1 },
     NOTES => q{
         Tags extracted from Kandao KVAR files and the 'kvar', 'kfix' and 'kstb'
-        atoms in Kandao MP4 videos, and have a family 1 group name of KVAR, KFIX or
-        KSTB depending on their location.
+        atoms in Kandao MP4 videos, with a family 1 group name of KVAR, KFIX or KSTB
+        depending on their location.
     },
     PROCESS_PROC => \&ProcessKandao,
 #

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

@@ -65,7 +65,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 use Image::ExifTool::XMP;
 
-$VERSION = '4.51';
+$VERSION = '4.52';
 
 sub LensIDConv($$$);
 sub ProcessNikonAVI($$$);
@@ -1352,6 +1352,7 @@ my %subjectDetectionZ9 = (
     4 => 'Vehicles',
     5 => 'Birds',
     6 => 'Airplanes',
+    7 => 'Faces',               #introduced with Z9 firmware 5.30 as an Auto Capture option
 );
 
 my %timeZoneZ9 = (
@@ -4848,17 +4849,17 @@ my %base64coord = (
     },
     0x31 => [
     {
-        Name => 'FocusPositionVertical',   # 209/233 focus point cameras
+        Name => 'FocusPositionVertical',    # 209/233 focus point cameras
         Condition => '$$self{Model} =~ /^NIKON (Z 30|Z 50|Z fc)\b/i and $$self{AFAreaYPosition}',   #models Z30, Z50, Zfc
         ValueConv => 'int($$self{AFAreaYPosition} / 286 )',      #divisor is an estimate (chosen to cause center point to report 'C')
         PrintConv => sub { my ($val) = @_; PrintAFPointsUpDown($val, 11 ) },
     },{
-        Name => 'FocusPositionVertical',  #273/299 focus point cameras
+        Name => 'FocusPositionVertical',    # 273/299 focus point cameras
         Condition => '$$self{Model} =~ /^NIKON (Z 5|Z 6|Z 6_2|D780)\b/i and $$self{AFAreaYPosition}',   #models Z5, Z6, Z6ii, D780
         ValueConv => 'int($$self{AFAreaYPosition} / 286 )',     #divisor is an estimate (chosen to cause center point to report 'C')
         PrintConv => sub { my ($val) = @_; PrintAFPointsUpDown($val, 13 ) },
     },{
-        Name => 'FocusPositionVertical',   #405/493 focus point cameras
+        Name => 'FocusPositionVertical',    # 405/493 focus point cameras
         Condition => '$$self{Model} =~ /^NIKON (Z 7|Z 7_2)\b/i and $$self{AFAreaYPosition}',   #models Z7/Z7ii
         ValueConv => 'int($$self{AFAreaYPosition} / 292 )',     #divisor is the measured vertical pixel separation between adjacent points
         PrintConv => sub { my ($val) = @_; PrintAFPointsUpDown($val, 17 ) },
@@ -9346,12 +9347,9 @@ my %nikonFocalConversions = (
     106 => {
         Name => 'AutoCaptureCriteriaSubjectType',
         Condition => '$$self{AutoCapturedFrame} and $$self{AutoCapturedFrame} ne 0',
-        PrintConv => {
-            0 => 'Auto (all)',
-            1 => 'People',
-            2 => 'Animals',
-            3 => 'Vehicle'
-        },
+        ValueConv => '$val + 1',    # change value range to align with %subjectDetectionZ9 
+        ValueConvInv => '$val - 1',
+        PrintConv => \%subjectDetectionZ9,
     },
 );
 

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

@@ -15,7 +15,7 @@ package Image::ExifTool::NikonCustom;
 use strict;
 use vars qw($VERSION @ISA @EXPORT_OK %buttonsZ8 %buttonsZ9);
 
-$VERSION = '1.27';
+$VERSION = '1.28';
 
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(%buttonsZ8 %buttonsZ9);
@@ -142,7 +142,7 @@ my %buttonsCommonZ8Z9 = (  #button roles shared by the Z8 & Z9.  Assigments bega
         %buttonsCommonZ8Z9,
         116 => 'Save and Load Power Zoom Position',
         117 => 'Cycle AF-area Mode',
-        118 => 'Raw Processing (Current)',  #118-131 are Playback Retouch options
+        118 => 'Raw Processing (Current)',  #118-131 and 135 are Playback Retouch options
         119 => 'Raw Processing (Multiple)',
         120 => 'Trim',
         121 => 'Resize (Current)',
@@ -156,6 +156,9 @@ my %buttonsCommonZ8Z9 = (  #button roles shared by the Z8 & Z9.  Assigments bega
         129 => 'Lighten',
         130 => 'Darken',
         131 => 'Motion Blend',
+        133 => 'Focus Limiter',
+        134 => 'Cycle Subject Detection Options',
+        135 => 'Jump To Source Image',
     },
 );
 my %buttonsZ6III= (

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

@@ -909,10 +909,18 @@ my %binaryDataAttrs = (
         # 11.3.0.0 - K-S1
         # 11.5.0.0 - K-S2
         # 11.6.1.0 - K-3 II
-        # 11.7.5.0 - WG-M2
+        # 11.7.5.0 - Ricoh WG-M2
         # 12.0.0.0 - K-1
         # 12.1.3.0 - K-70
         # 12.1.5.0 - KP
+        # 12.3.2.0 - K-1 Mark II
+        # 12.7.5.0 - Ricoh WG-M2
+        # 13.0.0.0 - Ricoh GR III / G900SE
+        # 13.1.1.0 - Ricoh WG-70
+        # 14.0.0.0 - K-3 Mark III
+        # 14.0.1.0 - Ricoh GR IIIx
+        # 14.2.0.0 - KF
+        # 15.2.3.0 - Ricoh GR IV
     },
     0x0001 => { #PH
         Name => 'PentaxModelType',

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

@@ -21,10 +21,16 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.05';
+$VERSION = '1.06';
 
 sub ProcessProtobuf($$$;$);
 
+# largest unsigned integer on this system (2^32 or 2^64 - 1)
+my $intMax = ~0;
+
+# smallest unsigned integer that we interpret as int64s (0xffffffff00000000)
+my $int64sMin = 18446744069414584320;
+
 #------------------------------------------------------------------------------
 # Read bytes from dirInfo object
 # Inputs: 0) dirInfo ref (with DataPt and Pos set), 1) number of bytes
@@ -43,17 +49,23 @@ sub GetBytes($$)
 # Read variable-length integer
 # Inputs: 0) dirInfo ref
 # Returns: integer value
+# - sets $$dirInfo{Bit0} according to bit 0 of returned value
+#   (necessary for cases where a signed integer exceeds $intMax)
 sub VarInt($)
 {
     my $dirInfo = shift;
-    my $val = 0;
-    my $shift = 0;
+    my $buff = GetBytes($dirInfo, 1);
+    return undef unless defined $buff;
+    my $val = ord($buff) & 0x7f;
+    $$dirInfo{Bit0} = $val & 0x01;
+    my $mult = 128;
     for (;;) {
-        my $buff = GetBytes($dirInfo, 1);
-        defined $buff or return undef;
-        $val += (ord($buff) & 0x7f) << $shift;
         last unless ord($buff) & 0x80;
-        $shift += 7;
+        $buff = GetBytes($dirInfo, 1);
+        return undef unless defined $buff;
+        $val += (ord($buff) & 0x7f) * $mult;
+        last unless ord($buff) & 0x80;
+        $mult *= 128;   # (Note: don't use integer bit shift to avoid integer overflow)
     }
     return $val;
 }
@@ -62,7 +74,8 @@ sub VarInt($)
 # Read protobuf record
 # Inputs: 0) dirInfo ref
 # Returns: 0) record payload (plus tag id and format type in list context)
-# Notes: Updates dirInfo Pos to start of next record
+# Notes: Updates $$dirInfo{Pos} to start of next record, and sets $$dirInfo{Bit0}
+#        according to the least significant bit of type 0 (varInt) records
 sub ReadRecord($)
 {
     my $dirInfo = shift;
@@ -170,11 +183,19 @@ sub ProcessProtobuf($$$;$)
             if ($type == 0) {
                 $val = $buff;
                 if ($$tagInfo{Format} eq 'signed') {
-                    $val = ($val & 1) ? -($val >> 1)-1 : ($val >> 1);
-                } elsif ($$tagInfo{Format} eq 'int64s' and $val > 0xffffffff) {
+                    if ($val > $intMax) {
+                        # use double math (15 decimal digits precision)
+                        $val = $$dirInfo{Bit0} ? -int($val / 2) - 1 : $val / 2;
+                    } else {
+                        # use integer math
+                        $val = ($val & 1) ? -($val >> 1)-1 : ($val >> 1);
+                    }
+                } elsif ($$tagInfo{Format} eq 'int64s' and $val >= $int64sMin) {
                     # hack for DJI drones which store 64-bit signed integers improperly
                     # (just toss upper 32 bits which should be all 1's anyway)
-                    $val = ($val & 0xffffffff) - 4294967296;
+                    # Note: do the two subtractions because $int64sMin + 4294967296
+                    # is too large for a 64-bit integer
+                    $val = $val - $int64sMin - 4294967296;
                 }
             } elsif ($type == 2 and $$tagInfo{Format} eq 'rational') {
                 my $dir = { DataPt => \$buff, Pos => 0 };
@@ -187,11 +208,16 @@ sub ProcessProtobuf($$$;$)
         } elsif ($type == 0) { # varInt
             $val = $buff;
             my $hex = sprintf('%x', $val);
-            if (length($hex) == 16 and $hex =~ /^ffffffff/) {
-                my $s64 = hex(substr($hex, 8)) - 4294967296;
+            if ($val >= $int64sMin) {
+                my $s64 = $val - $int64sMin - 4294967296;
                 $val .= " (0x$hex, int64s $s64)";
             } else {
-                my $signed = ($val & 1) ? -($val >> 1)-1 : ($val >> 1);
+                my $signed;
+                if ($val > $intMax) {
+                    $signed = $$dirInfo{Bit0} ? -int($val / 2) - 1 : $val / 2;
+                } else {
+                    $signed = ($val & 1) ? -($val >> 1)-1 : ($val >> 1);
+                }
                 $val .= " (0x$hex, signed $signed)";
             }
         } elsif ($type == 1) { # 64-bit number

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

@@ -34,7 +34,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::Minolta;
 
-$VERSION = '3.82';
+$VERSION = '3.83';
 
 sub ProcessSRF($$$);
 sub ProcessSR2($$$);
@@ -1534,7 +1534,7 @@ my %hidUnk = ( Hidden => 1, Unknown => 1 );
             0 => 'Compressed RAW',
             1 => 'Uncompressed RAW',
             2 => 'Lossless Compressed RAW', #JR (NC) seen for ILCE-1
-            3 => 'Compressed RAW (HQ)', # ILCE-7M5
+            3 => 'Compressed RAW 2', # ILCE-7M5
            65535 => 'n/a', # seen for ILCE-7SM3 JPEG-only
         },
     },
@@ -1592,9 +1592,25 @@ my %hidUnk = ( Hidden => 1, Unknown => 1 );
             '1 3' => 'RAW + Extra Fine',
             '1 4' => 'RAW + Light', #JR
             '2 0' => 'S-size RAW',
+            '2 1' => 'S-size RAW + Standard', # (NC)
+            '2 2' => 'S-size RAW + Fine', # (NC)
+            '2 3' => 'S-size RAW + Extra Fine', # (NC)
+            '2 4' => 'S-size RAW + Light', # (NC)
             '3 0' => 'M-size RAW', # ILCE-1/7RM5, APS-C mode
+            '3 1' => 'M-size RAW + Standard', # (NC)
             '3 2' => 'M-size RAW + Fine',
             '3 3' => 'M-size RAW + Extra Fine',
+            '3 4' => 'M-size RAW + Light', # (NC)
+            '4 0' => 'Compressed RAW', # (NC)
+            '4 1' => 'Compressed RAW + Standard', # (NC)
+            '4 2' => 'Compressed RAW + Fine',
+            '4 3' => 'Compressed RAW + Extra Fine', # (NC)
+            '4 4' => 'Compressed RAW + Light', # (NC)
+            '5 0' => 'Compressed HQ RAW', # (NC)
+            '5 1' => 'Compressed HQ RAW + Standard', # (NC)
+            '5 2' => 'Compressed HQ RAW + Fine',
+            '5 3' => 'Compressed HQ RAW + Extra Fine', # (NC)
+            '5 4' => 'Compressed HQ RAW + Light', # (NC)
         },
     },
     0x202f => { #JR (ILCE-7RM3)

data/bin/lib/Image/ExifTool/TagNames.pod

@@ -143,6 +143,7 @@ L<https://www.w3.org/Graphics/JPEG/jfif3.pdf> for the JPEG specification.
                InfiRayMixMode                   InfiRay MixMode
                DJI_DTAT                         no
   'APP7'       Pentax                           Pentax
+               Ricoh                            Pentax
                Huawei                           Unknown
                Qualcomm                         Qualcomm
                InfiRayOpMode                    InfiRay OpMode
@@ -20416,7 +20417,7 @@ various Panasonic and Leica models.
 
 =head2 Pentax Tags
 
-These tags are used in Pentax/Asahi cameras.
+These tags are used in Pentax/Asahi/Ricoh cameras.
 
   Tag ID   Tag Name                             Writable
   ------   --------                             --------
@@ -34166,8 +34167,8 @@ Other tags are extracted with the Unknown option.
 =head2 Kandao Tags
 
 Tags extracted from Kandao KVAR files and the 'kvar', 'kfix' and 'kstb'
-atoms in Kandao MP4 videos, and have a family 1 group name of KVAR, KFIX or
-KSTB depending on their location.
+atoms in Kandao MP4 videos, with a family 1 group name of KVAR, KFIX or KSTB
+depending on their location.
 
   Tag ID               Tag Name                 Writable
   ------               --------                 --------

data/bin/lib/Image/ExifTool/Writer.pl

@@ -1304,8 +1304,9 @@ sub SetNewValuesFromFile($$;@)
                     IgnoreTags ImageHashType KeepUTCTime Lang LargeFileSupport
                     LigoGPSScale ListItem ListSep MDItemTags MissingTagValue NoPDFList
                     NoWarning Password PrintConv QuickTimeUTC RequestTags SaveFormat
-                    SavePath ScanForXMP StructFormat SystemTags TimeZone Unknown UserParam
-                    Validate WindowsLongPath WindowsWideFile XAttrTags XMPAutoConv))
+                    SavePath ScanForXMP StructFormat SystemTags SystemTimeRes TimeZone
+                    Unknown UserParam Validate WindowsLongPath WindowsWideFile XAttrTags
+                    XMPAutoConv))
         {
             $srcExifTool->Options($_ => $$options{$_});
         }
@@ -3846,7 +3847,9 @@ sub GetNewValueHash($$;$$$$)
             # QuickTime and All are special cases because all group1 tags may be updated at once
             last if $$nvHash{WriteGroup} =~ /^(QuickTime|All)$/;
             # replace existing entry if WriteGroup is 'All' (avoids confusion of forum10349)
-            last if $$tagInfo{WriteGroup} and $$tagInfo{WriteGroup} eq 'All';
+            #last if $$tagInfo{WriteGroup} and $$tagInfo{WriteGroup} eq 'All'; # (didn't work for forum17770)
+            # forum17770 patch (also handles case where "EXIF" is specified as a write group)
+            last if $writeGroup eq 'All' or $$nvHash{WriteGroup} eq 'EXIF' and $writeGroup =~ /IFD/;
             $nvHash = $$nvHash{Next};
         }
     }

data/bin/lib/Image/ExifTool.pm

@@ -29,7 +29,7 @@ use vars qw($VERSION $RELEASE @ISA @EXPORT_OK %EXPORT_TAGS $AUTOLOAD @fileTypes
             %jpegMarker %specialTags %fileTypeLookup $testLen $exeDir
             %static_vars $advFmtSelf $configFile @configFiles $noConfig);
 
-$VERSION = '13.44';
+$VERSION = '13.45';
 $RELEASE = '';
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (
@@ -1193,6 +1193,7 @@ my @availableOptions = (
     [ 'Struct',           undef,  'return structures as hash references' ],
     [ 'StructFormat',     undef,  'format for structure serialization when reading/writing' ],
     [ 'SystemTags',       undef,  'extract additional File System tags' ],
+    [ 'SystemTimeRes',    0,      'number of sub-second digits in system and epoch times' ],
     [ 'TextOut',        \*STDOUT, 'file for Verbose/HtmlDump output' ],
     [ 'TimeZone',         undef,  'local time zone' ],
     [ 'UndefTags',        undef,  'leave undef tags in -if conditions when -m or -f are used' ],
@@ -2624,7 +2625,7 @@ sub Options($$;@)
             # add to existing plot settings
             $newVal = "$oldVal,$newVal" if defined $oldVal and defined $newVal;
             $$options{$param} = $newVal;
-        } elsif ($param eq 'KeepUTCTime') {
+        } elsif ($param eq 'KeepUTCTime' or $param eq 'SystemTimeRes') {
             $$options{$param} = $static_vars{$param} = $newVal;
         } elsif (lc $param eq 'geodir') {
             $Image::ExifTool::Geolocation::geoDir = $newVal;
@@ -4286,7 +4287,11 @@ sub Init($)
     my $self = shift;
     # delete all DataMember variables (lower-case names)
     delete $$self{$_} foreach grep /[a-z]/, keys %$self;
-    %static_vars = ( KeepUTCTime => $$self{OPTIONS}{KeepUTCTime} ); # reset static variables
+    # reset static variables
+    %static_vars = (
+        KeepUTCTime => $$self{OPTIONS}{KeepUTCTime},
+        SystemTimeRes => $$self{OPTIONS}{SystemTimeRes},
+    );
     delete $$self{FOUND_TAGS};      # list of found tags
     delete $$self{EXIF_DATA};       # the EXIF data block
     delete $$self{EXIF_POS};        # EXIF position in file
@@ -6713,34 +6718,33 @@ sub TimeZoneString($;$)
 
 #------------------------------------------------------------------------------
 # Convert Unix time to EXIF date/time string
-# Inputs: 0) Unix time value, 1) non-zero to convert to local time,
-#         2) number of digits after the decimal for fractional seconds
+# Inputs: 0) Unix time value, 1) non-zero to convert to local time, 2) number of
+#         digits after the decimal for fractional seconds, negative to trim
+#         trailing zeros, or undef to use SystemTimeRes
 # Returns: EXIF date/time string (with timezone for local times)
 sub ConvertUnixTime($;$$)
 {
     my ($time, $toLocal, $dec) = @_;
     return '0000:00:00 00:00:00' if $time == 0;
-    my (@tm, $tz);
-    if ($dec) {
-        my $frac = $time - int($time);
-        $time = int($time);
-        $frac < 0 and $frac += 1, $time -= 1;
-        $dec = sprintf('%.*f', $dec, $frac);
-        # remove number before decimal and increment integer time if it was rounded up
-        $dec =~ s/^(\d)// and $1 eq '1' and $time += 1;
-    } else {
-        $time = int($time + 1e-6) if $time != int($time);  # avoid round-off errors
-        $dec = '';
-    }
+    my (@tm, $tz, $trim);
+    $dec = $static_vars{SystemTimeRes} || 0 unless defined $dec;
+    $dec < 0 and $dec = -$dec, $trim = 1;
+    my $itime = int($time);
+    my $frac = $time - $itime;
+    $frac < 0 and $frac += 1, $itime -= 1;
+    $dec = sprintf('%.*f', $dec, $frac);
+    # remove number before decimal and increment integer time if necessary
+    $dec =~ s/^(\d)// and $1 eq '1' and $itime += 1;
+    $dec =~ s/\.?0+$// if $trim;    # trim trailing zeros if specified
     if (not $toLocal) {
-        @tm = gmtime($time);
+        @tm = gmtime($itime);
         $tz = '';
     } elsif ($static_vars{KeepUTCTime}) {
-        @tm = gmtime($time);
+        @tm = gmtime($itime);
         $tz = 'Z';
     } else {
-        @tm = localtime($time);
-        $tz = TimeZoneString(\@tm, $time);
+        @tm = localtime($itime);
+        $tz = TimeZoneString(\@tm, $itime);
     }
     my $str = sprintf("%4d:%.2d:%.2d %.2d:%.2d:%.2d$dec%s",
                       $tm[5]+1900, $tm[4]+1, $tm[3], $tm[2], $tm[1], $tm[0], $tz);
@@ -8127,11 +8131,11 @@ sub ProcessJPEG($$;$)
                 $self->ProcessDirectory(\%dirInfo, $tagTablePtr);
             }
         } elsif ($marker == 0xe7) {         # APP7 (InfiRay, Pentax, Huawei, Qualcomm)
-            if ($$segDataPt =~ /^PENTAX \0(II|MM)/) {
-                # found in K-3 images (is this multi-segment??)
-                SetByteOrder($1);
+            if ($$segDataPt =~ /^(PENTAX |RICOH)\0(II|MM)/) {
+                # found in K-3 and Ricoh GR_IV images (is this multi-segment??)
+                SetByteOrder($2);
                 undef $dumpType; # (dump this ourself)
-                my $hdrLen = 10;
+                my $hdrLen = length($1) + 3;
                 my $tagTablePtr = GetTagTable('Image::ExifTool::Pentax::Main');
                 DirStart(\%dirInfo, $hdrLen, 0);
                 $dirInfo{DirName} = 'Pentax APP7';

data/bin/lib/Image/ExifTool.pod

@@ -1193,6 +1193,15 @@ Flag to extract the following additional File System tags:  FileAttributes,
 FileDeviceNumber, FileInodeNumber, FileHardLinks, FileUserID, FileGroupID,
 FileDeviceID, FileBlockSize and FileBlockCount.
 
+=item SystemTimeRes
+
+Number of digits in sub-seconds for system times and some other epoch times.
+A value of 0 rounds to the nearest second.  Negative values cause trailing
+zeros to be removed.  eg) A value of C<-6> returns system times to 6 decimal
+places with trailing zeros removed. Default is 0, which rounds to the
+nearest second.  Note that round-off errors may appear starting at the 6th
+decimal place for some time formats.
+
 =item TextOut
 
 Output file reference for Verbose and HtmlDump options.  Default is

data/bin/perl-Image-ExifTool.spec

@@ -1,6 +1,6 @@
 Summary: perl module for image data extraction
 Name: perl-Image-ExifTool
-Version: 13.44
+Version: 13.45
 Release: 1
 License: Artistic/GPL
 Group: Development/Libraries/Perl

data/lib/exiftool_vendored/version.rb

@@ -1,5 +1,5 @@
 # frozen_string_literal: true
 
 module ExiftoolVendored
-  VERSION = Gem::Version.new('13.44.0')
+  VERSION = Gem::Version.new('13.45.0')
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: exiftool_vendored
 version: !ruby/object:Gem::Version
-  version: 13.44.0
+  version: 13.45.0
 platform: ruby
 authors:
 - Matthew McEachen