exiftool-vendored.pl 12.97.0 → 13.0.0

package/bin/lib/Image/ExifTool/TagLookup.pm

@@ -1349,7 +1349,7 @@ my %tagLookup = (
 	'camerae-mountversion' => { 490 => 0xb },
 	'cameraelevationangle' => { 124 => 0x9405, 524 => 'CameraElevationAngle' },
 	'camerafilename' => { 507 => 'CameraFilename' },
-	'camerafirmware' => { 124 => 0xa439 },
+	'camerafirmware' => { 124 => 0xa439, 524 => 'CameraFirmware' },
 	'cameraid' => { 333 => 0x209, 413 => 'cmid', 429 => 0x209 },
 	'cameraidentifier' => { 407 => 'camera.identifier' },
 	'cameraimage' => { 495 => [\'Cameras','CamerasCameraImage'] },
@@ -3728,8 +3728,8 @@ my %tagLookup = (
 	'imagedustoff' => { 300 => 0xfe443a45 },
 	'imageeditcount' => { 388 => 0x41 },
 	'imageediting' => { 388 => 0x32 },
-	'imageeditingsoftware' => { 124 => 0xa43b },
-	'imageeditor' => { 124 => 0xa438 },
+	'imageeditingsoftware' => { 124 => 0xa43b, 524 => 'ImageEditingSoftware' },
+	'imageeditor' => { 124 => 0xa438, 524 => 'ImageEditor' },
 	'imageeffects' => { 420 => 0x1010 },
 	'imagefileconstraints' => { 338 => 'ImageFileConstraints' },
 	'imagefileformatasdelivered' => { 338 => 'ImageFileFormatAsDelivered' },
@@ -3805,9 +3805,10 @@ my %tagLookup = (
 	'imagesuppliername' => { 338 => [\'ImageSupplier','ImageSupplierImageSupplierName'] },
 	'imagetemperaturemax' => { 126 => 0x1 },
 	'imagetemperaturemin' => { 126 => 0x2 },
+	'imagetitle' => { 124 => 0xa436, 524 => 'ImageTitle' },
 	'imagetone' => { 388 => 0x4f },
 	'imagetype' => { 136 => 0x82, 338 => 'ImageType' },
-	'imageuniqueid' => { 1 => 0x15, 68 => 0x28, 124 => 0xa420, 522 => 'ImageUniqueID', 523 => 'ImageUniqueID' },
+	'imageuniqueid' => { 1 => 0x15, 68 => 0x28, 124 => 0xa420, 522 => 'ImageUniqueID', 523 => 'ImageUniqueID', 524 => 'ImageUniqueID' },
 	'imagewidth' => { 124 => 0x100, 193 => 0xe, 397 => 0x10c, 502 => 'ImageWidth', 542 => 'ImageWidth' },
 	'inclinationangle' => { 491 => 0x900f },
 	'inclinationcorrection' => { 491 => 0x900e },
@@ -4796,7 +4797,7 @@ my %tagLookup = (
 	'metadataauthorityidentifier' => { 531 => [\'metadataAuthority','metadataAuthorityIdentifier'] },
 	'metadataauthorityname' => { 531 => [\'metadataAuthority','metadataAuthorityName'] },
 	'metadatadate' => { 544 => 'MetadataDate' },
-	'metadataeditingsoftware' => { 124 => 0xa43c },
+	'metadataeditingsoftware' => { 124 => 0xa43c, 524 => 'MetadataEditingSoftware' },
 	'metadatalastedited' => { 531 => 'metadataLastEdited' },
 	'metadatalasteditor' => { 531 => 'metadataLastEditor' },
 	'metadatalasteditoridentifier' => { 531 => [\'metadataLastEditor','metadataLastEditorIdentifier'] },
@@ -5599,7 +5600,7 @@ my %tagLookup = (
 	'photoeffectsgreen' => { 302 => 0x6 },
 	'photoeffectsred' => { 302 => 0x4 },
 	'photoeffectstype' => { 302 => 0x0 },
-	'photographer' => { 124 => 0xa437 },
+	'photographer' => { 124 => 0xa437, 524 => 'Photographer' },
 	'photographicsensitivity' => { 524 => 'PhotographicSensitivity' },
 	'photoidentifier' => { 1 => 0x2b },
 	'photoinfoplayback' => { 307 => '17.6', 316 => '33.6' },
@@ -5946,7 +5947,7 @@ my %tagLookup = (
 	'rawdevcolorspace' => { 334 => 0x108, 335 => 0x109 },
 	'rawdevcontrastvalue' => { 334 => 0x106, 335 => 0x105 },
 	'rawdeveditstatus' => { 334 => 0x10b },
-	'rawdevelopingsoftware' => { 124 => 0xa43a },
+	'rawdevelopingsoftware' => { 124 => 0xa43a, 524 => 'RAWDevelopingSoftware' },
 	'rawdevelopmentprocess' => { 388 => 0x62 },
 	'rawdevengine' => { 334 => 0x109, 335 => 0x10b },
 	'rawdevexposurebiasvalue' => { 334 => 0x100, 335 => 0x100 },
@@ -6940,7 +6941,7 @@ my %tagLookup = (
 	'timezoneinfo' => { 105 => 0x2 },
 	'timezoneoffset' => { 124 => 0x882a },
 	'tint' => { 407 => 'player.movie.visual.tint', 517 => 'Tint', 519 => 'Tint' },
-	'title' => { 124 => 0xa436, 162 => 'Title', 337 => 'Title', 341 => 'Title', 352 => 0x65, 404 => 'Title', 405 => ['titl',"\xa9nam"], 407 => 'title', 413 => ['titl',"\xa9nam"], 520 => 'title', 533 => 'Title', 544 => 'Title' },
+	'title' => { 162 => 'Title', 337 => 'Title', 341 => 'Title', 352 => 0x65, 404 => 'Title', 405 => ['titl',"\xa9nam"], 407 => 'title', 413 => ['titl',"\xa9nam"], 520 => 'title', 533 => 'Title', 544 => 'Title' },
 	'togglestyleamount' => { 517 => 'ToggleStyleAmount', 519 => 'ToggleStyleAmount' },
 	'togglestyledigest' => { 517 => 'ToggleStyleDigest', 519 => 'ToggleStyleDigest' },
 	'tonecomp' => { 241 => 0x81 },
@@ -8686,7 +8687,6 @@ my %tagExists = (
 	'cont' => 1,
 	'contactnames' => 1,
 	'containerversion' => 1,
-	'contake' => 1,
 	'contentbranding' => 1,
 	'contentdescribes' => 1,
 	'contentdescription' => 1,
@@ -8709,6 +8709,7 @@ my %tagExists = (
 	'contrastadjustment' => 1,
 	'contrastinfo' => 1,
 	'controller' => 1,
+	'conttake' => 1,
 	'convergenceangle' => 1,
 	'convergencebaseimage' => 1,
 	'convergencedistance' => 1,
@@ -8820,6 +8821,7 @@ my %tagExists = (
 	'customfunctionsd30' => 1,
 	'customfunctionsd60' => 1,
 	'customfunctionsunknown' => 1,
+	'custominfo' => 1,
 	'customsettingsd3' => 1,
 	'customsettingsd300' => 1,
 	'customsettingsd300s' => 1,
@@ -9741,6 +9743,8 @@ my %tagExists = (
 	'gpsframingaltitude' => 1,
 	'gpsframinglatitude' => 1,
 	'gpsframinglongitude' => 1,
+	'gpshomelatitude' => 1,
+	'gpshomelongitude' => 1,
 	'gpshorizontalaccuracy' => 1,
 	'gpsinfo' => 1,
 	'gpslatitude2' => 1,
@@ -12014,6 +12018,7 @@ my %tagExists = (
 	'scenebalancealgorithmrevision' => 1,
 	'sceneclassification' => 1,
 	'scenecolorimetryestimates' => 1,
+	'sceneilluminance' => 1,
 	'scheduleitemid' => 1,
 	'schemeinfo' => 1,
 	'schemetype' => 1,

package/bin/lib/Image/ExifTool/TagNames.pod

@@ -12,7 +12,7 @@ meta information extracted from or written to a file.
 =head1 TAG TABLES
 
 The tables listed below give the names of all tags recognized by ExifTool.
-They contain a total of 28148 tags, with 17486 unique tag names.
+They contain a total of 28165 tags, with 17491 unique tag names.
 
 B<Tag ID>, B<Index#> or B<Sequence> is given in the first column of each
 table.  A B<Tag ID> is the computer-readable equivalent of a tag name, and
@@ -871,7 +871,7 @@ for the official EXIF 2.32 specification.
   0xa433   LensMake                  ExifIFD    string
   0xa434   LensModel                 ExifIFD    string
   0xa435   LensSerialNumber          ExifIFD    string
-  0xa436   Title                     ExifIFD    string/
+  0xa436   ImageTitle                ExifIFD    string
   0xa437   Photographer              ExifIFD    string
   0xa438   ImageEditor               ExifIFD    string
   0xa439   CameraFirmware            ExifIFD    string
@@ -4605,7 +4605,7 @@ These tags belong to the ExifTool XMP-exif family 1 group.
   GPSTrack                                      rational
   GPSTrackRef                                   string
   GPSVersionID                                  string
-  ImageUniqueID                                 string
+  ImageUniqueID                                 string/
   ISO                                           integer+
   LightSource                                   string
   MakerNote                                     string
@@ -4686,6 +4686,7 @@ These tags belong to the ExifTool XMP-exifEX family 1 group.
   Acceleration                                  rational
   SerialNumber                                  string
   CameraElevationAngle                          rational
+  CameraFirmware                                string
   OwnerName                                     string
   CompositeImage                                integer
   CompositeImageCount                           integer+
@@ -4702,6 +4703,10 @@ These tags belong to the ExifTool XMP-exifEX family 1 group.
   CompImageValues                               rational_+
   Gamma                                         rational
   Humidity                                      rational
+  ImageEditingSoftware                          string
+  ImageEditor                                   string
+  ImageTitle                                    string
+  ImageUniqueID                                 string
   InteropIndex                                  string
   ISOSpeed                                      integer
   ISOSpeedLatitudeyyy                           integer
@@ -4710,8 +4715,11 @@ These tags belong to the ExifTool XMP-exifEX family 1 group.
   LensModel                                     string
   LensSerialNumber                              string
   LensInfo                                      rational+
+  MetadataEditingSoftware                       string
+  Photographer                                  string
   PhotographicSensitivity                       integer
   Pressure                                      rational
+  RAWDevelopingSoftware                         string
   RecommendedExposureIndex                      integer
   SensitivityType                               integer
   StandardOutputSensitivity                     integer
@@ -26108,7 +26116,7 @@ the image undisplayable.
   ------   --------                             --------
       0    MajorBrand                           no
       1    MinorVersion                         no
-      2    CompatibleBrands                     no
+      2    CompatibleBrands                     no+
 
 =head3 Jpeg2000 ImageHeader Tags
 
@@ -26163,7 +26171,7 @@ from any tags found in this segment.
   ------               --------                 --------
   'Aperture'           Aperture                 no
   'ColorMode'          ColorMode                no
-  'ConTake'            ConTake                  no
+  'ContTake'           ContTake                 no
   'ExpBias'            ExposureCompensation     no
   'FNumber'            FNumber                  no
   'FWare'              FirmwareVersion          no
@@ -29846,6 +29854,7 @@ for the official QuickTime specification.
   'PICT'               PreviewPICT              no
   '_htc'               HTCInfo                  QuickTime HTCInfo
   'ardt'               ARDroneFile              no
+  'cust'               CustomInfo               no
   'frea'               Kodak_frea               Kodak frea
   'free'               KodakFree                Kodak Free
                        Pittasoft                QuickTime Pittasoft
@@ -29897,7 +29906,7 @@ for the official QuickTime specification.
 The tags below are extracted from timed metadata in QuickTime and other
 formats of video files when the ExtractEmbedded option is used.  Although
 most of these tags are combined into the single table below, ExifTool
-currently reads 77 different formats of timed GPS metadata from video files.
+currently reads 78 different formats of timed GPS metadata from video files.
 
   Tag Name                                      Writable
   --------                                      --------
@@ -30163,6 +30172,7 @@ changed via the config file.
   'producer'    Producer                        yes
   'publisher'   Publisher                       yes
   'rating.user' UserRating                      yes
+  'scene-illuminance' SceneIlluminance          no
   'software'    Software                        yes
   'still-image-time' StillImageTime             no
   'title'       Title                           yes
@@ -30185,22 +30195,29 @@ changed via the config file.
 
 =head3 QuickTime tx3g Tags
 
-Tags extracted from the tx3g sbtl timed metadata of Yuneec drones, and
-subtitle text in some other videos.
+Tags extracted from the tx3g sbtl timed metadata of Yuneec and Autel drones,
+and subtitle text in some other videos.
 
-  Tag ID       Tag Name                         Writable
-  ------       --------                         --------
-  'Alt'        GPSAltitude                      no
-  'DateTime'   DateTime                         no
-  'GimPitch'   GimbalPitch                      no
-  'GimRoll'    GimbalRoll                       no
-  'GimYaw'     GimbalYaw                        no
-  'Lat'        GPSLatitude                      no
-  'Lon'        GPSLongitude                     no
-  'Pitch'      Pitch                            no
-  'Roll'       Roll                             no
-  'Text'       Text                             no
-  'Yaw'        Yaw                              no
+  Tag ID               Tag Name                 Writable
+  ------               --------                 --------
+  'Alt'                GPSAltitude              no
+  'DateTime'           DateTime                 no
+  'EV'                 ExposureCompensation     no
+  'F-NUM'              FNumber                  no
+  'GPSDateTime'        GPSDateTime              no
+  'GimPitch'           GimbalPitch              no
+  'GimRoll'            GimbalRoll               no
+  'GimYaw'             GimbalYaw                no
+  'HomeLat'            GPSHomeLatitude          no
+  'HomeLon'            GPSHomeLongitude         no
+  'ISO'                ISO                      no
+  'Lat'                GPSLatitude              no
+  'Lon'                GPSLongitude             no
+  'Pitch'              Pitch                    no
+  'Roll'               Roll                     no
+  'SHUTTER'            ExposureTime             no
+  'Text'               Text                     no
+  'Yaw'                Yaw                      no
 
 =head3 QuickTime HTCInfo Tags
 
@@ -30230,7 +30247,7 @@ Tags found in Pittasoft Blackvue dashcam "free" data.
   ------   --------                             --------
       0    MajorBrand                           no
       1    MinorVersion                         no
-      2    CompatibleBrands                     no
+      2    CompatibleBrands                     no+
 
 =head3 QuickTime OtherMeta Tags
 
@@ -31280,7 +31297,7 @@ Tags found in TomTom Bandit Action Cam MP4 videos.
   'TTAD'   TomTomAD                             QuickTime Stream
   'TTHL'   TomTomHL?                            no
   'TTID'   TomTomID                             no
-  'TTVD'   TomTomVD                             no
+  'TTVD'   TomTomVD                             no+
   'TTVI'   TomTomVI?                            no
 
 =head3 QuickTime HintTrackInfo Tags

package/bin/lib/Image/ExifTool/WritePDF.pl

@@ -184,11 +184,19 @@ sub GetFreeEntries($)
 {
     my $dict = shift;
     my %xrefFree;
-    # from the start we have only written xref stream entries in 'CNn' format,
-    # so we can simplify things for now and only support this type of entry
+    # we write xref stream entries in 'CNn' or 'CNNn' format (with 8-byte 'NN' offset),
     my $w = $$dict{W};
-    if (ref $w eq 'ARRAY' and "@$w" eq '1 4 2') {
-        my $size = $$dict{_entry_size}; # this will be 7 for 'CNn'
+    if (ref $w eq 'ARRAY') {
+        my $bytes = "@$w";
+        my $fmt;
+        if ($bytes eq '1 4 2') {
+            $fmt = 'CNn';
+        } elsif ($bytes eq '1 8 2') {
+            $fmt = 'CNNn';
+        } else {
+            return \%xrefFree;
+        }
+        my $size = $$dict{_entry_size}; # this will be 7 for 'CNn' or 11 for 'CNNn'
         my $index = $$dict{Index};
         my $len = length $$dict{_stream};
         # scan the table for free objects
@@ -200,7 +208,12 @@ sub GetFreeEntries($)
             my $count = $$index[$i*2+1];
             for ($j=0; $j<$count; ++$j) {
                 last if $pos + $size > $len;
-                my @t = unpack("x$pos CNn", $$dict{_stream});
+                my @t = unpack("x$pos $fmt", $$dict{_stream});
+                if (@t == 4) {
+                    $t[1] = $t[1] * 4294967296 + $t[2];
+                    $t[2] = $t[3];
+                    @t = 3;
+                }
                 # add entry if object was free
                 $xrefFree{$start+$j} = [ $t[1], $t[2], 'f' ] if $t[0] == 0;
                 $pos += $size;  # step to next entry
@@ -657,24 +670,37 @@ sub WritePDF($$)
             $newXRef{$nextObject++} = [ Tell($outfile) - $$et{PDFBase} + length($/), 0, 'n' ];
             $$mainDict{Size} = $nextObject;
             # create xref stream and Index entry
-            $$mainDict{W} = [ 1, 4, 2 ];    # int8u, int32u, int16u ('CNn')
-            $$mainDict{Index} = [ ];
-            $$mainDict{_stream} = '';
-            my @ids = sort { $a <=> $b } keys %newXRef;
-            while (@ids) {
-                my $startID = $ids[0];
-                for (;;) {
-                    $id = shift @ids;
-                    my ($pos, $gen, $type) = @{$newXRef{$id}};
-                    if ($pos > 0xffffffff) {
-                        $et->Error('Huge files not yet supported');
-                        last;
+            my $bits = 4;
+Restart:    for (;;) {
+                $$mainDict{W} = [ 1, $bits, 2 ];    # int8u, int32u/int64u, int16u ('CNn' or 'CNNn')
+                $$mainDict{Index} = [ ];
+                $$mainDict{_stream} = '';
+                my @ids = sort { $a <=> $b } keys %newXRef;
+                while (@ids) {
+                    my $startID = $ids[0];
+                    for (;;) {
+                        $id = shift @ids;
+                        my ($pos, $gen, $type) = @{$newXRef{$id}};
+                        if ($pos > 0xffffffff) {
+                            if ($bits == 4) {
+                                # switch to 64-bit integer offsets
+                                $bits = 8;
+                                next Restart;
+                            }
+                        }
+                        if ($bits == 4) {
+                            $$mainDict{_stream} .= pack('CNn', $type eq 'f' ? 0 : 1, $pos, $gen);
+                        } else {
+                            my $hi = int($pos / 4294967296);
+                            my $lo = $pos - $hi * 4294967296;
+                            $$mainDict{_stream} .= pack('CNNn', $type eq 'f' ? 0 : 1, $hi, $lo, $gen);
+                        }
+                        last if not @ids or $ids[0] != $id + 1;
                     }
-                    $$mainDict{_stream} .= pack('CNn', $type eq 'f' ? 0 : 1, $pos, $gen);
-                    last if not @ids or $ids[0] != $id + 1;
+                    # add Index entries for this section of the xref stream
+                    push @{$$mainDict{Index}}, $startID, $id - $startID + 1;
                 }
-                # add Index entries for this section of the xref stream
-                push @{$$mainDict{Index}}, $startID, $id - $startID + 1;
+                last;
             }
             # write the xref stream object
             $keyExt = "$id 0 obj";  # (set anyway, but xref stream should NOT be encrypted)

package/bin/lib/Image/ExifTool/WriteXMP.pl

@@ -925,19 +925,31 @@ sub WriteXMP($$;$)
     # get hash of all information we want to change
     # (sorted by tag name so alternate languages come last, but with structures
     # first so flattened tags may be used to override individual structure elements)
-    my (@tagInfoList, $delLangPath, %delLangPaths, %delAllLang, $firstNewPath);
+    my (@tagInfoList, @structList, $delLangPath, %delLangPaths, %delAllLang, $firstNewPath, @langTags);
     my $writeGroup = $$dirInfo{WriteGroup};
     foreach $tagInfo (sort ByTagName $et->GetNewTagInfoList()) {
         next unless $et->GetGroup($tagInfo, 0) eq 'XMP';
         next if $$tagInfo{Name} eq 'XMP'; # (ignore full XMP block if we didn't write it already)
         next if $writeGroup and $writeGroup ne $$et{NEW_VALUE}{$tagInfo}{WriteGroup};
-        if ($$tagInfo{Struct}) {
-            unshift @tagInfoList, $tagInfo;
+        if ($$tagInfo{LangCode}) {
+            push @langTags, $tagInfo
+        } elsif ($$tagInfo{Struct}) {
+            push @structList, $tagInfo;
         } else {
             push @tagInfoList, $tagInfo;
         }
     }
-    foreach $tagInfo (@tagInfoList) {
+    if (@langTags) {
+        # keep original order in which lang-alt entries were added
+        foreach $tagInfo (sort { $$et{NEW_VALUE}{$a}{Order} <=> $$et{NEW_VALUE}{$b}{Order} } @langTags) {
+            if ($$tagInfo{Struct}) {
+                push @structList, $tagInfo;
+            } else {
+                push @tagInfoList, $tagInfo;
+            }
+        }
+    }
+    foreach $tagInfo (@structList, @tagInfoList) {
         my @delPaths;   # list of deleted paths
         my $tag = $$tagInfo{TagID};
         my $path = GetPropertyPath($tagInfo);

package/bin/lib/Image/ExifTool/Writer.pl

@@ -295,10 +295,11 @@ my %ignorePrintConv = map { $_ => 1 } qw(OTHER BITMASK Notes);
 #           CreateGroups - hash of all family 0 group names where tag may be created
 #           WriteGroup - group name where information is being written (correct case)
 #           WantGroup - group name as specified in call to function (case insensitive)
-#           Next - pointer to next new value hash (if more than one)
+#           Next - pointer to next new value hash (if more than one for this tag)
 #           NoReplace - set if value was created with Replace=0
 #           AddBefore - number of list items added by a subsequent Replace=0 call
-#           IsNVH - Flag indicating this is a new value hash
+#           IsNVH - flag indicating this is a new value hash
+#           Order - counter to indicate the order that new value hashes were created
 #           Shift - shift value
 #           Save - counter used by SaveNewValues()/RestoreNewValues()
 #           MAKER_NOTE_FIXUP - pointer to fixup if necessary for a maker note value
@@ -317,7 +318,7 @@ sub SetNewValue($;$$%)
 
     unless (defined $tag) {
         delete $$self{NEW_VALUE};
-        $$self{SAVE_COUNT} = 0;
+        $$self{SAVE_COUNT} = $$self{NV_COUNT} = 0;
         $$self{DEL_GROUP} = { };
         return 1;
     }
@@ -1389,8 +1390,16 @@ sub SetNewValuesFromFile($$;@)
     return $info if $$info{Error} and $$info{Error} eq 'Error opening file';
     delete $$srcExifTool{VALUE}{Error}; # delete so we can check this later
 
-    # sort tags in reverse order so we get priority tag last
-    my @tags = reverse sort keys %$info;
+    # sort tags in file order with priority tags last
+    my (@tags, @prio);
+    foreach (sort { $$srcExifTool{FILE_ORDER}{$a} <=> $$srcExifTool{FILE_ORDER}{$b} } keys %$info) {
+        if (/ /) {
+            push @tags, $_;
+        } else {
+            push @prio, $_;
+        }
+    }
+    push @tags, @prio;
 #
 # simply transfer all tags from source image if no tags specified
 #
@@ -3896,6 +3905,7 @@ sub GetNewValueHash($$;$$$$)
             TagInfo => $tagInfo,
             WriteGroup => $writeGroup,
             IsNVH => 1, # set flag so we can recognize a new value hash
+            Order => $$self{NV_COUNT}++,
         };
         # add entry to our NEW_VALUE hash
         if ($$self{NEW_VALUE}{$tagInfo}) {
@@ -4023,7 +4033,7 @@ sub RemoveNewValuesForGroup($$)
 #------------------------------------------------------------------------------
 # Get list of tagInfo hashes for all new data
 # Inputs: 0) ExifTool object reference, 1) optional tag table pointer
-# Returns: list of tagInfo hashes
+# Returns: list of tagInfo hashes in no particular order
 sub GetNewTagInfoList($;$)
 {
     my ($self, $tagTablePtr) = @_;

package/bin/lib/Image/ExifTool/XMP.pm

@@ -50,7 +50,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 require Exporter;
 
-$VERSION = '3.66';
+$VERSION = '3.67';
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(EscapeXML UnescapeXML);
 
@@ -2016,6 +2016,7 @@ my %sPantryItem = (
         Writable => 'integer',
         List => 'Seq',
         AutoSplit => 1,
+        Notes => 'deprecated',
     },
     OECF => {
         Name => 'Opto-ElectricConvFactor',
@@ -2267,7 +2268,7 @@ my %sPantryItem = (
             3 => 'Distant',
         },
     },
-    ImageUniqueID   => { },
+    ImageUniqueID   => { Avoid => 1, Notes => 'moved to exifEX namespace in 2024 spec' },
     GPSVersionID    => { Groups => { 2 => 'Location' } },
     GPSLatitude     => { Groups => { 2 => 'Location' }, %latConv },
     GPSLongitude    => { Groups => { 2 => 'Location' }, %longConv },
@@ -2509,6 +2510,15 @@ my %sPantryItem = (
             Values =>   { List => 'Seq', Writable => 'rational' },
         },
     },
+    # new in Exif 3.0
+    ImageUniqueID   => { },
+    ImageTitle      => { },
+    ImageEditor     => { },
+    Photographer    => { Groups => { 2 => 'Author' } },
+    CameraFirmware  => { Groups => { 2 => 'Camera' } },
+    RAWDevelopingSoftware   => { },
+    ImageEditingSoftware    => { },
+    MetadataEditingSoftware => { },
 );
 
 # Auxiliary namespace properties (aux) - not fully documented (ref PH)
@@ -3777,8 +3787,13 @@ sub ParseXMPElement($$$;$$$$)
 
         # extract property attributes
         my ($parseResource, %attrs, @attrs);
-        while ($attrs =~ m/(\S+?)\s*=\s*(['"])(.*?)\2/sg) {
-            my ($attr, $val) = ($1, $3);
+# this hangs Perl (v5.18.4) for a specific capture string [patched in ExifTool 12.98]
+#        while ($attrs =~ m/(\S+?)\s*=\s*(['"])(.*?)\2/sg) {
+        while ($attrs =~ /(\S+?)\s*=\s*(['"])/g) {
+            my ($attr, $quote) = ($1, $2);
+            my $p0 = pos($attrs);
+            last unless $attrs =~ /$quote/g;
+            my $val = substr($attrs, $p0, pos($attrs)-$p0-1);
             # handle namespace prefixes (defined by xmlns:PREFIX, or used with PREFIX:tag)
             if ($attr =~ /(.*?):/) {
                 if ($1 eq 'xmlns') {

package/bin/lib/Image/ExifTool/XMPStruct.pl

@@ -39,8 +39,7 @@ sub SerializeStruct($$;$)
 
     if (ref $obj eq 'HASH') {
         # support hashes with ordered keys
-        my @keys = $$obj{_ordered_keys_} ? @{$$obj{_ordered_keys_}} : sort keys %$obj;
-        foreach $key (@keys) {
+        foreach $key (Image::ExifTool::OrderedKeys($obj)) {
             my $hdr = $sfmt ? EscapeJSON($key) . ':' : $key . '=';
             push @vals, $hdr . SerializeStruct($et, $$obj{$key}, '}');
         }
@@ -218,7 +217,7 @@ sub DumpStruct($;$)
     $indent or $indent = '';
     if (ref $obj eq 'HASH') {
         print "{\n";
-        foreach (sort keys %$obj) {
+        foreach (Image::ExifTool::OrderedKeys($obj)) {
             print "$indent  $_ = ";
             DumpStruct($$obj{$_}, "$indent  ");
         }
@@ -253,8 +252,10 @@ sub CheckStruct($$$)
     ref $struct eq 'HASH' or return wantarray ? (undef, "Expecting $strName structure") : undef;
 
     my ($key, $err, $warn, %copy, $rtnVal, $val);
+    # copy the ordered keys if they exist
+    $copy{_ordered_keys_} = [ ] if $$struct{_ordered_keys_};
 Key:
-    foreach $key (keys %$struct) {
+    foreach $key (Image::ExifTool::OrderedKeys($struct)) {
         my $tag = $key;
         # allow trailing '#' to disable print conversion on a per-field basis
         my ($type, $fieldInfo);
@@ -377,6 +378,7 @@ Key:
             $copy{$tag} = \@copy;
         } elsif ($$fieldInfo{Struct}) {
             $warn = "Improperly formed structure in $strName $tag";
+            next;
         } else {
             $et->Sanitize(\$$struct{$key});
             ($val,$err) = $et->ConvInv($$struct{$key},$fieldInfo,$tag,$strName,$type,'');
@@ -387,6 +389,7 @@ Key:
             # turn this into a list if necessary
             $copy{$tag} = $$fieldInfo{List} ? [ $val ] : $val;
         }
+        push @{$copy{_ordered_keys_}}, $tag if $copy{_ordered_keys_}; # save ordered keys
     }
     if (%copy or not $warn) {
         $rtnVal = \%copy;
@@ -562,7 +565,7 @@ sub AddNewStruct($$$$$$)
     # after all valid structure fields, which is necessary when serializing the XMP later)
     %$struct or $$struct{'~dummy~'} = '';
 
-    foreach $tag (sort keys %$struct) {
+    foreach $tag (Image::ExifTool::OrderedKeys($struct)) {
         my $fieldInfo = $$strTable{$tag};
         unless ($fieldInfo) {
             next unless $tag eq '~dummy~'; # check for dummy field
@@ -652,7 +655,8 @@ sub ConvertStruct($$$$;$)
         my (%struct, $key);
         my $table = $$tagInfo{Table};
         $parentID = $$tagInfo{TagID} unless $parentID;
-        foreach $key (keys %$value) {
+        $struct{_ordered_keys_} = [ ] if $$value{_ordered_keys_};
+        foreach $key (Image::ExifTool::OrderedKeys($value)) {
             my $tagID = $parentID . ucfirst($key);
             my $flatInfo = $$table{$tagID};
             unless ($flatInfo) {
@@ -669,7 +673,11 @@ sub ConvertStruct($$$$;$)
             } else {
                 $v = $et->GetValue($flatInfo, $type, $v);
             }
-            $struct{$key} = $v if defined $v;  # save the converted value
+            if (defined $v) {
+                $struct{$key} = $v;  # save the converted value
+                # maintain ordered keys if necessary
+                push @{$struct{_ordered_keys_}}, $key if $struct{_ordered_keys_};
+            }
         }
         return \%struct;
     } elsif (ref $value eq 'ARRAY') {