exiftool_vendored 13.14.0 → 13.17.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 84e9102db0da669ac4a4f0a5c4cb35058eee35318fa727ecf365f36341e9d9b9
-  data.tar.gz: baef093ba9ac71da9d59fc8239d9ca9ea3a5bab5a856fca5f33a3f8fcf6e6ba8
+  metadata.gz: 861018287a20c9c313a1fbaae7c77019fb9875a096936c68a61818e5d5cbda48
+  data.tar.gz: 1e0cc71de8847a24053b2fa9b569fdbf48b720aa70e027c6c984d6faabcde10a
 SHA512:
-  metadata.gz: 2a4abf6f32a17150d1b3b30b43204b8440b1e0c600df23ac992085a423942105067e02922cdcfdfa3a185fa867e138eab5e1a3a4cf3add9b8113afa6e167a038
-  data.tar.gz: da5b5975b6c1d20dc90d3c45179892297ab655f5e2dd76bac6180221ff5598895da66abc76a073561175d30a490444d56f701860e54fc70f21e93cd55cc0fd2d
+  metadata.gz: 9ddf18669ddb544c1360868fd79cf7b5a0664d838f7986a43db8b15d1c21b4fbe30f516efdc2f55c6a4af21b29312e99c7ef2d28acce3eacba9aa77a65b219e7
+  data.tar.gz: b47c09c393c4b62543b458b2d57f2a3fee3868b0ed37da38954f7a8958746cf7566c76ff93eb839ffad0ddf9ea77c7a09663eaff8266a8b0f5067153e2579340

data/bin/Changes

@@ -7,11 +7,53 @@ RSS feed: https://exiftool.org/rss.xml
 Note: The most recent production release is Version 13.10. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+Jan. 29, 2025 - Version 13.17
