exiftool_vendored 13.42.0 → 13.44.0

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

@@ -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
@@ -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

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

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '4.99';
+$VERSION = '5.00';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -492,6 +492,7 @@ $VERSION = '4.99';
    '368.12' => 'Sigma 18-35mm f/1.8 DC HSM | A', #50
    '368.13' => 'Sigma 24-105mm f/4 DG OS HSM | A', #forum3833
    '368.14' => 'Sigma 18-300mm f/3.5-6.3 DC Macro OS HSM | C', #forum15280 (014)
+   '368.15' => 'Sigma 24mm F1.4 DG HSM | A', #50 (015)
     # Note: LensType 488 (0x1e8) is reported as 232 (0xe8) in 7D CameraSettings
     488 => 'Canon EF-S 15-85mm f/3.5-5.6 IS USM', #PH
     489 => 'Canon EF 70-300mm f/4-5.6L IS USM', #Gerald Kapounek
@@ -1423,6 +1424,11 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
             Condition => '$$self{Model} =~ /\bEOS (R6m2|R8|R50)$/',
             SubDirectory => { TagTable => 'Image::ExifTool::Canon::CameraInfoR6m2' },
         },
+        {
+            Name => 'CanonCameraInfoR6m3',
+            Condition => '$$self{Model} =~ /\bEOS R6 Mark III$/',
+            SubDirectory => { TagTable => 'Image::ExifTool::Canon::CameraInfoR6m3' },
+        },
         {
             Name => 'CanonCameraInfoG5XII',
             Condition => '$$self{Model} =~ /\bG5 X Mark II$/',
@@ -4794,6 +4800,22 @@ my %ciMaxFocal = (
     },
 );
 
+%Image::ExifTool::Canon::CameraInfoR6m3 = (
+    %binaryDataAttrs,
+    FIRST_ENTRY => 0,
+    PRIORITY => 0,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    NOTES => 'CameraInfo tags for the EOS R6 Mark II.',
+    0x086d => { #forum17745
+        Name => 'ShutterCount',
+        Format => 'int32u',
+        # (upper 2 bytes are currently unknown for this tag in JPEG images --
+        #  we need samples ideally spanning the 65536 count)
+        RawConv => '$$self{PATH}[2] eq "UUID-Canon" ? $val : $val & 0xffff',
+        Notes => 'includes electronic + mechanical shutter',
+    },
+);
+
 # ref https://exiftool.org/forum/index.php?topic=15356.0
 %Image::ExifTool::Canon::CameraInfoG5XII = (
     %binaryDataAttrs,

data/bin/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)

data/bin/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                      => { },

data/bin/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($$)
 {

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

@@ -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 HQ', # ILCE-7M5
         },
     },
     # 0x7001 - int16u[1] (in SubIFD of Sony ARW images) - values: 0,1

data/bin/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.
     },

data/bin/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);

data/bin/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',

data/bin/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

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

@@ -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)

data/bin/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) = @_;

data/bin/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',

data/bin/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

data/bin/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.

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

