exiftool_vendored 12.64.0 → 12.65.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: dd7bba924fc8d29d342ec53188b3331ed2e8e9a28143eb169464ad1f65d8e404
-  data.tar.gz: 17f3c5d49583b5f614f70c861e2277aab6fdcce3b28203749bc77517150dcb55
+  metadata.gz: 043102c6d2f82c4799b2885cbd9fdd7e9dfac5f1fe0450dea8bc2392a995dca3
+  data.tar.gz: f188b33293746a02b5b8814a5b566cfefebb9311146d75a383522686424dc547
 SHA512:
-  metadata.gz: 0bfff20448186ed9958ecc67b4aaee95e67563b8bdadbb374d1d7ae1bd2f9300f5c80ba4ac4bd8efc0a1b13b8a89be0425afa2d3a4357b7d00c2250b6a69b6d3
-  data.tar.gz: 87adab8506730664feccc82d398351791b4ff17732b7f090883dcae3607f74bf2c1049ada6107140a0052cc734cbe1e91044c9c025e9968384294eda5f3f1355
+  metadata.gz: af7e7099dbf145f6ad9000691f208cd15bac17f74b5051e5e3273837f3d6d09b121171d3b593029bca036b6b58b23dddc55b962ddf9b2d7e0638a9d926de5400
+  data.tar.gz: f92aae3415a5d73e8c449c466584798d66941ec0c28d97ebe1e88c0d917cecfce642c7bf2b20608fd425ddd412ff2b2a3659da97519a413903524fc99d98da73

data/bin/Changes

@@ -7,6 +7,32 @@ RSS feed: https://exiftool.org/rss.xml
 Note: The most recent production release is Version 12.60. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+Aug. 10, 2023 - Version 12.65
