exiftool_vendored 13.52.0 → 13.53.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: f1432f9788115500c5dc934cf7a08f704b8ac43891cd615e31613b08b296d6e4
-  data.tar.gz: 64a324bd2b96853ea8324c43fe1af74a4aa8b57fcda53253d5ec84b28371b59c
+  metadata.gz: c653bfd291b7881243e271beba3bdcf6af6343647b7736ea5750a8b6427c6ba2
+  data.tar.gz: 550046af23b550283317d05a7d3387d2e977efd2d3c74af0285808f8035c7756
 SHA512:
-  metadata.gz: 3712cd77765affd98d21ec3a8602dc4a2d2f86ccff56c3eb44f437cd7711182e9c7aaaccef566f3bfd045499f72a3641d01b05dec5891cf34059b7d76444892f
-  data.tar.gz: 248b84f36b0dc2f2cc653ef1ee0832adbcbce7d386dc482941a85db67fa2704a23d7a0724cb3d10527aac782a5ee32a11aaca2f0da3277b4180862a5fdf6b7f0
+  metadata.gz: a2dabd27da939c74ff1300eaea01b3597c994d9fe456bb2d386f6d5eba0f6fb682c8c154ac3ad833e8fd7e63f421b01f3c5c0b307989cb8e030284f2a5c0bf13
+  data.tar.gz: eb1cff971653f098e366a793786e43caa79a378134287935afd997f5dad37212f9bb6bf7b64523c85c4774e53fcd84379dc34b1016fa428f6d158011f0b69f5b

data/bin/Changes

@@ -7,6 +7,21 @@ RSS feed: https://exiftool.org/rss.xml
 Note: The most recent production release is Version 13.50. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+Mar. 19, 2026 - Version 13.53
