exiftool-vendored.exe 13.43.0 → 13.45.0

package/bin/exiftool_files/exiftool.pl

@@ -11,7 +11,7 @@ use strict;
 use warnings;
 require 5.004;
 
-my $version = '13.43';
+my $version = '13.45';
 
 $^W = 1;    # enable global warnings
 
@@ -3288,7 +3288,7 @@ sub SetImageInfo($$$)
                             }
                         }
                         next;
-                    }                    
+                    }
                     my @exclTags = @csvExclude;
                     foreach (@exclTags) {
                         tr/-0-9a-zA-Z_:#?*//dc;     # remove illegal characters

package/bin/exiftool_files/lib/Image/ExifTool/Apple.pm

@@ -116,7 +116,6 @@ sub ConvertPLIST($$);
         # - 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)

package/bin/exiftool_files/lib/Image/ExifTool/BuildTagLookup.pm

@@ -35,7 +35,7 @@ use Image::ExifTool::Sony;
 use Image::ExifTool::Validate;
 use Image::ExifTool::MacOS;
 
-$VERSION = '3.63';
+$VERSION = '3.64';
 @ISA = qw(Exporter);
 
 sub NumbersFirst($$);
@@ -346,7 +346,7 @@ or "Rights-en-US").  (See L<http://www.ietf.org/rfc/rfc3066.txt> for the RFC
 3066 specification.)  A C<lang-alt> tag with no language code accesses the
 "x-default" language, but causes other languages for this tag to be deleted
 when writing.  The "x-default" language code may be specified when writing
-to preserve other existing languages (eg. "XMP-dc:Description-x-default"). 
+to preserve other existing languages (eg. "XMP-dc:Description-x-default").
 When reading, "x-default" is not specified.
 
 The XMP tags are organized according to schema B<Namespace> in the following
