exiftool_vendored 13.08.0 → 13.12.0

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

@@ -37,7 +37,7 @@ use vars qw($VERSION %leicaLensTypes);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '2.22';
+$VERSION = '2.23';
 
 sub ProcessLeicaLEIC($$$);
 sub WhiteBalanceConv($;$$);
@@ -360,12 +360,16 @@ my %shootingMode = (
                 '16'    => 'Normal?', # (only mode for DMC-LC20)
                 '16 0'  => '1-area', # (FZ8)
                 '16 16' => '1-area (high speed)', # (FZ8)
+                '16 32' => '1-area +', #forum16903 (G9M2)
+                '17 0'  => 'Full Area', #forum16903 (G9M2)
                 # '32 0' is Face Detect for FS7, and Face Detect or Focus Tracking
                 # for the DMC-FZ200 (ref 17), and Auto is DMC-L1 guess,
                 '32 0'  => 'Tracking',
                 '32 1'  => '3-area (left)?', # (DMC-L1 guess)
                 '32 2'  => '3-area (center)?', # (DMC-L1 guess)
                 '32 3'  => '3-area (right)?', # (DMC-L1 guess)
+                '32 16' => 'Zone', #forum16903 (G9M2)
+                '32 18' => 'Zone (horizontal/vertical)', #forum16903 (G9M2)
                 # '32 16' ? (DC-GH6)
                 '64 0'  => 'Face Detect',
                 '64 1' => 'Face Detect (animal detect on)', #forum11194
@@ -1448,6 +1452,20 @@ my %shootingMode = (
         Name => 'MinimumISO',
         Writable => 'int32u',
     },
+    0xe9 => { #forum16903 (DC-G9M2)
+        Name => 'AFSubjectDetection',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'n/a',
+            1 => 'Human Eye/Face/Body',
+            2 => 'Animal', #PH (NC) (DC-S5 and DC-S5M2)
+            3 => 'Human Eye/Face',
+            4 => 'Animal Body',
+            5 => 'Animal Eye/Body',
+            6 => 'Car',
+            7 => 'Motorcycle',
+        }
+    },
     0xee => { #PH (DC-GH6)
         Name => 'DynamicRangeBoost',
         Writable => 'int16u',
@@ -2902,7 +2920,7 @@ Panasonic and Leica maker notes in EXIF information.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+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.

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

@@ -935,7 +935,7 @@ write meta information in Panasonic/Leica RAW, RW2 and RWL images.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+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.

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

@@ -825,7 +825,7 @@ timed metadata from the 'mett' frame found in Parrot drone MP4 videos.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+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.

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

@@ -6477,7 +6477,7 @@ tags, and everyone who helped contribute to the LensType values.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+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.

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

@@ -726,7 +726,7 @@ One maker notes.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+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.

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

@@ -484,7 +484,7 @@ information from Kodak Photo CD Image Pac (PCD) files.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+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.

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

@@ -237,7 +237,7 @@ write information written by the Camera Bits Photo Mechanic software.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+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.

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

@@ -362,6 +362,7 @@ my %unicodeString = (
     PROCESS_PROC => \&ProcessChannelOptions,
     VARS => { IS_BINARY => 1 },
     GROUPS => { 2 => 'Image' },
+    NOTES => 'These tags relate only to the appearance of a channel.',
     0 => {
         Name => 'ChannelColorSpace',
         Format => 'int16u',
@@ -1261,7 +1262,7 @@ be preserved when copying Photoshop information via user-defined tags.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+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.

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

@@ -768,7 +768,7 @@ This code reads meta information from EPS (Encapsulated PostScript), PS
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+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.

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

@@ -112,7 +112,7 @@ Print Image Matching meta information.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+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.

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

@@ -17,7 +17,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.00';
+$VERSION = '1.01';
 
 sub ProcessProtobuf($$$;$);
 
@@ -105,7 +105,7 @@ sub IsProtobuf($)
 
 #------------------------------------------------------------------------------
 # Process protobuf data (eg. DJI djmd timed data from Action4 videos) (ref 1)
-# Inputs: 0) ExifTool ref, 1) dirInfo ref with DataPt, DirName and Base,
+# Inputs: 0) ExifTool ref, 1) dirInfo ref with DataPt, DataPos, DirName and Base,
 #         2) tag table ptr, 3) prefix of parent protobuf ID's
 # Returns: true on success
 sub ProcessProtobuf($$$;$)
@@ -113,27 +113,32 @@ sub ProcessProtobuf($$$;$)
     my ($et, $dirInfo, $tagTbl, $prefix) = @_;
     my $dataPt = $$dirInfo{DataPt};
     my $dirName = $$dirInfo{DirName};
+    my $dirStart = $$dirInfo{DirStart} || 0;
+    my $dirLen = $$dirInfo{DirLen} || (length($$dataPt) - $dirStart);
+    my $dirEnd = $dirStart + $dirLen;
+    my $dataPos = ($$dirInfo{Base} || 0) + ($$dirInfo{DataPos} || 0);
     my $unknown = $et->Options('Unknown') || $et->Options('Verbose');
 
     $$dirInfo{Pos} = $$dirInfo{DirStart} || 0; # initialize buffer Pos
+    $et->VerboseDir('Protobuf', undef, $dirLen);
 
     unless ($prefix) {
         $prefix = '';
-        $$et{ProtocolName}{$dirName} = '*' unless defined $$et{ProtocolName}{$dirName};
+        $$et{ProtoPrefix}{$dirName} = '' unless defined $$et{ProtoPrefix}{$dirName};
         SetByteOrder('II');
     }
     # loop through protobuf records
     for (;;) {
         my $pos = $$dirInfo{Pos};
-        last if $pos >= length $$dataPt;
+        last if $pos >= $dirEnd;
         my ($buff, $id, $type) = ReadRecord($dirInfo);
         defined $buff or $et->Warn('Protobuf format error'), last;
         if ($type == 2 and $buff =~ /\.proto$/) {
             # save protocol name separately for directory type
-            $$et{ProtocolName}{$dirName} = substr($buff, 0, -6);
+            $$et{ProtoPrefix}{$dirName} = substr($buff, 0, -6) . '_';
             $et->HandleTag($tagTbl, Protocol => $buff);
         }
-        my $tag = "$$et{ProtocolName}{$dirName}_$prefix$id";
+        my $tag = "$$et{ProtoPrefix}{$dirName}$prefix$id";
         my $tagInfo = $$tagTbl{$tag};
         if ($tagInfo) {
             next if $type != 2 and $$tagInfo{Unknown} and not $unknown;
@@ -168,12 +173,17 @@ sub ProcessProtobuf($$$;$)
         } elsif ($type == 1) {
             $val = '0x' . unpack('H*', $buff) . ' (double ' . GetDouble(\$buff,0) . ')';
         } elsif ($type == 2) {
-            if ($$tagInfo{IsProtobuf}) {
-                $et->VPrint(1, "+ Protobuf $tag (" . length($buff) . " bytes)\n");
-                my $addr = $$dirInfo{Base} + $$dirInfo{Pos} - length($buff);
-                $et->VerboseDump(\$buff, Addr => $addr);
-                my %subdir = ( DataPt => \$buff, Base => $addr, DirName => $dirName );
+            if ($$tagInfo{SubDirectory}) {
+                # (fall through to process known SubDirectory)
+            } elsif ($$tagInfo{IsProtobuf}) {
+                # process Unknown protobuf directories
+                $et->VPrint(1, "$$et{INDENT}Protobuf $tag (" . length($buff) . " bytes) -->\n");
+                my $addr = $dataPos + $$dirInfo{Pos} - length($buff);
+                $et->VerboseDump(\$buff, Addr => $addr, Prefix => $$et{INDENT});
+                my %subdir = ( DataPt => \$buff, DataPos => $addr, DirName => $dirName );
+                $$et{INDENT} .= '| ';
                 ProcessProtobuf($et, \%subdir, $tagTbl, "$prefix$id-");
+                $$et{INDENT} = substr($$et{INDENT}, 0, -2);
                 next;
             } elsif ($buff !~ /[^\x20-\x7e]/) {
                 $val = $buff;   # assume this is an ASCII string
@@ -193,7 +203,7 @@ sub ProcessProtobuf($$$;$)
         my $start = $type == 0 ? $pos + 1 : $$dirInfo{Pos} - length $buff;
         $et->HandleTag($tagTbl, $tag, $val,
             DataPt => $dataPt,
-            DataPos=> $$dirInfo{Base},
+            DataPos=> $dataPos,
             Start  => $start,
             Size   => $$dirInfo{Pos} - $start,
             Extra  => ", type=$type",
@@ -201,7 +211,7 @@ sub ProcessProtobuf($$$;$)
         );
     }
     # warn if we didn't finish exactly at the end of the buffer
-    $et->Warn('Truncated protobuf data') unless $prefix or $$dirInfo{Pos} == length $$dataPt;
+    $et->Warn('Truncated protobuf data') unless $prefix or $$dirInfo{Pos} == $dirEnd;
     return 1;
 }
 
@@ -222,7 +232,7 @@ information in protocol buffer (protobuf) format.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+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.

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

@@ -1331,7 +1331,7 @@ information from the APP7 Qualcomm segment in JPEG images.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+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.

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

@@ -48,7 +48,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 
-$VERSION = '3.05';
+$VERSION = '3.08';
 
 sub ProcessMOV($$;$);
 sub ProcessKeys($$$);
@@ -69,8 +69,6 @@ sub Process_gps0($$$);
 sub Process_gsen($$$);
 sub Process_gdat($$$);
 sub Process_nbmt($$$);
-sub ProcessLigoGPS($$$;$);
-sub ProcessLigoJSON($$$);
 sub ProcessKenwood($$$);
 sub ProcessRIFFTrailer($$$);
 sub ProcessTTAD($$$);
@@ -253,15 +251,20 @@ my %timeInfo = (
     # Note: This value will be in UTC if generated by a system that is aware of the time zone
     # (also note: this code is duplicated for the CreateDate tag)
     RawConv => q{
-        my $offset = (66 * 365 + 17) * 24 * 3600;
-        return $val - $offset if $val >= $offset or $$self{OPTIONS}{QuickTimeUTC};
-        if ($val and not $$self{IsWriting}) {
-            $self->Warn('Patched incorrect time zero for QuickTime date/time tag',1);
+        if ($val) {
+            my $offset = (66 * 365 + 17) * 24 * 3600;
+            if ($val >= $offset or $$self{OPTIONS}{QuickTimeUTC}) {
+                $val -= $offset;
+            } elsif (not $$self{IsWriting}) {
+                $self->Warn('Patched incorrect time zero for QuickTime date/time tag',1);
+            }
+        } else {
+            undef $val if $self->Options('StrictDate');
         }
         return $val;
     },
     RawConvInv => q{
-        if ($$self{FileType} eq 'CR3' and not $self->Options('QuickTimeUTC')) {
+        if ($val and $$self{FileType} eq 'CR3' and not $self->Options('QuickTimeUTC')) {
             # convert to UTC
             my $offset = (66 * 365 + 17) * 24 * 3600;
             $val = ConvertUnixTime($val - $offset);
@@ -274,10 +277,14 @@ my %timeInfo = (
     ValueConvInv => q{
         $val = GetUnixTime($val, $self->Options("QuickTimeUTC"));
         return undef unless defined $val;
+        return $val unless $val;
         return $val + (66 * 365 + 17) * 24 * 3600;
     },
     PrintConv => '$self->ConvertDateTime($val)',
-    PrintConvInv => '$self->InverseDateTime($val)',
+    PrintConvInv => q{
+        return $val if $val eq '0000:00:00 00:00:00';
+        return $self->InverseDateTime($val);
+    }
     # (can't put Groups here because they aren't constant!)
 );
 # properties for ISO 8601 format date/time tags
@@ -590,7 +597,7 @@ my %userDefined = (
             Condition => '$$valPt =~ /^LIGOGPSINFO\0/',
             SubDirectory => { 
                 TagTable => 'Image::ExifTool::QuickTime::Stream',
-                ProcessProc => \&ProcessLigoGPS,
+                ProcessProc => 'Image::ExifTool::LigoGPS::ProcessLigoGPS',
             },
         },
         { Name => 'Skip', Unknown => 1, Binary => 1 },
@@ -775,7 +782,7 @@ my %userDefined = (
         Condition => '$$valPt =~ /^LIGOGPSINFO \{/',
         SubDirectory => {
             TagTable => 'Image::ExifTool::QuickTime::Stream',
-            ProcessProc => \&ProcessLigoJSON,
+            ProcessProc => 'Image::ExifTool::LigoGPS::ProcessLigoJSON',
         },
     },{
         Name => 'FLIRData',
@@ -1412,11 +1419,15 @@ my %userDefined = (
         Groups => { 2 => 'Time' },
         %timeInfo,
         RawConv => q{
-            my $offset = (66 * 365 + 17) * 24 * 3600;
-            if ($val >= $offset or $$self{OPTIONS}{QuickTimeUTC}) {
-                $val -= $offset;
-            } elsif ($val and not $$self{IsWriting}) {
-                $self->Warn('Patched incorrect time zero for QuickTime date/time tag',1);
+            if ($val) {
+                my $offset = (66 * 365 + 17) * 24 * 3600;
+                if ($val >= $offset or $$self{OPTIONS}{QuickTimeUTC}) {
+                    $val -= $offset;
+                } elsif (not $$self{IsWriting}) {
+                    $self->Warn('Patched incorrect time zero for QuickTime date/time tag',1);
+                }
+            } else {
+                undef $val if $$self{OPTIONS}{StrictDate};
             }
             return $$self{CreateDate} = $val;
         },
@@ -2222,8 +2233,8 @@ my %userDefined = (
     _cx_ => { Name => 'CX',    Format => 'rational64s', Unknown => 1 },
     _cy_ => { Name => 'CY',    Format => 'rational64s', Unknown => 1 },
     rads => { Name => 'Rads',  Format => 'rational64s', Unknown => 1 },
-    lvlm => { Name => 'LevelMeter', Format => 'rational64s', Unknown => 1 }, # (guess)
-    Lvlm => { Name => 'LevelMeter', Format => 'rational64s', Unknown => 1 }, # (guess)
+    lvlm => { Name => 'LevelMeter', Format => 'rational64s', Unknown => 1 }, # (guess, Kodak proprietary)
+    Lvlm => { Name => 'LevelMeter', Format => 'rational64s', Unknown => 1 }, # (guess, Kodak proprietary)
     pose => { Name => 'pose', SubDirectory => { TagTable => 'Image::ExifTool::Kodak::pose' } },
     # AMBA => Ambarella AVC atom (unknown data written by Kodak Playsport video cam)
     # tmlp - 1 byte: 0 (PixPro SP360/4KVR360)
@@ -2822,7 +2833,7 @@ my %userDefined = (
     },
     iinf => [{
         Name => 'ItemInformation',
-        Condition => '$$valPt =~ /^\0/', # (check for version 0)
+        Condition => '$$self{LastItemID} = -1; $$valPt =~ /^\0/', # (check for version 0)
         SubDirectory => {
             TagTable => 'Image::ExifTool::QuickTime::ItemInfo',
             Start => 6, # (4-byte version/flags + 2-byte count)
@@ -2894,6 +2905,17 @@ my %userDefined = (
             %unknownInfo,
         },
     ],
+    grpl => {
+        Name => 'Unknown_grpl',
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::grpl' },
+    },
+);
+
+# unknown grpl container
+%Image::ExifTool::QuickTime::grpl = (
+    PROCESS_PROC => \&ProcessMOV,
+    GROUPS => { 2 => 'Video' },
+    # altr - seen "00 00 00 00 00 00 00 41 00 00 00 02 00 00 00 42 00 00 00 2e"
 );
 
 # additional metadata container (ref ISO14496-12:2015)
@@ -3038,6 +3060,7 @@ my %userDefined = (
 );
 
 # ref https://aomediacodec.github.io/av1-spec/av1-spec.pdf
+# (NOTE: conversions are the same as Image::ExifTool::ICC_Profile::ColorRep tags)
 %Image::ExifTool::QuickTime::ColorRep = (
     PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
     GROUPS => { 2 => 'Video' },
@@ -3321,7 +3344,13 @@ my %userDefined = (
         the associations between items in the file.  This information is used by
         ExifTool, but these entries are not extracted as tags.
     },
-    dimg => { Name => 'DerivedImageRef',   RawConv => 'undef' },
+    dimg => {
+        Name => 'DerivedImageRef',
+        # also parse these for the ID of the primary 'tmap' item
+        # (tone-mapped image in HDRGainMap HEIC by iPhone 15 and 16)
+        RawConv => \&ParseContentDescribes,
+        WriteHook => \&ParseContentDescribes,
+    },
     thmb => { Name => 'ThumbnailRef',      RawConv => 'undef' },
     auxl => { Name => 'AuxiliaryImageRef', RawConv => 'undef' },
     cdsc => {
@@ -3339,7 +3368,8 @@ my %userDefined = (
     # hvc1 - HEVC image
     # lhv1 - L-HEVC image
     # infe - ItemInformationEntry
-    # infe types: avc1,hvc1,lhv1,Exif,xml1,iovl(overlay image),grid,mime,hvt1(tile image)
+    # infe types: avc1,hvc1,lhv1,Exif,xml1,iovl(overlay image),grid,mime,tmap,hvt1(tile image)
+    # ('tmap' has something to do with the new gainmap written by iPhone 15 and 16)
     infe => {
         Name => 'ItemInfoEntry',
         RawConv => \&ParseItemInfoEntry,
@@ -6569,7 +6599,7 @@ my %userDefined = (
     PROCESS_PROC => \&ProcessKeys,
     WRITE_PROC => \&WriteKeys,
     CHECK_PROC => \&CheckQTValue,
-    VARS => { LONG_TAGS => 8 },
+    VARS => { LONG_TAGS => 9 },
     WRITABLE => 1,
     # (not PREFERRED when writing)
     GROUPS => { 1 => 'Keys' },
@@ -6767,6 +6797,7 @@ my %userDefined = (
         ValueConv => 'unpack("N", $val)',
         Writable => 0, # (don't make this writable because it is found in timed metadata)
     },
+    'full-frame-rate-playback-intent' => 'FullFrameRatePlaybackIntent', #forum16824
 #
 # seen in Apple ProRes RAW file
 #
@@ -8787,6 +8818,7 @@ sub PrintableTagID($;$)
 #  ContentType        - mime type of item
 #  ContentEncoding    - item encoding
 #  URI                - URI of a 'uri '-type item
+#  infe               - raw data for 'infe' box (when writing only) [retracted]
 # ipma:
 #  Association        - list of associated properties in the ipco container
 #  Essential          - list of "essential" flags for the associated properties
@@ -8937,10 +8969,18 @@ sub ParseItemInfoEntry($$)
             $$items{$id}{URI} = GetString(\$val, $pos);
         }
     }
+    #[retracted] # save raw infe box when writing in case we need to sort items later
+    #[retracted] $$items{$id}{infe} = pack('N', length($val)+8) . 'infe' . $val if $$et{IsWriting};
     $et->VPrint(1, "$$et{INDENT}  Item $id: Type=", $$items{$id}{Type} || '',
                    ' Name=', $$items{$id}{Name} || '',
                    ' ContentType=', $$items{$id}{ContentType} || '',
+                   ($$et{PrimaryItem} and $$et{PrimaryItem} == $id) ? ' (PrimaryItem)' : '',
                    "\n") if $verbose > 1;
+    unless ($id > $$et{LastItemID}) {
+        $et->Warn('Item info entries are out of order'); #[retracted] unless $$et{IsWriting};
+        #[retracted] $$et{ItemsNotSorted} = 1;   # set flag indicating the items weren't sorted
+    }
+    $$et{LastItemID} = $id;
     return undef;
 }
 
@@ -8961,6 +9001,7 @@ sub ParseItemPropAssoc($$)
     my $flg = Get32u(\$val, 0);
     my $num = Get32u(\$val, 4);
     my $pos = 8;
+    my $lastID = -1;
     for ($i=0; $i<$num; ++$i) {
         if ($ver == 0) {
             return undef if $pos + 3 > $len;
@@ -8993,6 +9034,9 @@ sub ParseItemPropAssoc($$)
         $$items{$id}{Association} = \@association;
         $$items{$id}{Essential} = \@essential;
         $et->VPrint(1, "$$et{INDENT}  Item $id properties: @association\n") if $verbose > 1;
+        # (according to ISO/IEC 23008-12, these entries must be sorted by item ID)
+        $et->Warn('Item property association entries are out of order') unless $id > $lastID;
+        $lastID = $id;
     }
     return undef;
 }
@@ -9039,7 +9083,10 @@ sub HandleItemInfo($)
                 }
             }
             $warn = "Can't currently decode protected $type metadata" if $$item{ProtectionIndex};
-            $warn = "Can't currently extract $type with construction method $$item{ConstructionMethod}" if $$item{ConstructionMethod};
+            # Note: In HEIC's, these seem to indicate data in 'idat' instead of 'mdat'
+            my $constMeth = $$item{ConstructionMethod} || 0;
+            $warn = "Can't currently extract $type with construction method $constMeth" if $constMeth > 1;
+            $warn = "No 'idat' for $type object with construction method 1" if $constMeth == 1 and not $$et{MediaDataInfo};
             $et->Warn($warn) if $warn and $name;
             $warn = 'Not this file' if $$item{DataReferenceIndex}; # (can only extract from "this file")
             unless (($$item{Extents} and @{$$item{Extents}}) or $warn) {
@@ -9050,7 +9097,7 @@ sub HandleItemInfo($)
                 $et->VPrint(0, "$$et{INDENT}    [not extracted]  ($warn)\n") if $verbose > 2;
                 next;
             }
-            my $base = $$item{BaseOffset} || 0;
+            my $base = ($$item{BaseOffset} || 0) + ($constMeth ? $$et{MediaDataInfo}[0] : 0);
             if ($verbose > 2) {
                 # do verbose hex dump
                 my $len = 0;
@@ -9189,6 +9236,7 @@ sub HandleItemInfo($)
         delete $$et{DOC_NUM};
     }
     delete $$et{ItemInfo};
+    delete $$et{MediaDataInfo};
 }
 
 #------------------------------------------------------------------------------
@@ -9771,8 +9819,10 @@ sub ProcessMOV($$;$)
         # save required tag sizes
         if ($$tagTablePtr{"$tag-size"}) {
             $et->HandleTag($tagTablePtr, "$tag-size", $size);
-            $et->HandleTag($tagTablePtr, "$tag-offset", $raf->Tell()) if $$tagTablePtr{"$tag-offset"};
+            $et->HandleTag($tagTablePtr, "$tag-offset", $raf->Tell()+$dirBase) if $$tagTablePtr{"$tag-offset"};
         }
+        # save position/size of 'idat'
+        $$et{MediaDataInfo} = [ $raf->Tell() + $dirBase, $size ] if $tag eq 'idat';
         # stop processing at mdat/idat if -fast2 is used
         last if $fast > 1 and ($tag eq 'mdat' or ($tag eq 'idat' and $$et{FileType} ne 'HEIC'));
         # load values only if associated with a tag (or verbose) and not too big
@@ -10241,6 +10291,24 @@ sub ProcessQTIF($$)
     return ProcessMOV($et, $dirInfo, $table);
 }
 
+#==============================================================================
+# Autoload LigoGPS module if necessary
+# NOTE: Switches to package LigoGPS!
+#
+package Image::ExifTool::LigoGPS;
+use vars qw($AUTOLOAD);
+sub AUTOLOAD {
+    require Image::ExifTool::LigoGPS;
+    unless (defined &$AUTOLOAD) {
+        my @caller = caller(0);
+        # reproduce Perl's standard 'undefined subroutine' message:
+        die "Undefined subroutine $AUTOLOAD called at $caller[1] line $caller[2]\n";
+    }
+    no strict 'refs';
+    return &$AUTOLOAD(@_);  # call the function
+}
+#==============================================================================
+
 1;  # end
 
 __END__
@@ -10260,7 +10328,7 @@ information from QuickTime and MP4 video, M4A audio, and HEIC image files.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+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.