+
+  - Added ability to read FileCreateDate (btime) on Linux systems
+  - Added a bunch more Sony lenses (thanks Jos Roost)
+  - Added warnings for possibly malicious or corrupted LNK files (github #401)
+  - Decode timed GPS from Kenwood DRV-A510W MP4 videos
+  - Decode more information from LNK files
+  - Reduced memory requirements when running on a large number of files,
+    particularly when the -U option is used
+  - Patched a potential security issue in Windows version
+  - Fixed possible "undefined value" runtime warnings when reading torrent and
+    WPG files (thanks Raf)
+  - Fixed issue which could result in an "uninitialized value" runtime error
+    when parsing corrupted CBOR information
+
 Feb. 27, 2026 - Version 13.52
 
   - Added a number of new XMP tags written by Adobe software
@@ -27,7 +42,7 @@ Feb. 19, 2026 - Version 13.51
   - Added a new Nikon LensID (thanks Johan)
   - Decode more tags from Windows LNK files
   - Decode another LIGOGPSINFO variant (github #394)
-  - Decode some new Canon tags (thanks Peter Wem, github #389, #390,  #393)
+  - Decode some new Canon tags (thanks Peter Wem, github #389, #390, #393)
   - Decode some new Nikon tags
   - Split decoding on Nikon BurstGroupID into separate tags
   - Fixed round-off error in GPSDateTime seconds for camm6 metadata in MP4

data/bin/META.json

@@ -50,6 +50,6 @@
       }
    },
    "release_status" : "stable",
-   "version" : "13.52",
+   "version" : "13.53",
    "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.52'
+version: '13.53'
 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.52.tar.gz | tar -xf -
-  cd Image-ExifTool-13.52
+  gzip -dc Image-ExifTool-13.53.tar.gz | tar -xf -
+  cd Image-ExifTool-13.53
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 
@@ -162,6 +162,7 @@ for calculating digest values and providing other features listed below:
   Win32::FindFile      (for Windows Unicode directory support, app only)
   Win32API::File       (for Windows Unicode file names and file times)
   Compress::Raw::Lzma  (for reading encoded 7z files)
+  File::StatX          (for reading FileCreateDate on Linux systems)
   IO::Compress::RawDeflate   (for writing FLIF images)
   IO::Uncompress::RawInflate (for reading FLIF images)
   IO::Compress::Brotli       (for writing compressed JXL metadata)

data/bin/exiftool

@@ -11,7 +11,7 @@ use strict;
 use warnings;
 require 5.004;
 
-my $version = '13.52';
+my $version = '13.53';
 
 $^W = 1;    # enable global warnings
 
@@ -202,6 +202,7 @@ my $progressIncr;   # increment for progress counter
 my $progressMax;    # total number of files to process
 my $progressNext;   # next progress count to output
 my $progStr;        # progress message string
+my $purge;          # flag to purge memory
 my $quiet;          # flag to disable printing of informational messages / warnings
 my $rafStdin;       # File::RandomAccess for stdin (if necessary to rewind)
 my $recurse;        # recurse into subdirectories (2=also hidden directories)
@@ -309,6 +310,7 @@ my @recommends = qw(
     Time::Local
     Unicode::LineBreak
     Compress::Raw::Lzma
+    File::StatX
     IO::Compress::RawDeflate
     IO::Uncompress::RawInflate
     IO::Compress::Brotli
@@ -521,6 +523,7 @@ undef $progressCount;
 undef $progressIncr;
 undef $progressMax;
 undef $progressNext;
+undef $purge;
 undef $rafStdin;
 undef $recurse;
 undef $scanWritable;
@@ -791,6 +794,7 @@ for (;;) {
             print "Optional libraries:\n";
             foreach (@recommends) {
                 next if /^Win32/ and $^O ne 'MSWin32';
+                next if /StatX/ and $^O ne 'linux';
                 my $ver = eval "require $_ and \$${_}::VERSION";
                 my $alt = $altRecommends{$_};
                 # check for alternative if primary not available
@@ -1172,9 +1176,9 @@ for (;;) {
         $vout = \*STDERR if $vout =~ /^-(\.\w+)?$/;
         next;
     }
-    /^overwrite_original$/i and $overwriteOrig = 1, next;
-    /^overwrite_original_in_place$/i and $overwriteOrig = 2, next;
-    /^plot$/i and require Image::ExifTool::Plot and $plot = Image::ExifTool::Plot->new, next;
+    $a eq 'overwrite_original' and $overwriteOrig = 1, next;
+    $a eq 'overwrite_original_in_place' and $overwriteOrig = 2, next;
+    $a eq 'plot' and require Image::ExifTool::Plot and $plot = Image::ExifTool::Plot->new, next;
     if (/^p(-?)$/ or /^printformat(-?)$/i) {
         my $fmt = shift;
         if ($pass) {
@@ -1192,7 +1196,7 @@ for (;;) {
         next;
     }
     (/^P$/ or $a eq 'preserve') and $preserveTime = 1, next;
-    /^password$/i and $mt->Options(Password => shift), next;
+    $a eq 'password' and $mt->Options(Password => shift), next;
     if (/^progress(\d*)(:.*)?$/i) {
         $progressIncr = $1 || 1;
         $progressNext = 0; # start showing progress at the first file
@@ -1207,6 +1211,7 @@ for (;;) {
         $progressCount = 0;
         next;
     }
+    /^purge(\d*)$/i and $purge = $1||1, Image::ExifTool::Purge($purge), next; # (undocumented) added in 13.53
     /^q(uiet)?$/i and ++$quiet, next;
     /^r(ecurse)?(\.?)$/i and $recurse = ($2 ? 2 : 1), next;
     if ($a eq 'require') { # (undocumented) added in version 8.65
@@ -1222,10 +1227,10 @@ for (;;) {
         }
         next;
     }
-    /^restore_original$/i and $deleteOrig = 0, next;
+    $a eq 'restore_original' and $deleteOrig = 0, next;
     (/^S$/ or $a eq 'veryshort') and $outFormat+=2, next;
     /^s(hort)?(\d*)$/i and $outFormat = $2 eq '' ? $outFormat + 1 : $2, next;
-    /^scanforxmp$/i and $mt->Options(ScanForXMP => 1), next;
+    $a eq 'scanforxmp' and $mt->Options(ScanForXMP => 1), next;
     if (/^sep(arator)?$/i) {
         my $sep = $listSep = shift;
         defined $listSep or Error("Expecting list item separator for -sep option\n"), $badCmd=1, next;
@@ -1360,7 +1365,7 @@ for (;;) {
         next;
     }
     (/^X$/ or $a eq 'xmlformat') and $xml = 1, $html = $json = 0, $mt->Options(Duplicates => 1), next;
-    if (/^php$/i) {
+    if ($a eq 'php') {
         $json = 2;
         $html = $xml = 0;
         $mt->Options(Duplicates => 1);
@@ -2074,6 +2079,8 @@ if ($countBadWr or $countBadCr or $countBad) {
     $rtnVal = 2;
 }
 
+Image::ExifTool::Purge(0) if $purge;    # do final purging
+
 # clean up after each command
 Cleanup();
 
@@ -4198,7 +4205,8 @@ sub SetWindowTitle($)
     if ($curTitle ne $title) {
         $curTitle = $title;
         if ($^O eq 'MSWin32') {
-            $title =~ s/([&\/\?:|"<>])/^$1/g;   # escape special chars
+            $title =~ tr(-_a-zA-Z0-9%.+/:=?*@~)()dc;  # allow only safe characters
+            $title =~ s/([\/?:%])/^$1/g;   # escape remaing questionable chars
             eval { system qq{title $title} };
         } else {
             # (this only works for XTerm terminals, and STDERR must go to the console)
@@ -4253,6 +4261,7 @@ sub ProcessFiles($;$)
                     next if $endDir{$d};
                 }
                 GetImageInfo($et, $file);
+                Image::ExifTool::Purge($purge) if $purge;
                 $end and Warn("End called - $file\n");
                 if ($endDir) {
                     Warn("EndDir called - $file\n");
@@ -4382,6 +4391,7 @@ sub ScanDir($$;$)
             push(@$list, $path);
         } else {
             GetImageInfo($et, $path);
+            Image::ExifTool::Purge($purge) if $purge;
             if ($end) {
                 Warn("End called - $file\n");
                 last;
@@ -5341,9 +5351,10 @@ information.  Use the B<-s> option to see the tag names instead.
 Exclude specified tag from extracted information.  Same as the B<-x> option.
 Group names and wildcards are permitted as described above for B<->I<TAG>.
 Once excluded from the output, a tag may not be re-included by a subsequent
-option.  May also be used following a B<-tagsFromFile> option to exclude
-tags from being copied (when redirecting to another tag, it is the source
-tag that should be excluded), or to exclude groups from being deleted when
+option.  Also note that this excludes the tag from being used in a C<-if>
+condition.  May be used following a B<-tagsFromFile> option to exclude tags
+from being copied (when redirecting to another tag, it is the source tag
+that should be excluded), or to exclude groups from being deleted when
 deleting all information (eg. C<-all= --exif:all> deletes all but EXIF
 information).  But note that this will not exclude individual tags from a
 group delete (unless a family 2 group is specified, see note 4 below).
@@ -5601,7 +5612,7 @@ wildcards.  When copying directly, the values of each matching source tag
 are copied individually to the destination tag (as if they were separate
 assignments).  However, when interpolated inside a string, list items and
 the values of shortcut tags are concatenated (with a separator set by the
-B<-sep> option), and wildcards are not allowed.Another difference is that a
+B<-sep> option), and wildcards are not allowed. Another difference is that a
 minor warning is generated if a tag doesn't exist when interpolating its
 value in a string (with C<$>), but isn't when copying the tag directly.
 
@@ -6136,7 +6147,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 13.52 --
+    -- Generated by ExifTool 13.53 --
     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.66';
+$VERSION = '3.67';
 @ISA = qw(Exporter);
 
 sub NumbersFirst($$);
@@ -963,6 +963,9 @@ TagID:  foreach $tagID (@keys) {
                 if ($$tagInfo{List} and $$tagInfo{List} !~ /^(1|Alt|Bag|Seq|array|string)$/) {
                     warn "Warning: Unknown List type ($$tagInfo{List}) for $name in $tableName\n";
                 }
+                if ($$tagInfo{Hook} and $$tagInfo{Unknown}) {
+                    warn "Warning: Unknown tag with Hook - $short $name\n"
+                }
                 # accumulate information for consistency check of BinaryData tables
                 if ($processBinaryData and $$table{WRITABLE}) {
                     # can't currently write tag if Condition accesses $valPt

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

@@ -16,7 +16,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::JSON;
 
-$VERSION = '1.03';
+$VERSION = '1.04';
 
 sub ProcessCBOR($$$);
 sub ReadCBORValue($$$$);
@@ -207,6 +207,7 @@ sub ReadCBORValue($$$$)
         # read next value (note: in the case of multiple tags,
         # this nesting will apply the tags in the correct order)
         ($val, $err, $pos) = ReadCBORValue($et, $dataPt, $pos, $end);
+        return(undef, $err, $pos) if $err;
         $dumpStart = $pos;
         # convert some values according to the optional tag number (untested)
         if ($num == 0 and not ref $val) {       # date/time string

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

@@ -6166,6 +6166,11 @@ my %ciMaxFocal = (
         SeparateTable => 'UserDefStyle',
         PrintConv => \%userDefStyles,
     },
+    # location of time stamp (github400)
+    # 0x00ec - 1000D firmware 1.0.7, 40D firmware 1.0.8
+    # 0x01b4 - 5D II firmware 1.0.6 and 1.1.0
+    # 0x01b8 - 5D II firmware 2.1.2
+    # 0x01bc - 7D firmware 2.0.3
 );
 
 # Picture Style information for the 60D, etc (ref 48)
@@ -6345,6 +6350,8 @@ my %ciMaxFocal = (
         SeparateTable => 'UserDefStyle',
         PrintConv => \%userDefStyles,
     },
+    # location of time stamp (github400)
+    # 0x01d0 - 6D firmware 1.1.6, 1D X firmware 2.1.0
 );
 
 # Movie information (MakerNotes tag 0x11) (ref PH)

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

@@ -6178,9 +6178,7 @@ sub NextOffsetName($;$)
 
 #------------------------------------------------------------------------------
 # Process EXIF directory
-# Inputs: 0) ExifTool object reference
-#         1) Reference to directory information hash
-#         2) Pointer to tag table for this directory
+# Inputs: 0) ExifTool ref, 1) dirInfo ref, 2) tag table ref
 # Returns: 1 on success, otherwise returns 0 and sets a Warning
 sub ProcessExif($$$)
 {