exiftool-vendored.pl 13.30.0 → 13.32.0

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

@@ -12,7 +12,7 @@ meta information extracted from or written to a file.
 =head1 TAG TABLES
 
 The tables listed below give the names of all tags recognized by ExifTool.
-They contain a total of 28450 tags, with 17673 unique tag names.
+They contain a total of 28465 tags, with 17681 unique tag names.
 
 B<Tag ID>, B<Index#> or B<Sequence> is given in the first column of each
 table.  A B<Tag ID> is the computer-readable equivalent of a tag name, and
@@ -364,11 +364,11 @@ tags remain.
 
 The table below lists all EXIF tags.  Also listed are TIFF, DNG, HDP and
 other tags which are not part of the EXIF specification, but may co-exist
-with EXIF tags in some images.  Tags which are part of the EXIF 2.32
+with EXIF tags in some images.  Tags which are part of the EXIF 3.0
 specification have an underlined B<Tag Name> in the HTML version of this
 documentation.  See
-L<https://web.archive.org/web/20190624045241if_/http://www.cipa.jp:80/std/documents/e/DC-008-Translation-2019-E.pdf>
-for the official EXIF 2.32 specification.
+L<https://www.cipa.jp/std/documents/download_e.html?CIPA_DC-008-2024-E>
+for the official EXIF 3.0 specification.
 
   Tag ID   Tag Name                  Group      Writable
   ------   --------                  -----      --------
@@ -1039,6 +1039,8 @@ for the official EXIF 2.32 specification.
   0xc7aa   CacheVersion              SubIFD2    int32u!
   0xc7b5   DefaultUserCrop           SubIFD     rational64u[4]!
   0xc7d5   NikonNEFInfo              -          Nikon NEFInfo
+  0xc7d7   ZIFMetadata               -          no
+  0xc7d8   ZIFAnnotations            -          no
   0xc7e9   DepthFormat               IFD0       int16u!
   0xc7ea   DepthNear                 IFD0       rational64u!
   0xc7eb   DepthFar                  IFD0       rational64u!
@@ -8049,6 +8051,7 @@ boot, not including standby time.
      42    ColorTone                            int16s
      46    SRAWQuality                          int16s
      51    Clarity                              int16s
+     52    HDR-PQ                               int16s
 
 =head3 Canon FocalLength Tags
 
@@ -20360,6 +20363,7 @@ These tags are used in Pentax/Asahi cameras.
   0x0402   ToneCurve                            yes~
   0x0403   ToneCurves                           yes~
   0x0405   UnknownBlock?                        undef
+  0x040c   AFInfoK3III                          Pentax AFInfoK3III
   0x0e00   PrintIM                              PrintIM
 
 =head3 Pentax LensRec Tags
@@ -20934,6 +20938,20 @@ sensors are located in the camera.
   ------   --------                             --------
   [no tags known]
 
+=head3 Pentax AFInfoK3III Tags
+
+AF tags written by the K-3 Mark III, GR III and GR IIIx.
+
+  Index2   Tag Name                             Writable
+  ------   --------                             --------
+      0    AFInfo?                              int16u[$size/2]
+    0.1    AFMode                               int16u
+      1    AFSelectionMode                      int16u
+      3    NumAFPoints                          int16u
+      7    AFFrameSize                          no
+    7.1    AFAreas                              no+
+     11    AFAreaSize                           no
+
 =head3 Pentax Type2 Tags
 
 These tags are used by the Pentax Optio 330 and 430, and are similar to the
@@ -21811,6 +21829,7 @@ are less than consistent about their metadata formats.
   0x003b   Firmware                             string
   0x003c   WhiteBalance                         string
   0x003d   PictureMode                          string
+  0x0047   ExposureCompensation                 rational64s
   0x0048   LensApertureRange                    string
   0x0049   FNumber                              rational64u
   0x004a   ExposureTime                         rational64u
@@ -21826,9 +21845,12 @@ are less than consistent about their metadata formats.
   0x0087   ResolutionMode                       string
   0x0088   WhiteBalance                         string
   0x008c   Firmware                             string
+  0x0113   PictureModeStrength                  int32s
   0x011f   CameraCalibration                    float[9]
   0x0120   WBSettings                           Sigma WBSettings
   0x0121   WBSettings2                          Sigma WBSettings2