+
+  - Added support for reading more embedded images and videos written in the
+    JPEG trailer by some phones
+  - Added support for reading JPEG trailer written by some OnePlus phones
+  - Added a -validate warning for QuickTime 'wide' atoms with an invalid size
+  - Added a new CanonLensType
+  - Extract more embedded videos and depth/gain maps from JPEG images written 
+  - Avoid decoding Sony 0x9050 data for the ILCE-1M2 because the encoding has
+    changed since the ILCE-1 and the new encoding is not yet known
+  - Fixed issue that could cause runtime error when using -j with -b
+  - Fixed some issues decoding AFPointsUsed for some newer Nikon models
+  - Fixed problem corrupting QuickTime-format videos when writing if they
+    contain a 'wide' atom with an invalid size
+
+Jan. 25, 2025 - Version 13.16
+
+  - Added a couple of new Nikon Z lenses (thanks Warren Hatch)
+  - Added a new Canon RFLensType (thanks Norbert Wasser)
+  - Added support for a MIE trailer on QuickTime-format files
+  - Added a number of new EXE MachineType values (github #309)
+  - Made "iTunes" a deletable group
+  - Updated decoding of many Nikon tags for the Z9 firmware version 5.1 (thanks
+    Warren Hatch)
+  - Fixed issue where -diff option would miss showing 1 tag from a group that
+    exists in the difference file but not in the source file
+  - Fixed issue where tag exclusions for alternate files weren't honoured in a
+    -p formatting expression when using "$file#:all:all" in the expression and
+    the -file#, -x, and -p options all together
+  - Fixed FileTypeDescription for lossless extended WebP images
+
+Jan. 23, 2025 - Version 13.15
+
+  - Added a few new Panasonic AFSubjectDetection values (thanks Andrew J)
+  - Added " (lossless)" to FileType for lossless WebP images
+  - Avoid treating the QuickTime 'eng' language code as the default 'und' unless
+    the country code is also the default
+  - Fixed issue where writing metadata to a non-extended lossless WebP image
+    with an alpha channel could mess up rendering of the transparency
+  - Fixed problem decoding ID3 WXXX frames (github #307)
+
 Jan. 20, 2025 - Version 13.14
 
-  - Fixed bug where ItemList tags weren't created when creating new AudioKeys or
-    VideoKeys tags in the same command and neither tag group pre-existed in the
-    file
+  - Changed so that deleting QuickTime ItemList group no longer deletes Keys
+  - Fixed bug where new ItemList tags weren't created when also creating new
+    AudioKeys or VideoKeys tags in the same command if neither tag group
+    pre-existed in the file
 
 Jan. 20, 2025 - Version 13.13
 

data/bin/MANIFEST

@@ -178,9 +178,9 @@ html/TagNames/Stim.html
 html/TagNames/Text.html
 html/TagNames/Theora.html
 html/TagNames/Torrent.html
+html/TagNames/Trailer.html
 html/TagNames/Unknown.html
 html/TagNames/VCard.html
-html/TagNames/Vivo.html
 html/TagNames/Vorbis.html
 html/TagNames/WPG.html
 html/TagNames/WTV.html
@@ -429,10 +429,10 @@ lib/Image/ExifTool/TagNames.pod
 lib/Image/ExifTool/Text.pm
 lib/Image/ExifTool/Theora.pm
 lib/Image/ExifTool/Torrent.pm
+lib/Image/ExifTool/Trailer.pm
 lib/Image/ExifTool/Unknown.pm
 lib/Image/ExifTool/VCard.pm
 lib/Image/ExifTool/Validate.pm
-lib/Image/ExifTool/Vivo.pm
 lib/Image/ExifTool/Vorbis.pm
 lib/Image/ExifTool/WPG.pm
 lib/Image/ExifTool/WTV.pm
@@ -832,6 +832,8 @@ t/QuickTime_18.out
 t/QuickTime_19.out
 t/QuickTime_2.out
 t/QuickTime_20.out
+t/QuickTime_21.out
+t/QuickTime_22.out
 t/QuickTime_3.out
 t/QuickTime_4.out
 t/QuickTime_5.out

data/bin/META.json

@@ -50,5 +50,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "13.14"
+   "version" : "13.17"
 }

data/bin/META.yml

@@ -31,4 +31,4 @@ recommends:
   Time::HiRes: '0'
 requires:
   perl: '5.004'
-version: '13.14'
+version: '13.17'

data/bin/README

@@ -109,8 +109,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.14.tar.gz | tar -xf -
-  cd Image-ExifTool-13.14
+  gzip -dc Image-ExifTool-13.17.tar.gz | tar -xf -
+  cd Image-ExifTool-13.17
   ./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 = '13.14';
+my $version = '13.17';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
 my $exePath;
@@ -1525,7 +1525,7 @@ if (($tagOut or defined $diff) and ($csv or $json or %printFmt or $tabFormat or
 }
 
 if ($csv and $csv eq 'CSV' and not $isWriting) {
-    undef $json;    # (not compatible)
+    $json = 0;    # (not compatible)
     if ($textOut) {
         Warn "Sorry, -w may not be combined with -csv\n";
         $rtnVal = 1;
@@ -2404,6 +2404,7 @@ sub GetImageInfo($$)
                 ($g2, $same) = ($g, 0);
                 # build list of all tags in the new group of the diff file
                 @groupTags2 = ();
+                push @groupTags2, $tag2 if defined $tag2;
                 foreach $t2 (@found2) {
                     $done2{$t2} or $g ne $et2->GetGroup($t2, $showGroup) or push @groupTags2, $t2;
                 }
@@ -5983,7 +5984,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 13.14 --
+    -- Generated by ExifTool 13.17 --
     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.61';
+$VERSION = '3.62';
 @ISA = qw(Exporter);
 
 sub NumbersFirst($$);
@@ -74,26 +74,32 @@ my %tweakOrder = (
     DJI     => 'Casio',
     FLIR    => 'DJI',
     FujiFilm => 'FLIR',
+    GoPro   => 'GE',
     Kodak   => 'JVC',
     Leaf    => 'Kodak',
-    Minolta => 'Leaf',
+    Lytro   => 'Leaf',
+    Minolta => 'Lytro',
     Motorola => 'Minolta',
     Nikon   => 'Motorola',
-    NikonCustom => 'Nikon',
-    NikonCapture => 'NikonCustom',
-    Nintendo => 'NikonCapture',
+    NikonCapture => 'Nikon',
+    NikonCustom => 'NikonCapture',
+    NikonSettings => 'NikonCustom',
+    Nintendo => 'NikonSettings',
+    Panasonic => 'Olympus',
     Pentax  => 'Panasonic',
+    Ricoh   => 'Reconyx',
+    Samsung => 'Ricoh',
     SonyIDC => 'Sony',
-    Vivo    => 'SonyIDC',
-    Unknown => 'Vivo',
+    Unknown => 'SonyIDC',
     DNG     => 'Unknown',
     PrintIM => 'ICC_Profile',
     Vorbis  => 'Ogg',
     ID3     => 'PostScript',
     MinoltaRaw => 'KyoceraRaw',
     KyoceraRaw => 'CanonRaw',
+    MinoltaRaw => 'KyoceraRaw',
+    PanasonicRaw => 'MinoltaRaw',
     SigmaRaw => 'PanasonicRaw',
-    Lytro   => 'SigmaRaw',
     PhotoMechanic => 'FotoStation',
     Microsoft     => 'PhotoMechanic',
     GIMP    => 'Microsoft',
@@ -451,12 +457,6 @@ L<AudioKeys|Image::ExifTool::TagNames/QuickTime AudioKeys Tags> and
 L<VideoKeys|Image::ExifTool::TagNames/QuickTime VideoKeys Tags> tags for
 more information.
 
-Beware that the values of the Keys tags are actually stored inside an
-ItemList atom in the file, so deleting the ItemList group as a block (ie.
-C<-ItemList:all=>) also deletes Keys tags.  Instead, to preserve Keys tags
-the ItemList tags may be deleted individually with
-C<-QuickTime:ItemList:all=>.
-
 Alternate language tags may be accessed for
 L<ItemList|Image::ExifTool::TagNames/QuickTime ItemList Tags> and
 L<Keys|Image::ExifTool::TagNames/QuickTime Keys Tags> tags by adding
@@ -467,8 +467,8 @@ L<UserData|Image::ExifTool::TagNames/QuickTime UserData Tags> tags support a
 language code, but without a country code.  If no language code is specified
 when writing, the default language is written and alternate languages for
 the tag are deleted.  Use the "und" language code to write the default
-language without deleting alternate languages.  Note that "eng" is treated
-as a default language when reading, but not when writing.
+language without deleting alternate languages.  Note that when reading,
+"eng" is also treated as the default language if there is no country code.
 
 According to the specification, integer-format QuickTime date/time tags
 should be stored as UTC.  Unfortunately, digital cameras often store local

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

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '4.87';
+$VERSION = '4.89';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -527,7 +527,8 @@ $VERSION = '4.87';
     748 => 'Canon EF 100-400mm f/4.5-5.6L IS II USM + 1.4x or Tamron Lens', #JR (1.4x Mk III)
     748.1 => 'Tamron 100-400mm f/4.5-6.3 Di VC USD A035E + 1.4x', #IB
     748.2 => 'Tamron 70-210mm f/4 Di VC USD (A034) + 2x', #IB
-    749 => 'Tamron 100-400mm f/4.5-6.3 Di VC USD A035E + 2x', #IB
+    749 => 'Canon EF 100-400mm f/4.5-5.6L IS II USM + 2x or Tamron Lens', #PH
+    749.1 => 'Tamron 100-400mm f/4.5-6.3 Di VC USD A035E + 2x', #IB
     750 => 'Canon EF 35mm f/1.4L II USM or Tamron Lens', #42
     750.1 => 'Tamron SP 85mm f/1.8 Di VC USD (F016)', #Exiv2#1072
     750.2 => 'Tamron SP 45mm f/1.8 Di VC USD (F013)', #PH
@@ -634,8 +635,9 @@ $VERSION = '4.87';
    '61182.57' => 'Canon RF 70-200mm F2.8 L IS USM Z', #42
    '61182.58' => 'Canon RF 70-200mm F2.8 L IS USM Z + RF1.4x', #42
    '61182.59' => 'Canon RF 70-200mm F2.8 L IS USM Z + RF2x', #42
-   '61182.60' => 'Canon RF 50mm F1.4 L VCM', #42
-   '61182.61' => 'Canon RF 24mm F1.4 L VCM', #42
+   '61182.60' => 'Canon RF 16-28mm F2.8 IS STM', #42
+   '61182.61' => 'Canon RF 50mm F1.4 L VCM', #42
+   '61182.62' => 'Canon RF 24mm F1.4 L VCM', #42
     65535 => 'n/a',
 );
 
@@ -7027,6 +7029,7 @@ my %ciMaxFocal = (
             319 => 'Canon RF 70-200mm F2.8 L IS USM Z', #42
             320 => 'Canon RF 70-200mm F2.8 L IS USM Z + RF1.4x', #42
             321 => 'Canon RF 70-200mm F2.8 L IS USM Z + RF2x', #42
+            323 => 'Canon RF 16-28mm F2.8 IS STM', #42
             325 => 'Canon RF 50mm F1.4 L VCM', #42
             326 => 'Canon RF 24mm F1.4 L VCM', #42
             # Note: add new RF lenses to %canonLensTypes with ID 61182

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

@@ -22,7 +22,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.21';
+$VERSION = '1.22';
 
 sub ProcessPEResources($$);
 sub ProcessPEVersion($$);
@@ -194,6 +194,8 @@ my %int32uTime = (
         Name => 'MachineType',
         PrintHex => 1,
         PrintConv => {
+            0x0 => 'Unknown',
+            0x01 => 'Target host',
             0x014c => 'Intel 386 or later, and compatibles',
             0x014d => 'Intel i860', #5
             0x0162 => 'MIPS R3000',
@@ -204,10 +206,12 @@ my %int32uTime = (
             0x0184 => 'Alpha AXP',
             0x01a2 => 'Hitachi SH3',
             0x01a3 => 'Hitachi SH3 DSP',
+            0x01a4 => 'Hitachi SH3E',
             0x01a6 => 'Hitachi SH4',
             0x01a8 => 'Hitachi SH5',
             0x01c0 => 'ARM little endian',
             0x01c2 => 'Thumb',
+            0x01c4 => 'Thumb 2 little endian',
             0x01d3 => 'Matsushita AM33',
             0x01f0 => 'PowerPC little endian',
             0x01f1 => 'PowerPC with floating point support',
@@ -217,16 +221,26 @@ my %int32uTime = (
             0x0284 => 'Alpha AXP 64-bit',
             0x0366 => 'MIPS with FPU',
             0x0466 => 'MIPS16 with FPU',
+            0x0520 => 'Infineon Tricore',
             0x0ebc => 'EFI Byte Code',
+            0x3a64 => 'Compiled Hybrid PE',
+            0x5032 => 'RISC-V 32-bit',
+            0x5064 => 'RISC-V 64-bit',
+            0x5128 => 'RISC-V 128-bit',
+            0x6232 => 'LoongArch 32-bit',
+            0x6264 => 'LoongArch 64-bit',
             0x8664 => 'AMD AMD64',
             0x9041 => 'Mitsubishi M32R little endian',
+            0xaa64 => 'ARM64 little endian',
             0xc0ee => 'clr pure MSIL',
+            0x0cef => 'CEF',
+            0xec20 => 'Dotnet 0xEC20'
         },
     },
     2 => { Name => 'TimeStamp', %int32uTime },
     9 => {
         Name => 'ImageFileCharacteristics',
-        # ref https://docs.microsoft.com/en-us/windows/desktop/api/winnt/ns-winnt-_image_file_header
+        # ref https://docs.microsoft.com/en-us/windows/desktop/api/winnt/ns-winnt-image_file_header
         PrintConv => { BITMASK => {
             0 => 'No relocs',
             1 => 'Executable',

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

@@ -18,7 +18,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.62';
+$VERSION = '1.63';
 
 sub ProcessID3v2($$$);
 sub ProcessPrivate($$$);
@@ -1278,9 +1278,9 @@ sub ProcessID3v2($$$)
             my $enc = unpack('C', $val);
             my ($tag, $url);
             if ($enc == 1 or $enc == 2) {
-                ($tag, $url) = ($tag =~ /^(.(?:..)*?)\0\0(.*)/s);
+                ($tag, $url) = ($val =~ /^(.(?:..)*?)\0\0(.*)/s);
             } else {
-                ($tag, $url) = ($tag =~ /^(..*?)\0(.*)/s);
+                ($tag, $url) = ($val =~ /^(..*?)\0(.*)/s);
             }
             unless (defined $tag and defined $url) {
                 $et->Warn("Invalid $id frame value");
@@ -1293,7 +1293,7 @@ sub ProcessID3v2($$$)
                 $tagInfo = $$tagTablePtr{$id} || AddTagToTable($tagTablePtr, $id, MakeTagName($tag));
             }
             $url =~ s/\0.*//s;
-            $val = $url;
+            $val = $et->Decode($url, 'Latin');
         } elsif ($id =~ /^W/) {
             $val =~ s/\0.*//s;  # truncate at null
         } elsif ($id =~ /^(COM|COMM|ULT|USLT)$/) {

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

@@ -350,7 +350,13 @@ sub ProcessJPEG_HDR($$$);
       }, {
         Name => 'Vivo',
         Condition => '$$valPt =~ /^(streamdata|vivo\{")/',
-        SubDirectory => { TagTable => 'Image::ExifTool::Vivo::Main' },
+        SubDirectory => { TagTable => 'Image::ExifTool::Trailer::Vivo' },
+      }, {
+        Name => 'OnePlus',
+        SubDirectory => { TagTable => 'Image::ExifTool::Trailer::OnePlus' },
+      }, {
+        Name => 'Google',
+        SubDirectory => { TagTable => 'Image::ExifTool::Trailer::Google' },
       }, {
         Name => 'EmbeddedVideo',
         Notes => 'extracted only when ExtractEmbedded option is used',

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

@@ -14,7 +14,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 
-$VERSION = '1.55';
+$VERSION = '1.56';
 
 sub ProcessMIE($$);
 sub ProcessMIEGroup($$$);
@@ -1376,8 +1376,9 @@ sub WriteMIEGroup($$$)
                 my $term = "~\0\0\0";
                 unless ($$dirInfo{Parent}) {
                     # write extended terminator for file-level group
-                    my $len = ref $outfile eq 'SCALAR' ? length($$outfile) : tell $outfile;
-                    $len += 10; # include length of terminator itself
+                    my $len = ref $outfile eq 'SCALAR' ? length($$outfile) || 0 : tell $outfile;
+                    # include length of terminator itself minus original $outfile position
+                    $len += 10 - ($$dirInfo{OutPos} || 0);
                     if ($len and $len <= 0x7fffffff) {
                         $term = "~\0\0\x06" . Set32u($len) . MIEGroupFormat(1) . "\x04";
                     }
@@ -1802,6 +1803,8 @@ sub ProcessMIE($$)
             # don't define Parent so WriteMIEGroup() writes extended terminator
         );
         if ($outfile) {
+            # save start position in $outfile
+            $subdirInfo{OutPos} = ref $outfile eq 'SCALAR' ? length($$outfile) || 0 : tell $outfile;
             # generate lookup for MIE format codes if not done already
             unless (%mieCode) {
                 foreach (keys %mieFormat) {