exiftool-vendored.pl 13.31.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 28455 tags, with 17676 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

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;
@@ -6921,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);
 }
@@ -7247,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.31';
+$VERSION = '13.32';
 $RELEASE = '';
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (

package/bin/perl-Image-ExifTool.spec

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

package/bin/windows_exiftool.txt

@@ -1081,7 +1081,7 @@ OPTIONS
 
          produces output like this:
 
-             -- Generated by ExifTool 13.31 --
+             -- 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
@@ -2310,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
@@ -2348,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.31.0",
+  "version": "13.32.0",
   "description": "Vendored perl ExifTool for Node.js",
   "main": "./index.js",
   "homepage": "https://github.com/photostructure/exiftool-vendored.pl#readme",
@@ -33,6 +33,7 @@
     "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"
@@ -51,9 +52,10 @@
     }
   },
   "devDependencies": {
-    "mocha": "^11.7.0",
+    "mocha": "^11.7.1",
     "npm-run-all": "4.1.5",
-    "prettier": "^3.5.3",
-    "release-it": "^19.0.3"
+    "prettier": "^3.6.2",
+    "release-it": "^19.0.3",
+    "xml2js": "^0.6.2"
   }
 }