+  0x0138   Fade                                 rational64u
+  0x0139   Vignette                             rational64u
 
 =head3 Sigma WBSettings Tags
 
@@ -29664,10 +29686,11 @@ C2PA JUMBF metadata extracted from "/C2PA_Manifest" file.
 
 =head3 PDF Pages Tags
 
-  Tag ID   Tag Name                             Writable
-  ------   --------                             --------
-  'Count'  PageCount                            no
-  'Kids'   Kids                                 PDF Kids
+  Tag ID       Tag Name                         Writable
+  ------       --------                         --------
+  'Count'      PageCount                        no
+  'Kids'       Kids                             PDF Kids
+  'MediaBox'   MediaBox                         no+
 
 =head3 PDF Kids Tags
 
@@ -30380,7 +30403,7 @@ for the official QuickTime specification.
 The tags below are extracted from timed metadata in QuickTime and other
 formats of video files when the ExtractEmbedded option is used.  Although
 most of these tags are combined into the single table below, ExifTool
-currently reads 107 different types of timed GPS metadata from video files.
+currently reads 110 different types of timed GPS metadata from video files.
 
   Tag ID                 Tag Name               Writable
   ------                 --------               --------

package/bin/lib/Image/ExifTool/WritePDF.pl

@@ -81,6 +81,7 @@ sub WritePDFValue($$$)
         EncodeString(\$val);
     } elsif ($format eq 'date') {
         # convert date to "D:YYYYmmddHHMMSS+-HH'MM'" format
+        $val =~ s/(:\d{2})\.\d*/$1/;              # remove sub-seconds
         $val =~ s/([-+]\d{2}):(\d{2})/${1}'${2}'/;  # change timezone delimiters if necessary
         $val =~ tr/ ://d;                       # remove spaces and colons
         $val =  "D:$val";                       # add leading "D:"

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

@@ -1907,7 +1907,7 @@ sub RestoreNewValues($)
 #------------------------------------------------------------------------------
 # Set alternate file for extracting information
 # Inputs: 0) ExifTool ref, 1) family 8 group name (of the form "File#" where # is any number)
-#         2) alternate file name, or undef to reset
+#         2) alternate file name (may contain tag names with leading "$"), or undef to reset
 # Returns: 1 on success, or 0 on invalid group name
 sub SetAlternateFile($$$)
 {
@@ -1917,7 +1917,9 @@ sub SetAlternateFile($$$)
     # keep the same file if already initialized (possibly has metadata extracted)
     if (not defined $file) {
         delete $$self{ALT_EXIFTOOL}{$g8};
-    } elsif (not ($$self{ALT_EXIFTOOL}{$g8} and $$self{ALT_EXIFTOOL}{$g8}{ALT_FILE} eq $file)) {
+    } elsif (not ($$self{ALT_EXIFTOOL}{$g8} and $file !~ /\$/ and
+        $$self{ALT_EXIFTOOL}{$g8}{ALT_FILE} eq $file))
+    {
         my $altExifTool = Image::ExifTool->new;
         $$altExifTool{ALT_FILE} = $file;
         $$self{ALT_EXIFTOOL}{$g8} = $altExifTool;
@@ -4741,10 +4743,11 @@ sub DumpUnknownTrailer($$)
     my $pos = $$dirInfo{DataPos};
     my $endPos = $pos + $$dirInfo{DirLen};
     # account for preview/MPF image trailer
-    my $prePos = $$self{VALUE}{PreviewImageStart} || $$self{PreviewImageStart};
-    my $preLen = $$self{VALUE}{PreviewImageLength} || $$self{PreviewImageLength};
-    my $hidPos = $$self{VALUE}{HiddenDataOffset};
-    my $hidLen = $$self{VALUE}{HiddenDataLength};
+    my $value = $$self{VALUE};
+    my $prePos = $$value{PreviewImageStart} || $$self{PreviewImageStart};
+    my $preLen = $$value{PreviewImageLength} || $$self{PreviewImageLength};
+    my $hidPos = $$value{HiddenDataOffset};
+    my $hidLen = $$value{HiddenDataLength};
     my $tag = 'PreviewImage';
     my $mpImageNum = 0;
     my (%image, $lastOne);
@@ -4761,12 +4764,12 @@ sub DumpUnknownTrailer($$)
         last if $lastOne;   # checked all images
         # look for MPF images (in the proper order)
         ++$mpImageNum;
-        $prePos = $$self{VALUE}{"MPImageStart ($mpImageNum)"};
+        $prePos = $$value{"MPImageStart ($mpImageNum)"};
         if (defined $prePos) {
-            $preLen = $$self{VALUE}{"MPImageLength ($mpImageNum)"};
+            $preLen = $$value{"MPImageLength ($mpImageNum)"};
         } else {
-            $prePos = $$self{VALUE}{'MPImageStart'};
-            $preLen = $$self{VALUE}{'MPImageLength'};
+            $prePos = $$value{MPImageStart};
+            $preLen = $$value{MPImageLength};
             $lastOne = 1;
         }
         $tag = "MPImage$mpImageNum";
@@ -5887,10 +5890,10 @@ sub WriteJPEG($$)
                         $writeBuffer = '';
                         $oldOutfile = $outfile;
                         $outfile = \$writeBuffer;
-                        # account for segment, EXIF and TIFF headers
-                        $$self{PREVIEW_INFO}{Fixup}{Start} += 18 if $$self{PREVIEW_INFO};
-                        $$self{LeicaTrailer}{Fixup}{Start} += 18 if $$self{LeicaTrailer};
-                        $$self{HiddenData}{Fixup}{Start} += 18 if $$self{HiddenData};
+                        # must account for segment, EXIF and TIFF headers
+                        foreach (qw(PREVIEW_INFO LeicaTrailer HiddenData)) {
+                            $$self{$_}{Fixup}{Start} += 18 if $$self{$_};
+                        }
                     }
                     # write as multi-segment
                     my $n = WriteMultiSegment($outfile, 0xe1, $exifAPP1hdr, \$buff, 'EXIF');
@@ -6036,8 +6039,8 @@ sub WriteJPEG($$)
             my $delPreview = $$self{DEL_PREVIEW};
             $trailInfo = $self->IdentifyTrailer($raf) unless $$delGroup{Trailer};
             my $nvTrail = $self->GetNewValueHash($Image::ExifTool::Extra{Trailer});
-            unless ($oldOutfile or $delPreview or $trailInfo or $$delGroup{Trailer} or $nvTrail or
-                $$self{HiddenData})
+            unless ($oldOutfile or $delPreview or $trailInfo or $$delGroup{Trailer} or
+                $nvTrail or $$self{HiddenData})
             {
                 # blindly copy the rest of the file
                 while ($raf->Read($buff, 65536)) {
@@ -6082,35 +6085,7 @@ sub WriteJPEG($$)
                 }
                 last;   # all done
             }
-            # copy HiddenData if necessary
-            if ($$self{HiddenData}) {
-                my $pad;
-                my $hd = $$self{HiddenData};
-                my $hdOff = $$hd{Offset} + $$hd{Base};
-                require Image::ExifTool::Sony;
-                # read HiddenData, updating $hdOff with actual offset if necessary
-                my $dataPt = Image::ExifTool::Sony::ReadHiddenData($self, $hdOff, $$hd{Size});
-                if ($dataPt) {
-                    # preserve padding to avoid invalidating MPF pointers (yuk!)
-                    my $padLen = $hdOff - $endPos;
-                    unless ($padLen >= 0 and $raf->Seek($endPos,0) and $raf->Read($pad,$padLen)==$padLen) {
-                        $self->Error('Error reading HiddenData padding',1);
-                        $pad = '';
-                    }
-                    $endPos += length($pad) + length($$dataPt); # update end position
-                } else {
-                    $$dataPt = $pad = '';
-                }
-                my $fixup = $$self{HiddenData}{Fixup};
-                # set MakerNote pointer and size (subtract 10 for segment and EXIF headers)
-                $fixup->SetMarkerPointers($outfile, 'HiddenData', length($$outfile) + length($pad) - 10);
-                # clean up and write the buffered data
-                $outfile = $oldOutfile;
-                undef $oldOutfile;
-                Write($outfile, $writeBuffer, $pad, $$dataPt) or $err = 1;
-                undef $writeBuffer;
-            }
-            # rewrite existing trailers
+            # rewrite existing trailers into buffer
             if ($trailInfo) {
                 my $tbuf = '';
                 $raf->Seek(-length($buff), 1);  # seek back to just after EOI
@@ -6118,100 +6093,126 @@ sub WriteJPEG($$)
                 $$trailInfo{ScanForTrailer} = 1;# scan if necessary
                 $self->ProcessTrailers($trailInfo) or undef $trailInfo;
             }
-            if (not $oldOutfile) {
-                # do nothing special
-            } elsif ($$self{LeicaTrailer}) {
-                my $trailLen;
-                if ($trailInfo) {
-                    $trailLen = $$trailInfo{DataPos} - $endPos;
-                } else {
-                    $raf->Seek(0, 2) or $err = 1;
-                    $trailLen = $raf->Tell() - $endPos;
-                }
-                my $fixup = $$self{LeicaTrailer}{Fixup};
-                $$self{LeicaTrailer}{TrailPos} = $endPos;
-                $$self{LeicaTrailer}{TrailLen} = $trailLen;
-                # get _absolute_ position of new Leica trailer
-                my $absPos = Tell($oldOutfile) + length($$outfile);
-                require Image::ExifTool::Panasonic;
-                my $dat = Image::ExifTool::Panasonic::ProcessLeicaTrailer($self, $absPos);
-                # allow some junk before Leica trailer (just in case)
-                my $junk = $$self{LeicaTrailerPos} - $endPos;
-                # set MakerNote pointer and size (subtract 10 for segment and EXIF headers)
-                $fixup->SetMarkerPointers($outfile, 'LeicaTrailer', length($$outfile) - 10 + $junk);
-                # use this fixup to set the size too (sneaky)
-                my $trailSize = defined($dat) ? length($dat) - $junk : $$self{LeicaTrailer}{Size};
-                $$fixup{Start} -= 4;  $$fixup{Shift} += 4;
-                $fixup->SetMarkerPointers($outfile, 'LeicaTrailer', $trailSize) if defined $trailSize;
-                $$fixup{Start} += 4;  $$fixup{Shift} -= 4;
-                # clean up and write the buffered data
-                $outfile = $oldOutfile;
-                undef $oldOutfile;
-                Write($outfile, $writeBuffer) or $err = 1;
-                undef $writeBuffer;
-                if (defined $dat) {
-                    Write($outfile, $dat) or $err = 1;  # write new Leica trailer
-                    $delPreview = 1;                    # delete existing Leica trailer
+            if ($oldOutfile) {
+                my $previewInfo;
+                # copy HiddenData if necessary
+                if ($$self{HiddenData}) {
+                    my $pad;
+                    my $hd = $$self{HiddenData};
+                    my $hdOff = $$hd{Offset} + $$hd{Base};
+                    require Image::ExifTool::Sony;
+                    # read HiddenData, updating $hdOff with actual offset if necessary
+                    my $dataPt = Image::ExifTool::Sony::ReadHiddenData($self, $hdOff, $$hd{Size});
+                    if ($dataPt) {
+                        # preserve padding to avoid invalidating MPF pointers (yuk!)
+                        my $padLen = $hdOff - $endPos;
+                        unless ($padLen >= 0 and $raf->Seek($endPos,0) and $raf->Read($pad,$padLen)==$padLen) {
+                            $self->Error('Error reading HiddenData padding',1);
+                            $pad = '';
+                        }
+                        $endPos += length($pad) + length($$dataPt); # update end position
+                    } else {
+                        $$dataPt = $pad = '';
+                    }
+                    my $fixup = $$self{HiddenData}{Fixup};
+                    # set MakerNote pointer and size (subtract 10 for segment and EXIF headers)
+                    $fixup->SetMarkerPointers($outfile, 'HiddenData', length($$outfile) + length($pad) - 10);
+                    $writeBuffer .= $pad . $$dataPt;    # keep padding for now
                 }
-            } else {
-                # locate preview image and fix up preview offsets
-                my $scanLen = $$self{Make} =~ /^SONY/i ? 65536 : 1024;
-                if (length($buff) < $scanLen) { # make sure we have enough trailer to scan
-                    my $buf2;
-                    $buff .= $buf2 if $raf->Read($buf2, $scanLen - length($buff));
+                if ($$self{LeicaTrailer}) {
+                    my $trailLen;
+                    if ($trailInfo) {
+                        $trailLen = $$trailInfo{DataPos} - $endPos;
+                    } else {
+                        $raf->Seek(0, 2) or $err = 1;
+                        $trailLen = $raf->Tell() - $endPos;
+                    }
+                    my $fixup = $$self{LeicaTrailer}{Fixup};
+                    $$self{LeicaTrailer}{TrailPos} = $endPos;
+                    $$self{LeicaTrailer}{TrailLen} = $trailLen;
+                    # get _absolute_ position of new Leica trailer
+                    my $absPos = Tell($oldOutfile) + length($$outfile);
+                    require Image::ExifTool::Panasonic;
+                    my $dat = Image::ExifTool::Panasonic::ProcessLeicaTrailer($self, $absPos);
+                    # allow some junk before Leica trailer (just in case)
+                    my $junk = $$self{LeicaTrailerPos} - $endPos;
+                    # set MakerNote pointer and size (subtract 10 for segment and EXIF headers)
+                    $fixup->SetMarkerPointers($outfile, 'LeicaTrailer', length($$outfile) - 10 + $junk);
+                    # use this fixup to set the size too (sneaky)
+                    my $trailSize = defined($dat) ? length($dat) - $junk : $$self{LeicaTrailer}{Size};
+                    $$fixup{Start} -= 4;  $$fixup{Shift} += 4;
+                    $fixup->SetMarkerPointers($outfile, 'LeicaTrailer', $trailSize) if defined $trailSize;
+                    $$fixup{Start} += 4;  $$fixup{Shift} -= 4;
+                    if (defined $dat) {
+                        Write($outfile, $dat) or $err = 1;  # write new Leica trailer
+                        $delPreview = 1;                    # delete existing Leica trailer
+                    }
                 }
-                # get new preview image position, relative to EXIF base
-                my $newPos = length($$outfile) - 10; # (subtract 10 for segment and EXIF headers)
-                my $junkLen;
-                # adjust position if image isn't at the start (eg. Olympus E-1/E-300)
-                if ($buff =~ /(\xff\xd8\xff.|.\xd8\xff\xdb)(..)/sg) {
-                    my ($jpegHdr, $segLen) = ($1, $2);
-                    $junkLen = pos($buff) - 6;
-                    # Sony previewimage trailer has a 32 byte header
-                    if ($$self{Make} =~ /^SONY/i and $junkLen > 32) {
-                        # with some newer Sony models, the makernotes preview pointer
-                        # points to JPEG at end of EXIF inside MPImage preview (what a pain!)
-                        if ($jpegHdr eq "\xff\xd8\xff\xe1") {   # is the first segment EXIF?
-                            $segLen = unpack('n', $segLen);     # the EXIF segment length
-                            # Sony PreviewImage starts with last 2 bytes of EXIF segment
-                            # (and first byte is usually "\0", not "\xff", so don't check this)
-                            if (length($buff) > $junkLen + $segLen + 6 and
-                                substr($buff, $junkLen + $segLen + 3, 3) eq "\xd8\xff\xdb")
-                            {
-                                $junkLen += $segLen + 2;
-                                # (note: this will not copy the trailer after PreviewImage,
-                                #  which is a 14kB block full of zeros for the A77)
+                # handle preview image last
+                if ($$self{PREVIEW_INFO}) {
+                    # locate preview image and fix up preview offsets
+                    my $scanLen = $$self{Make} =~ /^SONY/i ? 65536 : 1024;
+                    if (length($buff) < $scanLen) { # make sure we have enough trailer to scan
+                        my $buf2;
+                        $buff .= $buf2 if $raf->Read($buf2, $scanLen - length($buff));
+                    }
+                    # get new preview image position, relative to EXIF base
+                    my $newPos = length($$outfile) - 10; # (subtract 10 for segment and EXIF headers)
+                    my $junkLen;
+                    # adjust position if image isn't at the start (eg. Olympus E-1/E-300)
+                    if ($buff =~ /(\xff\xd8\xff.|.\xd8\xff\xdb)(..)/sg) {
+                        my ($jpegHdr, $segLen) = ($1, $2);
+                        $junkLen = pos($buff) - 6;
+                        # Sony previewimage trailer has a 32 byte header
+                        if ($$self{Make} =~ /^SONY/i and $junkLen > 32) {
+                            # with some newer Sony models, the makernotes preview pointer
+                            # points to JPEG at end of EXIF inside MPImage preview (what a pain!)
+                            if ($jpegHdr eq "\xff\xd8\xff\xe1") {   # is the first segment EXIF?
+                                $segLen = unpack('n', $segLen);     # the EXIF segment length
+                                # Sony PreviewImage starts with last 2 bytes of EXIF segment
+                                # (and first byte is usually "\0", not "\xff", so don't check this)
+                                if (length($buff) > $junkLen + $segLen + 6 and
+                                    substr($buff, $junkLen + $segLen + 3, 3) eq "\xd8\xff\xdb")
+                                {
+                                    $junkLen += $segLen + 2;
+                                    # (note: this will not copy the trailer after PreviewImage,
+                                    #  which is a 14kB block full of zeros for the A77)
+                                }
                             }
+                            $junkLen -= 32;
                         }
-                        $junkLen -= 32;
+                        $newPos += $junkLen;
+                    }
+                    # fix up the preview offsets to point to the start of the new image
+                    $previewInfo = $$self{PREVIEW_INFO};
+                    delete $$self{PREVIEW_INFO};
+                    my $fixup = $$previewInfo{Fixup};
+                    $newPos += ($$previewInfo{BaseShift} || 0);
+                    # adjust to absolute file offset if necessary (Samsung STMN)
+                    $newPos += Tell($oldOutfile) + 10 if $$previewInfo{Absolute};
+                    if ($$previewInfo{Relative}) {
+                        # adjust for our base by looking at how far the pointer got shifted
+                        $newPos -= ($fixup->GetMarkerPointers($outfile, 'PreviewImage') || 0);
+                    } elsif ($$previewInfo{ChangeBase}) {
+                        # Leica S2 uses relative offsets for the preview only (leica sucks)
+                        my $makerOffset = $fixup->GetMarkerPointers($outfile, 'LeicaTrailer');
+                        $newPos -= $makerOffset if $makerOffset;
+                    }
+                    $fixup->SetMarkerPointers($outfile, 'PreviewImage', $newPos);
+                    if ($$previewInfo{Data} ne 'LOAD_PREVIEW') {
+                        # write any junk that existed before the preview image
+                        $$previewInfo{Junk} = substr($buff,0,$junkLen) if $junkLen;
                     }
-                    $newPos += $junkLen;
-                }
-                # fix up the preview offsets to point to the start of the new image
-                my $previewInfo = $$self{PREVIEW_INFO};
-                delete $$self{PREVIEW_INFO};
-                my $fixup = $$previewInfo{Fixup};
-                $newPos += ($$previewInfo{BaseShift} || 0);
-                # adjust to absolute file offset if necessary (Samsung STMN)
-                $newPos += Tell($oldOutfile) + 10 if $$previewInfo{Absolute};
-                if ($$previewInfo{Relative}) {
-                    # adjust for our base by looking at how far the pointer got shifted
-                    $newPos -= ($fixup->GetMarkerPointers($outfile, 'PreviewImage') || 0);
-                } elsif ($$previewInfo{ChangeBase}) {
-                    # Leica S2 uses relative offsets for the preview only (leica sucks)
-                    my $makerOffset = $fixup->GetMarkerPointers($outfile, 'LeicaTrailer');
-                    $newPos -= $makerOffset if $makerOffset;
                 }
-                $fixup->SetMarkerPointers($outfile, 'PreviewImage', $newPos);
                 # clean up and write the buffered data
                 $outfile = $oldOutfile;
                 undef $oldOutfile;
                 Write($outfile, $writeBuffer) or $err = 1;
                 undef $writeBuffer;
                 # write preview image
-                if ($$previewInfo{Data} ne 'LOAD_PREVIEW') {
+                if ($previewInfo and $$previewInfo{Data} ne 'LOAD_PREVIEW') {
                     # write any junk that existed before the preview image
-                    Write($outfile, substr($buff,0,$junkLen)) or $err = 1 if $junkLen;
+                    Write($outfile, $$previewInfo{Junk}) or $err = 1 if defined $$previewInfo{Junk};
                     # write the saved preview image
                     Write($outfile, $$previewInfo{Data}) or $err = 1;
                     delete $$previewInfo{Data};
@@ -6224,7 +6225,7 @@ sub WriteJPEG($$)
                 my $extra;
                 if ($trailInfo) {
                     # copy everything up to start of first processed trailer
-                    $extra = $$trailInfo{DataPos} - $endPos;
+                    $extra = defined $$trailInfo{DataPos} ? ($$trailInfo{DataPos} - $endPos) : 0;
                 } else {
                     # copy everything up to end of file
                     $raf->Seek(0, 2) or $err = 1;
@@ -6393,9 +6394,9 @@ sub WriteJPEG($$)
                         $oldOutfile = $outfile;
                         $outfile = \$writeBuffer;
                         # must account for segment, EXIF and TIFF headers
-                        $$self{PREVIEW_INFO}{Fixup}{Start} += 18 if $$self{PREVIEW_INFO};
-                        $$self{LeicaTrailer}{Fixup}{Start} += 18 if $$self{LeicaTrailer};
-                        $$self{HiddenData}{Fixup}{Start} += 18 if $$self{HiddenData};
+                        foreach (qw(PREVIEW_INFO LeicaTrailer HiddenData)) {
+                            $$self{$_}{Fixup}{Start} += 18 if $$self{$_};
+                        }
                     }
                     # write as multi-segment
                     my $n = WriteMultiSegment($outfile, $marker, $exifAPP1hdr, $segDataPt, 'EXIF');
@@ -6922,7 +6923,7 @@ sub CheckBinaryData($$$)
         $format = $1;
         $count = $2;
         # can't evaluate $count now because we don't know $size yet
-        undef $count if $count =~ /\$size/;
+        $count = -1 if $count =~ /\$size/;  # (-1 = any count allowed)
     }
     return CheckValue($valPtr, $format, $count);
 }
@@ -7248,6 +7249,8 @@ sub WriteBinaryData($$$)
             $self->VerboseValue("- $dirName:$$tagInfo{Name}", $val);
             $self->VerboseValue("+ $dirName:$$tagInfo{Name}", $newVal);
             ++$$self{CHANGED};
+        } else {
+            $self->Warn("Error packing $$tagInfo{Name} value");
         }
     }
     # add necessary fixups for any offsets

package/bin/lib/Image/ExifTool/XMPStruct.pl

@@ -86,7 +86,7 @@ sub InflateStruct($$;$)
         my %struct;
         for (;;) {
             last unless $sfmt ? $$obj =~ s/^\s*"(.*?)"\s*://s :
-                                $$obj =~ s/^\s*([-\w:]+#?)\s*=//s;
+                                $$obj =~ s/^\s*([-\w:.]+#?)\s*=//s;
             my $tag = $1;
             my ($v, $w) = InflateStruct($et, $obj, '}');
             $warn = $w if $w and not $warn;

package/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.30';
+$VERSION = '13.32';
 $RELEASE = '';
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (
@@ -42,7 +42,7 @@ $RELEASE = '';
     # exports not part of the public API, but used by ExifTool modules:
     DataAccess => [qw(
         ReadValue GetByteOrder SetByteOrder ToggleByteOrder Get8u Get8s Get16u
-        Get16s Get32u Get32s Get64u GetFloat GetDouble GetFixed32s Write
+        Get16s Get32u Get32s Get64u Get64s GetFloat GetDouble GetFixed32s Write
         WriteValue Tell Set8u Set8s Set16u Set32u Set64u Set64s
     )],
     Utils => [qw(GetTagTable TagTableKeys GetTagInfoList AddTagToTable HexDump)],
@@ -9719,8 +9719,10 @@ sub ExtractBinary($$$;$)
             $isPreview = 1;
         }
         my $lcTag = lc $tag;
-        if ((not $$self{OPTIONS}{Binary} or $$self{EXCL_TAG_LOOKUP}{$lcTag}) and
-             not $$self{OPTIONS}{Verbose} and not $$self{REQ_TAG_LOOKUP}{$lcTag})
+        my $options = $$self{OPTIONS};
+        if ((not $$options{Binary} or $$self{EXCL_TAG_LOOKUP}{$lcTag}) and
+             not $$options{Verbose} and not $$options{Validate} and
+             not $$self{REQ_TAG_LOOKUP}{$lcTag})
         {
             return "Binary data $length bytes";
         }

package/bin/perl-Image-ExifTool.spec

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

package/bin/windows_exiftool.txt

@@ -611,11 +611,13 @@ OPTIONS
          useful for some text strings since control characters (such as
          newlines) are not replaced by '.' as they are in the default
          output. By default, list items are separated by a newline when
-         extracted with the -b option, but this may be changed (see the -sep
-         option for details). May be combined with -j, -php or -X to extract
-         binary data in JSON, PHP or XML format, but note that "Unsafe" tags
-         are not extracted as binary unless they are specified explicitly or
-         the API RequestAll option is set to 3 or higher.
+         extracted with the -b option and no terminator is added after each
+         tag value, but the list separator may be changed with a -sep option
+         and a terminator may be set by adding a second -sep option (see the
+         -sep option for details). May be combined with -j, -php or -X to
+         extract binary data in JSON, PHP or XML format, but note that
+         "Unsafe" tags are not extracted as binary unless they are specified
+         explicitly or the API RequestAll option is set to 3 or higher.
 
          With a leading double dash (--b or --binary), tags which contain
          binary data are suppressed in the output when reading.
@@ -1079,7 +1081,7 @@ OPTIONS
 
          produces output like this:
 
-             -- Generated by ExifTool 13.30 --
+             -- Generated by ExifTool 13.32 --
              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
@@ -1895,9 +1897,10 @@ OPTIONS
          with -listf, -listr or -listwf to add file descriptions to the
          list. The -lang option may be combined with -listx to output
          descriptions in a single language, and the -sort and/or -lang
-         options may be combined with -listgeo. Also, the API GeolocMinPop,
-         GeolocFeature and GeolocAltNames options apply to the -listgeo
-         output. Here are some examples:
+         options may be combined with -listgeo (installation of the
+         alternate database is required for the additional languages). Also,
+         the API GeolocMinPop, GeolocFeature and GeolocAltNames options
+         apply to the -listgeo output. Here are some examples:
 
              -list               # list all tag names
              -list -EXIF:All     # list all EXIF tags
@@ -2307,6 +2310,8 @@ OPTIONS
     in file names.)
 
    Helper functions
+    Note that function names are case sensitive.
+
     "DateFmt"
 
     Simplifies reformatting of individual date/time values. This function
@@ -2345,8 +2350,6 @@ OPTIONS
 
         exiftool -sep "##" "-keywords<${keywords;NoDups(1)}" a.jpg
 
-    Note that function names are case sensitive.
-
     ExifTool 12.64 adds an API NoDups option which makes the NoDups helper
     function largely redundant, with all the functionality except the
     ability to avoid rewriting the file if there are no duplicates, but with

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "exiftool-vendored.pl",
-  "version": "13.30.0",
+  "version": "13.32.0",
   "description": "Vendored perl ExifTool for Node.js",
   "main": "./index.js",
   "homepage": "https://github.com/photostructure/exiftool-vendored.pl#readme",
@@ -30,7 +30,12 @@
   "scripts": {
     "prettier": "prettier --write test/*.js",
     "test": "mocha",
-    "update-exiftool": "bash -c ./update-exiftool.sh",
+    "update": "run-p update:*",
+    "update:deps": "ncu -u",
+    "update:exiftool": "bash -c ./update-exiftool.sh",
+    "check-version": "node check-version.js",
+    "install:pinact": "go install github.com/suzuki-shunsuke/pinact/cmd/pinact@latest",
+    "update:actions": "pinact run -u",
     "release": "release-it"
   },
   "release-it": {
@@ -47,8 +52,10 @@
     }
   },
   "devDependencies": {
-    "mocha": "^11.1.0",
-    "prettier": "^3.5.3",
-    "release-it": "^19.0.2"
+    "mocha": "^11.7.1",
+    "npm-run-all": "4.1.5",
+    "prettier": "^3.6.2",
+    "release-it": "^19.0.3",
+    "xml2js": "^0.6.2"
   }
 }