@@ -0,0 +1,399 @@
+#------------------------------------------------------------------------------
+# File:         Kandao.pm
+#
+# Description:  Read Kandao MP4 metadata
+#
+# Revisions:    2025-12-10 - P. Harvey Created
+#
+# Notes:        Tested with videos from the Kandao QooCam 3 Ultra
+#------------------------------------------------------------------------------
+
+package Image::ExifTool::Kandao;
+
+use strict;
+use vars qw($VERSION);
+use Image::ExifTool qw(:DataAccess :Utils);
+
+$VERSION = '1.00';
+
+sub ProcessKandao($$$);
+sub ProcessKVAR($$);
+
+# Kandao format codes
+my %format = (
+    CHAR => 'string',
+    BOOL => 'int8u',
+    U8   => 'int8u',
+    U16  => 'int16u',
+    U32  => 'int32u',
+    U64  => 'int64u',
+    S8   => 'int8s',
+    S16  => 'int16s',
+    S32  => 'int32s',
+    S64  => 'int64s',
+    FLOAT => 'float',
+    DOUBLE => 'double',
+);
+
+# Kandao 'kvar' and 'kfix' information
+%Image::ExifTool::Kandao::Main = (
+    GROUPS => { 0 => 'Kandao', 1 => 'KVAR', 2 => 'Camera' },
+    VARS => { NO_LOOKUP => 1 },
+    NOTES => q{
+        Tags extracted from Kandao KVAR files and the 'kvar', 'kfix' and 'kstb'
+        atoms in Kandao MP4 videos, and have a family 1 group name of KVAR, KFIX or
+        KSTB depending on their location.
+    },
+    PROCESS_PROC => \&ProcessKandao,
+#
+# 'kvar' tags
+#
+    CPU_TEMP => { Name => 'CPUTemperature', ValueConv => '$val / 10' }, # U32[1]
+    BAT_TEMP => 'BatteryTemperature', # U32[1]
+    PTS_UNIT => { # U32[1]
+        Name => 'TimeStampUnit',
+        PrintConv => { 0 => 'ms', 1 => 'Subtle', 2 => 'ns' },
+    },
+    TOTAL_FRAME => 'TotalFrames', # U32[1]
+    TOTAL_TIME_MS => { # U32[1]
+        Name => 'TotalTime',
+        ValueConv => '$val / 1000',
+    },
+    LENS => 'LensData', # CHAR[534]
+    DASHBOARD => 'Dashboard', # U8[1]
+    PROJECTION   => 'Projection', # CHAR[16]
+    CENTER_SHIFT => 'CenterShift', # DOUBLE[1]
+    DISTORTION   => 'Distortion', # DOUBLE[1]
+    INFO => 'Info', # CHAR[239]
+    PTS => {
+        Name => 'PresentationTimeStamp',
+        Notes => 'TimeStamp for each frame',
+        Format => 'undef', # U64[x]
+        Binary => 1,
+    },
+    LENS_SN0 => 'Lens0SerialNumber', # CHAR[15]
+    LENS_SN1 => 'Lens1SerialNumber', # CHAR[15]
+    LENS_OTP_ID0 => 'Lens0OTP_ID', # U8[1]
+    LENS_OTP_ID1 => 'Lens1OTP_ID', # U8[1]
+    IMU => {
+        RecordSize => 20,
+        SubDirectory => { TagTable => 'Image::ExifTool::Kandao::IMU' },
+    },
+    GPS => [{
+        Condition => '$$valPt =~ /^\xff{4}/',
+        RecordSize => 28,
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kandao::GPS',
+            Start => 4,
+        },
+    },{
+        RecordSize => 20,
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kandao::GPS',
+        },
+    }],
+    GPSX => {
+        RecordSize => 36,
+        SubDirectory => { TagTable => 'Image::ExifTool::Kandao::GPSX' },
+    },
+    EXP => { # U8[x]
+        # actually int64u - monotonically increasing
+        Name => 'Exp',
+    },
+    # (ISP = Image Signal Processor)
+    ISP => 'ISP', # U8 - 46-byte records (not very interesting looking)
+    FRAME_ISP => {
+        # U8 - 12-byte records: int32u-ts, float, float
+        RecordSize => 12,
+        SubDirectory => { TagTable => 'Image::ExifTool::Kandao::FrameISP' },
+    },
+    GAINMAP0 => 'GainMap0',
+    GAINMAP1 => 'GainMap1',
+#
+# 'kfix' tags
+#
+    PRODUCT => 'Model',
+    PROJECT => 'Project',
+    SN => 'SerialNumber',
+    PR_VER => 'ProductVersion',
+    SW_VER => 'SoftwareVersion',
+    HW_VER => 'HardwareVersion',
+    VIDEO_CAPTIME => {
+        Name => 'VideoCaptureTime',
+        Notes => 'local camera time',
+        Groups => { 2 => 'Time' },
+        ValueConv => '$val =~ s/^(\d{4})-(\d{2})-/$1:$2:/; $val',
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    GPS_CAPTIME => {
+        Name => 'GPSCaptureTime',
+        Groups => { 2 => 'Time' },
+        ValueConv => 'ConvertUnixTime($val/1000, 0, 3) . "Z"',
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    LENS_INDEX => { Name => 'LensIndex', Format => 'int16u' },
+    NEED_LSC => 'NeedLDSC',
+    # (also in 'kvar') CPU_TEMP => { Name => 'CPUTemperature', ValueConv => '$val / 10' },
+    # (also in 'kvar') BAT_TEMP => 'BatteryTemperature',
+    INPUT_INSERT => 'InputInsert',
+    VIDEO_RESOLUTION => 'VideoResolution',
+    VIDEO_CODECTYPE => 'VideoCodec',
+    VIDEO_BITRATE => { Name => 'VideoBitrate', PrintConv => '($val / 1e6) . " Mbps"' },
+    VIDEO_FORMAT => 'VideoFormat',
+    OUTPUT_INSERT => 'OutputInsert',
+    DYNAMIC_RANGE => 'DynamicRange',
+    AWB_CCT => 'AWB_CCT',
+    EV => 'EV',
+    ISO => 'ISO',
+    SHUTTER => 'Shutter',
+    IMAGE_STYLE => 'ImageStyle',
+    AE_METERING => 'AEMetering',
+    CAPTURE_MODE => 'CaptureMode',
+    HDR => 'HDR',
+    STITCHED => 'Stitched',
+    COVER_MODE => 'CoverMode',
+    STEREO => 'Stereo',
+    FOV => 'FOV',
+    AE_MODE => 'AEMode',
+    AF_FN => 'AF_FN',
+    AWB_MODE => 'AWBMode',
+    AUDIO_GAIN => 'AudioGain',
+    INTERVAL => 'Interval',
+    ISP_VER => 'ISPVersion',
+    YAW => 'Yaw',
+    FAN_LEVEL => 'FanLevel',
+    FAN_MODE => 'FanMode',
+    CUSTOMIZED => 'Customized',
+);
+
+%Image::ExifTool::Kandao::GPS = (
+    GROUPS => { 0 => 'Kandao', 1 => 'KVAR', 2 => 'Location' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    NOTES => q{
+        These tags are in the family 1 KVAR group instead of a GPS group to allow
+        them to be distinguished from the duplicate GPS tags in the GPSX table.
+    },
+    0 => { Name => 'TimeStamp', Format => 'int32u' },
+    4 => {
+        Name => 'GPSLatitude',
+        Format => 'double',
+        ValueConv => 'Image::ExifTool::GPS::ToDegrees($val, 1)',
+        PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "N")',
+    },
+    12 => {
+        Name => 'GPSLongitude',
+        Format => 'double',
+        ValueConv => 'Image::ExifTool::GPS::ToDegrees($val, 1)',
+        PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "E")',
+    },
+    20 => { # (optional)
+        Name => 'GPSAltitude',
+        Format => 'double',
+        PrintConv => '$_ = sprintf("%.6f", $val); s/\.?0+$//; "$_ m"',
+    },
+);
+
+%Image::ExifTool::Kandao::GPSX = (
+    GROUPS => { 0 => 'Kandao', 1 => 'GPS', 2 => 'Location' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    NOTES => q(
+        These tags are in the family 1 GPS group.  They are duplicates of the tags
+        in the Kandao GPS table with the addition of GPSDateTime.
+    ),
+    0 => { Name => 'TimeStamp', Format => 'int32u' },
+    4 => {
+        Name => 'GPSDateTime',
+        Description => 'GPS Date/Time',
+        Groups => { 2 => 'Time' },
+        Format => 'int64u',
+        ValueConv => 'ConvertUnixTime($val/1000, 0, 3) . "Z"',
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    12 => {
+        Name => 'GPSLatitude',
+        Format => 'double',
+        ValueConv => 'Image::ExifTool::GPS::ToDegrees($val, 1)',
+        PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "N")',
+    },
+    20 => {
+        Name => 'GPSLongitude',
+        Format => 'double',
+        ValueConv => 'Image::ExifTool::GPS::ToDegrees($val, 1)',
+        PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "E")',
+    },
+    28 => {
+        Name => 'GPSAltitude',
+        Format => 'double',
+        PrintConv => '$_ = sprintf("%.6f", $val); s/\.?0+$//; "$_ m"',
+    },
+);
+
+# IMU gyroscope data
+%Image::ExifTool::Kandao::IMU = (
+    GROUPS => { 0 => 'Kandao', 1 => 'KVAR', 2 => 'Location' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    0 => { Name => 'TimeStamp',     Format => 'int64u' },
+    8 => { Name => 'Gyroscope',     Format => 'int16s[3]' }, # 2G max range
+    14=> { Name => 'Accelerometer', Format => 'int16s[3]' }, # 2000 deg/sec max range
+    # (Kandao docs mention optional 6-byte Magnetometer data here, but
+    #  with no way to determine if it exists, and it isn't in my samples)
+);
+
+# (ISP = Image Signal Processor?)
+%Image::ExifTool::Kandao::FrameISP = (
+    GROUPS => { 0 => 'Kandao', 1 => 'KVAR', 2 => 'Other' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    0 => { Name => 'TimeStamp',  Format => 'int32u',   Unknown => 1 },
+    4 => { Name => 'FrameISP_4', Format => 'float[2]', Unknown => 1 },
+);
+
+#------------------------------------------------------------------------------
+# Extract information from a Kandao 'kfix' and 'kvar' atoms
+# Inputs: 0) ExifTool ref, 1) dirInfo reference, 2) tag table ref
+# Returns: 1 on success
+sub ProcessKandao($$$)
+{
+    my ($et, $dirInfo, $tagTbl) = @_;
+    my $raf = $$dirInfo{RAF};
+    $raf or $raf = File::RandomAccess->new($$dirInfo{DataPt});
+    my $dirName = $$dirInfo{DirName};
+    my $dataPos = ($$dirInfo{DataPos} || 0) + ($$dirInfo{Base} || 0);
+    my $verbose = $et->Options('Verbose');
+    my $ee = $et->Options('ExtractEmbedded');
+    # extract as a block from MP4 if specified
+    if ($$dirInfo{BlockInfo}) {
+        my $blockName = $$dirInfo{BlockInfo}{Name};
+        my $blockExtract = $et->Options('BlockExtract');
+        if (($blockExtract or $$et{REQ_TAG_LOOKUP}{lc $blockName} or
+            ($$et{TAGS_FROM_FILE} and not $$et{EXCL_TAG_LOOKUP}{lc $blockName})))
+        {
+            $et->FoundTag($$dirInfo{BlockInfo}, $$dirInfo{DataPt});
+            return 1 if $blockExtract and $blockExtract > 1;
+        }
+    }
+    my ($buff, $err, $i, $tag, $fmt);
+    SetByteOrder('II');
+    $raf->Read($buff, 4) == 4 or return 0;
+    my $n = Get32u(\$buff, 0);
+    $et->VerboseDir($dirName, $n);
+    for ($i=0; $i<$n; ++$i) {
+        $raf->Read($buff, 0x2c) == 0x2c or $err = '', last;
+        ($tag = substr($buff, 0, 0x20)) =~ s/\0+$//;
+        ($fmt = substr($buff, 0x20, 8)) =~ s/\0+$//;
+        my $format = $format{$fmt};
+        $format or $err = "Unknown Kandao format '${fmt}'", last;
+        my $num = Get32u(\$buff, 0x28);
+        my $size = $num * Image::ExifTool::FormatSize($format);
+        my %parms = (
+            DataPt  => \$buff,
+            DataPos => $dataPos + $raf->Tell(),
+            Index   => $i,
+            Format  => $format,
+        );
+        $raf->Read($buff, $size) == $size or $err = '', last;
+        my $tagInfo = $et->GetTagInfo($tagTbl, $tag, \$buff);
+        unless ($tagInfo) {
+            my $name = ucfirst lc $tag;
+            $name =~ s/_([a-z])/_\u$1/g;
+            $name = Image::ExifTool::MakeTagName($name);
+            $et->VPrint(0, "$$et{INDENT}\[adding $dirName '${tag}']\n");
+            $tagInfo = AddTagToTable($tagTbl, $tag, { Name => $name });
+        }
+        my $recLen = $$tagInfo{RecordSize};
+        if ($recLen) {
+            $verbose and $et->VerboseInfo($tag, $tagInfo, %parms);
+            my $tbl = GetTagTable($$tagInfo{SubDirectory}{TagTable});
+            my $pt = $$tagInfo{SubDirectory}{Start} || 0;
+            my %dirInfo = (
+                DataPt  => \$buff,,
+                DataPos => $parms{DataPos},
+                DirLen  => $recLen,
+                DirName => $tag,
+            );
+            my $nLimit = 10000;
+            my $sizeLimit = $size;
+            if ($ee and int(($size - $pt) / $recLen) > $nLimit and
+                $et->Warn("Extracting only the first $nLimit $$tagInfo{Name} records", 2))
+            {
+                $sizeLimit = $pt + $recLen * $nLimit;
+            }
+            while ($pt+$recLen <= $sizeLimit) {
+                $$et{DOC_NUM} = ++$$et{DOC_COUNT};
+                $dirInfo{DirStart} = $pt;
+                $et->ProcessDirectory(\%dirInfo, $tbl);
+                $ee or $et->Warn('Use the ExtractEmbedded option to extract all timed metadata',7), last;
+                $pt += $recLen;
+            }
+            delete $$et{DOC_NUM};
+        } else {
+            my $val;
+            if ($fmt eq 'U8' and $num > 1 and not $$tagInfo{Format}) {
+                $val = \$buff;
+            } else {
+                # override format if necessary
+                if ($$tagInfo{Format}) {
+                    $format = $$tagInfo{Format};
+                    $parms{Format} .= " read as $format";
+                    $num = int($size / Image::ExifTool::FormatSize($format));
+                }
+                $val = ReadValue(\$buff, 0, $format, $num, $size);
+            }
+            my $key = $et->HandleTag($tagTbl, $tag, $val, %parms);
+            $et->SetGroup($key, $dirName) if $dirName ne 'KVAR';
+        }
+    }
+    $et->Warn($err || "Truncated $dirName record") if defined $err;
+    return 1;
+}
+
+#------------------------------------------------------------------------------
+# Process Kandao KVAR file
+# Inputs: 0) ExifTool ref, 1) dirInfo reference
+# Returns: 1 on success, 0 if this wasn't a valid KVAR file
+sub ProcessKVAR($$)
+{
+    my ($et, $dirInfo) = @_;
+    my $raf = $$dirInfo{RAF};
+    my ($buff, $tagTablePtr);
+
+    # verify this is a valid KVAR file
+    return 0 unless $raf->Read($buff, 44) == 44;
+    return 0 unless $buff =~ /^.{2}\0\0[A-Z].{31}(CHAR|BOOL|[US](8|16|32|64)|FLOAT|DOUBLE)\0/s;
+    $et->SetFileType('KVAR', 'application/x-kandaostudio');
+    $raf->Seek(0,0) or $et->Warn('Seek error'), return 1;
+    $$dirInfo{DirName} = 'KVAR';
+    $tagTablePtr = GetTagTable('Image::ExifTool::Kandao::Main');
+    return $et->ProcessDirectory($dirInfo, $tagTablePtr);
+}
+
+1;  # end
+
+__END__
+
+=head1 NAME
+
+Image::ExifTool::Kandao - Read Kandao MP4 metadata
+
+=head1 SYNOPSIS
+
+This module is used by Image::ExifTool
+
+=head1 DESCRIPTION
+
+This module contains code to extract metadata from Kandao 'kfix' and 'kvar'
+atoms in MP4 videos as shot by the Kandao QOOCAM 3 ULTRA.
+
+=head1 AUTHOR
+
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<Image::ExifTool::TagNames/Kandao Tags>,
+L<Image::ExifTool(3pm)|Image::ExifTool>
+
+=cut
+

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

@@ -596,7 +596,7 @@ sub ProcessLinkInfo($$$)
         $off = Get32u($dataPt, 0x14);
         if ($off and $off + 0x14 <= $dataLen) {
             my $siz = Get32u($dataPt, $off);
-            return 0 if $off + $siz > $dataLen; 
+            return 0 if $off + $siz > $dataLen;
             $pos = Get32u($dataPt, $off + 0x08);
             if ($pos > 0x14 and $siz >= 0x18) {
                 $pos = Get32u($dataPt, $off + 0x14);