exiftool_vendored 13.46.0 → 13.47.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: fe98ce5f03c86564e64f053a399d231c67e02c5cefc2ae0533e933e52b2e5632
-  data.tar.gz: 7a7c7cd4a94746c50996474af6e3ad1b44bd4f3c2e2386435bde5be75f0439c1
+  metadata.gz: 47f8feb5a44a6bb4ae7c01fc5283a6b0407be026ac355bdfd28249e5b9118d96
+  data.tar.gz: c4f5c0cc1862c2fad3dc1c79bc7c0fbd546534018ce380a8abfb2fdb16f3d48b
 SHA512:
-  metadata.gz: ca5b1e6bb5faf24f0f213c83a5035747c1fb065ecb1ba7a9c19eadb404421248c1588bfe1da2d58251c5a5e3090e1bb6a0a07602ce1838ab1eee81e0c487484b
-  data.tar.gz: 8f07194647af977527b357417691574667ae8f67cb861f41eeb069b160446bc2fe8ba3b9c0bdc87abb015ce45389583dd624774cb779dcaa35318ef2b1f8293f
+  metadata.gz: f66737b1a83f6e4c4c493a9845fb6f9eae5813fb08733fb3cda7d572ea58a0ad94c136deff3c0e73bc79e2f1b02871679b49fbd00da2d98d33986b7bf4ec8dce
+  data.tar.gz: f0f87c67bacd26a6047039f9ee95ef8a6a695fcaf9c0d3be5ed7c5130118814cf2263a374f4c598a4c10fb2b1145179a0d8cb81c3b93f3e3c17c1f0622313fa4

data/bin/Changes

@@ -7,6 +7,14 @@ RSS feed: https://exiftool.org/rss.xml
 Note: The most recent production release is Version 13.44. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+Jan. 27, 2026 - Version 13.47
+
+  - Enhanced -fast option to avoid scanning QuickTime MediaData for metadata
+    (improves performance when reading CR3 files from slow media, github #384)
+    and -fast2 to avoid reading HDRP maker notes
+  - API Changes:
+      - Added CSV support to GeoUserTag option
+
 Jan. 25, 2026 - Version 13.46
 
   - Added a new Pentax LensType

data/bin/META.json

@@ -50,6 +50,6 @@
       }
    },
    "release_status" : "stable",
-   "version" : "13.46",
+   "version" : "13.47",
    "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.46'
+version: '13.47'
 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.46.tar.gz | tar -xf -
-  cd Image-ExifTool-13.46
+  gzip -dc Image-ExifTool-13.47.tar.gz | tar -xf -
+  cd Image-ExifTool-13.47
   ./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.46';
+my $version = '13.47';
 
 $^W = 1;    # enable global warnings
 
@@ -6136,7 +6136,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 13.46 --
+    -- Generated by ExifTool 13.47 --
     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/Geotag.pm

@@ -36,7 +36,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:Public);
 use Image::ExifTool::GPS;
 
-$VERSION = '1.85';
+$VERSION = '1.86';
 
 sub JITTER() { return 2 }       # maximum time jitter
 