@@ -555,7 +555,7 @@ Pentax, Ricoh, Samsung, Sanyo, SeaLife, Sony, Supra and Vivitar.
 These tags are used in Panasonic/Leica cameras.
 },
     Pentax => q{
-These tags are used in Pentax/Asahi cameras.
+These tags are used in Pentax/Asahi/Ricoh cameras.
 },
     CanonRaw => q{
 These tags apply to CRW-format Canon RAW files and information in the APP0
@@ -629,7 +629,7 @@ and RPM).
     Extra => q{
 The extra tags provide extra features or extra information extracted or
 generated by ExifTool that is not directly associated with another tag
-group.  The B<Group> column lists the family 1 group name when reading. 
+group.  The B<Group> column lists the family 1 group name when reading.
 Tags with a "-" in this column are write-only.
 
 Tags in the family 1 "System" group are referred to as "pseudo" tags because

package/bin/exiftool_files/lib/Image/ExifTool/Canon.pm

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '5.00';
+$VERSION = '5.01';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -9397,6 +9397,7 @@ my %filterConv = (
             0 => 'Initial Priority',
             1 => 'On Subject',
             2 => 'Switch Subject',
+            0x7fffffff => 'n/a',
         },
     },
     24 => { #forum16068  #KG extensions for 'left' and 'right'

package/bin/exiftool_files/lib/Image/ExifTool/CanonCustom.pm

@@ -1362,7 +1362,7 @@ my %convPFn = ( PrintConv => \&ConvertPfn, PrintConvInv => \&ConvertPfnInv );
         PrintConvInv => '$val=~/0x([\dA-F]+)/i ? hex($1) : undef',
     },{
         Name => 'UsableMeteringModes',
-        Count => 2, 
+        Count => 2,
         PrintConv => [
             \%disableEnable,
             'sprintf("Flags 0x%x",$val)', # (evaluative,partial,spot,center-weighted average)

package/bin/exiftool_files/lib/Image/ExifTool/DarwinCore.pm

@@ -296,7 +296,7 @@ my %event = (
             taxonomicStatus             => { },
             verbatimTaxonRank           => { },
             vernacularName              => { Writable => 'lang-alt' },
-            superFamily                 => { },     # dwc.tdwg.org added 2023 
+            superFamily                 => { },     # dwc.tdwg.org added 2023
             subFamily                   => { },     # dwc.tdwg.org added 2023
             tribe                       => { },     # dwc.tdwg.org added 2023
             subTribe                    => { },     # dwc.tdwg.org added 2023
@@ -332,7 +332,7 @@ my %event = (
             georeferenceProtocol        => { },
             georeferenceRemarks         => { },
             georeferenceSources         => { },
-            georeferenceVerificationStatus => { },      # dwc.tdwg.org removed 2023    
+            georeferenceVerificationStatus => { },      # dwc.tdwg.org removed 2023
             higherGeography             => { },
             higherGeographyID           => { },
             island                      => { },

package/bin/exiftool_files/lib/Image/ExifTool/EXE.pm

@@ -1113,7 +1113,7 @@ sub ProcessPEResources($$)
 #------------------------------------------------------------------------------
 # Process Windows PE file data dictionary
 # Inputs: 0) ExifTool object ref, 1) dirInfo ref
-# Returns: true on success or if the PE resources didn't exist, or false on error 
+# Returns: true on success or if the PE resources didn't exist, or false on error
 #          processing the PE resources
 sub ProcessPEDict($$)
 {

package/bin/exiftool_files/lib/Image/ExifTool/Exif.pm

@@ -57,7 +57,7 @@ use vars qw($VERSION $AUTOLOAD @formatSize @formatName %formatNumber %intFormat
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::MakerNotes;
 
-$VERSION = '4.61';
+$VERSION = '4.63';
 
 sub ProcessExif($$$);
 sub WriteExif($$$);
@@ -213,7 +213,7 @@ $formatName[129] = 'utf8';  # (Exif 3.0)
     10 => 'JBIG Color', #3
     99 => 'JPEG', #16
     262 => 'Kodak 262', #16
-    32766 => 'Next', #3
+    32766 => 'Next or Sony ARW Compressed 2', #3/Milos
     32767 => 'Sony ARW Compressed', #16
     32769 => 'Packed RAW', #PH (used by Epson, Nikon, Samsung)
     32770 => 'Samsung SRW Compressed', #PH
@@ -1598,6 +1598,7 @@ my %opcodeInfo = (
             2 => 'Sony Compressed RAW', # (lossy, ref IB)
             3 => 'Sony Lossless Compressed RAW', #IB
             4 => 'Sony Lossless Compressed RAW 2', #JR (ILCE-1)
+            6 => 'Sony Compressed RAW 2', # ILCE-7M5
         },
     },
     # 0x7001 - int16u[1] (in SubIFD of Sony ARW images) - values: 0,1
@@ -3590,6 +3591,7 @@ my %opcodeInfo = (
             Condition => '$$valPt =~ /^\[ae_dbg_info:/',
             MakerNotes => 1,
             Binary => 1,
+            NotIFD => 1,
             WriteGroup => 'IFD0', # (for Validate)
             SubDirectory => { TagTable => 'Image::ExifTool::DJI::Info' },
             Format => 'undef',

package/bin/exiftool_files/lib/Image/ExifTool/FLIR.pm

@@ -479,7 +479,7 @@ my %float8g = ( Format => 'float', PrintConv => 'sprintf("%.8g",$val)' );
     VARS => { ID_FMT => 'none' },
     NOTES => q{
         Tags listed below are only for the first measurement tool, however multiple
-        measurements may be added, and information is extracted for all of them. 
+        measurements may be added, and information is extracted for all of them.
         Tags for subsequent measurements are generated as required with the prefixes
         "Meas2", "Meas3", etc.
     },

package/bin/exiftool_files/lib/Image/ExifTool/FlashPix.pm

@@ -1454,7 +1454,7 @@ sub ProcessContents($$$)
         my ($w, $h) = unpack('V2',$2);
         $et->FoundTag(ImageWidth => $w);
         $et->FoundTag(ImageHeight => $h);
-        $et->HandleTag($tagTablePtr, OriginalFileName => $name);        
+        $et->HandleTag($tagTablePtr, OriginalFileName => $name);
         if ($$dataPt =~ /\G\x01\0{4}(.{12})/sg) {
             # (first 4 bytes seem to be number of objects, next 4 bytes are zero, then ICC size)
             my $size = unpack('x8V', $1);

package/bin/exiftool_files/lib/Image/ExifTool/FujiFilm.pm

@@ -876,7 +876,7 @@ my %faceCategories = (
     0x144a => { Name => 'WBRed',      Writable => 'int16u' },
     0x144b => { Name => 'WBGreen',    Writable => 'int16u' },
     0x144c => { Name => 'WBBlue',     Writable => 'int16u' },
-    
+
     0x144d => { Name => 'RollAngle',  Writable => 'rational64s' }, #forum14319
     0x3803 => { #forum10037
         Name => 'VideoRecordingMode',
@@ -1942,7 +1942,7 @@ sub ProcessRAF($$)
     $et->SetFileType() unless $$et{DOC_NUM};
     my $tbl = GetTagTable('Image::ExifTool::FujiFilm::RAFHeader');
     $et->ProcessDirectory({ DataPt => \$buff, DirName => 'RAFHeader', Base => $base }, $tbl);
-    
+
     # extract information from embedded JPEG
     my %dirInfo = (
         Parent => 'RAF',

package/bin/exiftool_files/lib/Image/ExifTool/Geolocation.pm

@@ -12,7 +12,7 @@
 # Notes:        Set $Image::ExifTool::Geolocation::geoDir to override the
 #               default directory containing the database file Geolocation.dat
 #               and the GeoLang directory with the alternate language files.
-#               If set, this directory is 
+#               If set, this directory is
 #
 #               AltNames.dat may be loaded from a different directory by
 #               specifying $Image::ExifTool::Geolocation::altDir.  This

package/bin/exiftool_files/lib/Image/ExifTool/Geotag.pm

@@ -35,7 +35,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:Public);
 use Image::ExifTool::GPS;
 
-$VERSION = '1.83';
+$VERSION = '1.84';
 
 sub JITTER() { return 2 }       # maximum time jitter
 
@@ -1269,7 +1269,7 @@ Category:       foreach $category (qw{pos track alt orient atemp err dop}) {
             my $tag = ($$nvHash{WantGroup} ? "$$nvHash{WantGroup}:" : '') . 'Geolocate';
             # pass along any regular expressions to qualify geolocation search
             my $parms = join ',', grep m(/), split /\s*,\s*/, $geoloc;
-            $parms and $parms = ",$parms,both"; 
+            $parms and $parms = ",$parms,both";
             $et->SetNewValue($tag => "$$fix{lat},$$fix{lon}$parms");
             # (the Geolocate tag will be restored to its original value
             # by RestoreNewValues before the next file in batch processing)
@@ -1530,7 +1530,7 @@ sub PrintFixTime($)
 {
     my $time = $_[0] + 0.0005;  # round off to nearest ms
     my $fsec = int(($time - int($time)) * 1000);
-    return sprintf('%s.%.3d UTC', Image::ExifTool::ConvertUnixTime($time), $fsec);
+    return Image::ExifTool::ConvertUnixTime($time, undef, 3) . ' UTC';
 }
 
 #------------------------------------------------------------------------------

package/bin/exiftool_files/lib/Image/ExifTool/Google.pm

@@ -47,7 +47,7 @@ my %sEarthPose = (
     NAMESPACE => { EarthPose => 'http://ns.google.com/photos/dd/1.0/earthpose/' },
     Latitude  => {
         Writable => 'real',
-        Groups => { 2 => 'Location' }, 
+        Groups => { 2 => 'Location' },
         ValueConv    => 'Image::ExifTool::GPS::ToDegrees($val, 1)',
         ValueConvInv => '$val',
         PrintConv    => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "N")',
@@ -512,7 +512,7 @@ my %sAppInfo = (
     GROUPS => { 0 => 'MakerNotes', 2 => 'Image' },
     TAG_PREFIX => 'HDRPlusMakerNote',
     PROCESS_PROC => \&ProcessHDRP,
-    VARS => {   
+    VARS => {
         ID_FMT => 'str',
         SORT_PROC => sub {
             my ($a,$b) = @_;

package/bin/exiftool_files/lib/Image/ExifTool/ICC_Profile.pm

@@ -370,7 +370,6 @@ my %manuSig = ( #6
         Groups => { 2 => 'Time' },
         PrintConv => '$self->ConvertDateTime($val)',
     },
-    
     targ => {
         Name => 'CharTarget',
         ValueConv => '$val=~s/\0.*//; length $val > 128 ? \$val : $val',

package/bin/exiftool_files/lib/Image/ExifTool/Import.pm

@@ -335,7 +335,7 @@ Read CSV or JSON file into a database hash.
 
 1) Hash reference for database object.
 
-2) Optional string used to represent an undefined (missing) tag value. 
+2) Optional string used to represent an undefined (missing) tag value.
 (Used for deleting tags.)
 
 3) For ReadCSV this gives the delimiter for CSV entries, with a default of

package/bin/exiftool_files/lib/Image/ExifTool/JPEG.pm

@@ -11,7 +11,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.39';
+$VERSION = '1.40';
 
 sub ProcessOcad($$$);
 sub ProcessJPEG_HDR($$$);
@@ -212,6 +212,10 @@ sub ProcessJPEG_HDR($$$);
         Name => 'Pentax',
         Condition => '$$valPt =~ /^PENTAX \0/',
         SubDirectory => { TagTable => 'Image::ExifTool::Pentax::Main' },
+      }, {
+        Name => 'Ricoh',
+        Condition => '$$valPt =~ /^RICOH\0/',
+        SubDirectory => { TagTable => 'Image::ExifTool::Pentax::Main' },
       }, {
         Name => 'Huawei',
         Condition => '$$valPt =~ /^HUAWEI\0\0/',

package/bin/exiftool_files/lib/Image/ExifTool/Jpeg2000.pm

@@ -132,7 +132,7 @@ my %j2cMarker = (
     NOTES => q{
         The tags below are found in JPEG 2000 images and the C2PA CAI JUMBF metadata
         in various file types (see below).  Note that ExifTool currently writes only
-        EXIF, IPTC and XMP tags in Jpeg2000 images, and EXIF and XMP in JXL images. 
+        EXIF, IPTC and XMP tags in Jpeg2000 images, and EXIF and XMP in JXL images.
         ExifTool will read/write Brotli-compressed EXIF and XMP in JXL images, but
         the API L<Compress|../ExifTool.html#Compress> option must be set to create new EXIF and XMP in compressed
         format.