+
+  - Added a new QuickTime Keys tag
+  - Added a new CanonModelID (thanks Laurent Clevy)
+  - Added a new Canon LensType (thanks Norbert Wasser)
+  - Added number in brackets to converted Samsung MCCData value
+  - Decode a number of new Sony tags (thanks Jos Roost)
+  - Decode a few new FlashPix tags (github #217)
+  - Improved decoding of Nikon Z9 firmware 4.0 tags (thanks Warren Hatch)
+  - Improved parsing of PDF:Keywords to support semicolon-separated lists
+  - Enhanced -api option to show list of available options if no argument is
+    provided
+  - Lowered priority of IFD1 tags in ARW images so IFD0/SubIFD take precedence
+  - Changed QuickTime tag names for atID (AlbumTitleID to ArtistID) and plID
+    (PlayListID to AlbumID) (github issue #216), and added cmID (ComposerID)
+  - Changed Apple:MediaGroupUUID tag name back to ContentIdentifier
+  - Patched the -d option to handle the %s format code internally when writing
+    (avoids problems due to inconsistent behaviour of this format code in the
+    strptime function on different systems)
+  - Patched patch of version 12.32 to restore ability to read from named pipes
+  - Fixed bug which could cause a hang when processing a corrupt BigTIFF image
+  - Fixed document number for auxiliary image metadata in HEIC files
+  - Fixed misspelt Apple tag name (thanks Neal Krawetz)
+  - API Changes:
+      - Added AvailableOptions method
+
 June 28, 2023 - Version 12.64
 
   - Added a new Sony LensType (thanks Jos Roost)

data/bin/META.json

@@ -50,5 +50,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "12.64"
+   "version" : "12.65"
 }

data/bin/META.yml

@@ -31,4 +31,4 @@ recommends:
   Time::HiRes: 0
 requires:
   perl: 5.004
-version: 12.64
+version: 12.65

data/bin/README

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

data/bin/exiftool

@@ -11,7 +11,7 @@ use strict;
 use warnings;
 require 5.004;
 
-my $version = '12.64';
+my $version = '12.65';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
 my $exePath;
@@ -814,11 +814,17 @@ for (;;) {
     /^(-?)(a|duplicates)$/i and $mt->Options(Duplicates => ($1 ? 0 : 1)), next;
     if ($a eq 'api') {
         my $opt = shift;
-        defined $opt or Error("Expected OPT[=VAL] argument for -api option\n"), $badCmd=1, next;
-        my $val = ($opt =~ s/=(.*)//s) ? $1 : 1;
-        # empty string means an undefined value unless ^= is used
-        $val = undef unless $opt =~ s/\^$// or length $val;
-        $mt->Options($opt => $val);
+        if (defined $opt and length $opt) {
+            my $val = ($opt =~ s/=(.*)//s) ? $1 : 1;
+            # empty string means an undefined value unless ^= is used
+            $val = undef unless $opt =~ s/\^$// or length $val;
+            $mt->Options($opt => $val);
+        } else {
+            print "Available API Options:\n";
+            my $availableOptions = Image::ExifTool::AvailableOptions();
+            printf("  %-17s - %s\n", $$_[0], $$_[2]) foreach @$availableOptions;
+            $helped = 1;
+        }
         next;
     }
     /^arg(s|format)$/i and $argFormat = 1, next;
@@ -2874,7 +2880,7 @@ sub SetImageInfo($$$)
         }
         unless ($isStdout) {
             $outfile = NextUnusedFilename($outfile);
-            if ($et->Exists($outfile) and not $doSetFileName) {
+            if ($et->Exists($outfile, 1) and not $doSetFileName) {
                 Warn "Error: '${outfile}' already exists - $infile\n";
                 EFile($infile);
                 ++$countBadWr;
@@ -3005,7 +3011,7 @@ sub SetImageInfo($$$)
                 $outfile = Image::ExifTool::GetNewFileName(defined $outfile ? $outfile : $file, $newDir);
             }
             $outfile = NextUnusedFilename($outfile, $infile);
-            if ($et->Exists($outfile)) {
+            if ($et->Exists($outfile, 1)) {
                 if ($infile eq $outfile) {
                     undef $outfile;     # not changing the file name after all
                 # (allow for case-insensitive filesystems)
@@ -4233,7 +4239,7 @@ sub NextUnusedFilename($;$)
         }
         $filename .= substr($fmt, $pos); # add rest of file name
         # return now with filename unless file exists
-        return $filename unless ($mt->Exists($filename) and not defined $usedFileName{$filename}) or $usedFileName{$filename};
+        return $filename unless ($mt->Exists($filename, 1) and not defined $usedFileName{$filename}) or $usedFileName{$filename};
         if (defined $okfile) {
             return $filename if $filename eq $okfile;
             my ($fn, $ok) = (AbsPath($filename), AbsPath($okfile));
@@ -4313,7 +4319,7 @@ sub OpenOutputFile($;@)
             $outfile .= $textOut;
         }
         my $mode = '>';
-        if ($mt->Exists($outfile)) {
+        if ($mt->Exists($outfile, 1)) {
             unless ($textOverwrite) {
                 Warn "Output file $outfile already exists for $file\n";
                 return ();
@@ -5576,7 +5582,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 12.64 --
+    -- Generated by ExifTool 12.65 --
     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
@@ -6516,13 +6522,14 @@ load exiftool for each invocation.
 
 =over 5
 
-=item B<-api> I<OPT[[^]=[VAL]]>
+=item B<-api> [I<OPT[[^]=[VAL]]>]
 
 Set ExifTool API option.  I<OPT> is an API option name.  The option value is
 set to 1 if I<=VAL> is omitted.  If I<VAL> is omitted, the option value is
-set to undef if C<=> is used, or an empty string with C<^=>.  See
-L<Image::ExifTool Options|Image::ExifTool/Options> for a list of available
-API options.  This overrides API options set via the config file.
+set to undef if C<=> is used, or an empty string with C<^=>.  If I<OPT> is
+not specified a list of available options is returned.  See
+L<Image::ExifTool Options|Image::ExifTool/Options> for option details.  This
+overrides API options set via the config file.
 
 =item B<-common_args>
 

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

@@ -16,7 +16,7 @@ use vars qw($VERSION);
 use Image::ExifTool::Exif;
 use Image::ExifTool::PLIST;
 
-$VERSION = '1.09';
+$VERSION = '1.10';
 
 sub ConvertPLIST($$);
 
@@ -110,9 +110,13 @@ sub ConvertPLIST($$);
     },
     # 0x0010 - int32s: 1 (SphereStatus, ref 2)
     0x0011 => { # (if defined, there is a live photo associated with the video, #forum13565) (AssetIdentifier, ref 2)
-        Name => 'MediaGroupUUID', #NealKrawetz private communication
-        # (changed in 12.19 from Name => 'ContentIdentifier', #forum8750)
+        Name => 'ContentIdentifier',
+        Notes => 'called MediaGroupUUID when it appears as an XAttr',
+        # - originally called ContentIdentifier, forum8750
+        # - changed in 12.19 to MediaGroupUUID, NealKrawetz private communication
+        # - changed back to ContentIdentifier since Apple writes this to Keys content.identifier (forum14874)
         Writable => 'string',
+        
     },
     # 0x0012 - (QRMOutputType, ref 2)
     # 0x0013 - (SphereExternalForceOffset, ref 2)
@@ -127,7 +131,7 @@ sub ConvertPLIST($$);
         Writable => 'string',
     },
     # 0x0016 - string[29]: "AXZ6pMTOh2L+acSh4Kg630XCScoO\0" (PhotosOriginatingSignature, ref 2)
-    0x0017 => { #forum13565 (only valid if MediaGroupUUID exists) (StillImageCaptureFlags, ref 2)
+    0x0017 => { #forum13565 (only valid if MediaGroupUUID/ContentIdentifier exists) (StillImageCaptureFlags, ref 2)
         Name => 'LivePhotoVideoIndex',
         Notes => 'divide by RunTimeScale to get time in seconds',
     },
@@ -153,7 +157,7 @@ sub ConvertPLIST($$);
     # 0x001e - (OriginatingAppID, ref 2)
     # 0x001f - int32s: 0,1 (PhotosAppFeatureFlags, ref 2)
     0x0020 => { # (ImageCaptureRequestIdentifier, ref 2)
-        Name => 'ImageCaptureReqestID',
+        Name => 'ImageCaptureRequestID',
         Writable => 'string',
         Unknown => 1,
     },

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

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

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

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '4.66';
+$VERSION = '4.67';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -476,6 +476,7 @@ $VERSION = '4.66';
     255.1 => 'Sigma 180mm f/2.8 EX DG OS HSM APO Macro', #50
     255.2 => 'Tamron SP 70-200mm f/2.8 Di VC USD', #exiv issue 1202 (A009)
     255.3 => 'Yongnuo YN 50mm f/1.8', #50
+    313 => 'Canon RF 28mm F2.8 STM', #42
     368 => 'Sigma 14-24mm f/2.8 DG HSM | A or other Sigma Lens', #IB (A018)
     368.1 => 'Sigma 20mm f/1.4 DG HSM | A', #50 (newer firmware)
     368.2 => 'Sigma 50mm f/1.4 DG HSM | A', #50
@@ -983,6 +984,7 @@ $VERSION = '4.66';
     0x80000480 => 'EOS R50', #42
     0x80000481 => 'EOS R6 Mark II', #42
     0x80000487 => 'EOS R8', #42
+    0x80000491 => 'PowerShot V10', #25
     0x80000520 => 'EOS D2000C', #IB
     0x80000560 => 'EOS D6000C', #PH (guess)
 );

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

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