@@ -336,6 +336,8 @@ sub LoadTrackLog($$;$)
                         $param = 'roll';
                     } elsif (/^Img ?Dir/i) {
                         $param = 'dir';
+                    } elsif ($userTag{lc $_}) {
+                        $param = $userTag{lc $_};
                     }
                     if ($param) {
                         $et->VPrint(2, "CSV column '${head}' is $param$xtra\n");
@@ -581,6 +583,8 @@ DoneFix:    $isDate = 1;
                 } elsif ($param eq 'runtime') {
                     $date = $trackTime;
                     $secs = $val;
+                } elsif ($param =~ /^_/) {
+                    $$fix{$param} = $val;
                 } else {
                     $val /= $scaleSpeed if $scaleSpeed and $param eq 'speed';
                     $$fix{$param} = $val;

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

@@ -15,7 +15,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::XMP;
 
-$VERSION = '1.00';
+$VERSION = '1.01';
 
 sub ProcessHDRP($$$);
 
@@ -672,8 +672,11 @@ sub ProcessHDRP($$$)
     my $tagInfo = $$dirInfo{TagInfo};
     my $tagName = $tagInfo ? $$tagInfo{Name} : '';
     my $verbose = $et->Options('Verbose');
+    my $fast = $et->Options('FastScan') || 0;
     my ($ver, $valPt);
 
+    return undef if $fast > 1;
+
     if ($$dirInfo{DirStart}) {
         my $dat = substr($$dataPt, $$dirInfo{DirStart}, $$dirInfo{DirLen});
         $dataPt = \$dat;

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

@@ -21,7 +21,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.06';
+$VERSION = '1.07';
 
 sub ProcessProtobuf($$$;$);
 
@@ -59,12 +59,14 @@ sub VarInt($)
     my $val = ord($buff) & 0x7f;
     $$dirInfo{Bit0} = $val & 0x01;
     my $mult = 128;
+    my $i = 0;
     for (;;) {
         last unless ord($buff) & 0x80;
         $buff = GetBytes($dirInfo, 1);
         return undef unless defined $buff;
         $val += (ord($buff) & 0x7f) * $mult;
         last unless ord($buff) & 0x80;
+        return undef if ++$i > 32;    # set a reasonable limit
         $mult *= 128;   # (Note: don't use integer bit shift to avoid integer overflow)
     }
     return $val;
@@ -73,7 +75,7 @@ sub VarInt($)
 #------------------------------------------------------------------------------
 # Read protobuf record
 # Inputs: 0) dirInfo ref
-# Returns: 0) record payload (plus tag id and format type in list context)
+# Returns: 0) record payload (plus tag id and format type in list context) or undef on error
 # Notes: Updates $$dirInfo{Pos} to start of next record, and sets $$dirInfo{Bit0}
 #        according to the least significant bit of type 0 (varInt) records
 sub ReadRecord($)
@@ -138,7 +140,6 @@ sub ProcessProtobuf($$$;$)
 
     $$dirInfo{Pos} = $$dirInfo{DirStart} || 0; # initialize buffer Pos
     $et->VerboseDir('Protobuf', undef, $dirLen);
-
     unless ($prefix) {
         $prefix = '';
         $$et{ProtoPrefix}{$dirName} = '' unless defined $$et{ProtoPrefix}{$dirName};

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

@@ -49,7 +49,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 
-$VERSION = '3.26';
+$VERSION = '3.27';
 
 sub ProcessMOV($$;$);
 sub ProcessKeys($$$);
@@ -10638,7 +10638,7 @@ QTLang: foreach $tag (@{$$et{QTLang}}) {
     }
     # brute force scan for metadata embedded in media data
     # (and process Insta360 trailer if it exists)
-    ScanMediaData($et) if $ee and $topLevel;
+    ScanMediaData($et) if $ee and $topLevel and not $$et{OPTIONS}{FastScan};
 
     # restore any changed options
     $et->Options($_ => $saveOptions{$_}) foreach keys %saveOptions;

data/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.46';
+$VERSION = '13.47';
 $RELEASE = '';
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (
@@ -1147,7 +1147,7 @@ my @availableOptions = (
     [ 'GeoMinSats',       undef,  'geotag minimum satellites' ],
     [ 'GeoHPosErr',       undef,  'geotag GPSHPositioningError based on $GPSDOP' ],
     [ 'GeoSpeedRef',      undef,  'geotag GPSSpeedRef' ],
-    [ 'GeoUserTag',       undef,  'user-defined GPX tags for geotagging' ],
+    [ 'GeoUserTag',       undef,  'user-defined tags for geotagging' ],
     [ 'GlobalTimeShift',  undef,  'apply time shift to all extracted date/time values' ],
     [ 'GPSQuadrant',      undef,  'quadrant for GPS if not otherwise known' ],
     [ 'Group#',           undef,  'return tags for specified groups in family #' ],

data/bin/lib/Image/ExifTool.pod

@@ -817,12 +817,13 @@ Reference units for writing GPSSpeed when geotagging:
 
 =item GeoUserTag
 
-Additional user-defined tags to write when geotagging from GPX files. 
+Additional user-defined tags to write when geotagging from GPX or CSV files.
 Format is 'I<TAG>=I<TOKEN>,...' where I<TAG> is an ExifTool tag name (with
-optional group name), and I<TOKEN> is is the property name in the GPX file. 
-eg) C<Location=desc> will write the Location tag based on the GPX 'desc'
-property.  The tag value is taken from the nearest fix in time.  Multiple
-tags may be specified using comma separators. Default is undef.
+optional group name), and I<TOKEN> is is the property name in the GPX file
+or the column name in the CSV file.  eg) C<Location=desc> will write the
+Location tag based on the value of 'desc' in the GPS log file.  The tag
+value is taken from the nearest fix in time.  Multiple tags may be specified
+using comma separators. Default is undef.
 
 =item GlobalTimeShift
 

data/bin/perl-Image-ExifTool.spec

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

data/lib/exiftool_vendored/version.rb

@@ -1,5 +1,5 @@
 # frozen_string_literal: true
 
 module ExiftoolVendored
-  VERSION = Gem::Version.new('13.46.0')
+  VERSION = Gem::Version.new('13.47.0')
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: exiftool_vendored
 version: !ruby/object:Gem::Version
-  version: 13.46.0
+  version: 13.47.0
 platform: ruby
 authors:
 - Matthew McEachen