exiftool_vendored 13.27.0 → 13.29.0

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

@@ -11,7 +11,7 @@ package Image::ExifTool::Plot;
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '1.02';
+$VERSION = '1.03';
 
 # default plot settings (lower-case settings may be overridden by the user)
 my %defaults = (
@@ -262,23 +262,35 @@ sub Draw($$)
 {
     my ($self, $fp) = @_;
     my ($min, $max, $xmin, $xmax, $name, $style) = @$self{qw(Min Max XMin XMax Name style)};
+    my ($plotNum, $multiMulti);
 
     if (not defined $min or not defined $xmin) {
         $$self{Error} = 'Nothing to plot';
         return;
     }
-    my ($i, $n, %col, %class, $dx, $dy, $dx2, $xAxis, $x, $y, $px, $py, @og);
-    my ($noLegend, $xname, $xdat, $xdiff, $diff, %markID, $plotNum);
     my $scat = $$self{type} =~ /^s/ ? 1 : 0;
     my $hist = $$self{type} =~ /^h/ ? [ ] : 0;
-    my $multi = int($$self{multi} || 0);
+    my $multi = $$self{multi} || 0;
+    my @multi = $multi =~ /\d+/g;
+    my @names = @$name;
+    shift @names if $scat;
+    $multi = shift @multi;
     $multi = 0 unless $multi > 0;
     $style or $style = $hist ? 'line+fill' : 'line';
     unless ($style =~ /\b[mpl]/ or ($hist and $style =~ /\bf/)) {
         $$self{Error} = 'Invalid plot Style setting';
         return;
     }
-    my $numPlots = $multi ? scalar(@$name) - $scat : 1;
+    my $numPlots = 0;
+    if ($multi) {
+        my $n;
+        for ($n=0; $n<scalar(@$name)-$scat; ++$numPlots) {
+            $n += ($multi[$numPlots] || 1);
+            $multiMulti = 1 if $multi[$numPlots] and $multi[$numPlots] > 1;
+        }
+    } else {
+        $numPlots = 1;
+    }
     my @size = @{$$self{size}};
     my $sy = $size[1];
     if ($multi) {
@@ -293,6 +305,8 @@ sub Draw($$)
 <title>$tmp</title>};
   # loop through all plots
   for ($plotNum=0; $plotNum<$numPlots; ++$plotNum) {
+    my ($i, $n, %col, %class, $dx, $dy, $dx2, $xAxis, $x, $y, $px, $py, @og);
+    my ($noLegend, $xname, $xdat, $xdiff, $diff, %markID);
     if ($numPlots > 1) {
         print $fp "\n<g transform='translate(", ($plotNum % $multi) * $size[0],
                   ',', int($plotNum/$multi) * $size[1], ")'>";
@@ -304,14 +318,19 @@ sub Draw($$)
         }
         $name = $$self{Name} = [ ];
         push @{$$self{Name}}, $$self{SaveName}[0] if $scat;
-        push @{$$self{Name}}, $$self{SaveName}[$scat + $plotNum];
-        my $dat = $$self{Data}{$$self{Name}[$scat]};
+        foreach (0 .. (($multi[$plotNum] || 1) - 1)) {
+            push @{$$self{Name}}, shift(@names);
+        }
+warn "@{$$self{Name}}\n";
         undef $min; undef $max;
-        foreach (@$dat) {
-            defined or next;
-            defined $min or $min = $max = $_, next;
-            $min > $_ and $min = $_;
-            $max < $_ and $max = $_;
+        foreach ($scat .. (@{$$self{Name}} - 1)) {
+            my $dat = $$self{Data}{$$self{Name}[$_]};
+            foreach (@$dat) {
+                defined or next;
+                defined $min or $min = $max = $_, next;
+                $min > $_ and $min = $_;
+                $max < $_ and $max = $_;
+            }
         }
     }
     my ($data, $title, $xlabel, $ylabel, $cols, $marks, $tpad, $wid) =
@@ -321,12 +340,12 @@ sub Draw($$)
 
     # set reasonable default titles and labels
     $xname = shift @name if $scat;
-    $title = "$name[0] vs $xname" if $scat and defined $title and not $title and @name == 1;
+    $title = "$name[0] vs $xname" if $scat and defined $title and not $title and @name == 1 and not $multi;
     if ($scat || $hist and defined $xlabel and not $xlabel) {
         $xlabel = $$name[0];
         $noLegend = 1 if $hist;
     }
-    if (defined $ylabel and not $ylabel and @name == 1) {
+    if (defined $ylabel and not $ylabel and @name == 1 and not $multiMulti) {
         $ylabel = $hist ? 'Count' : $name[0];
         $noLegend = 1 unless $hist;
     }
@@ -645,7 +664,9 @@ Change plot settings.
   Title, XLabel, YLabel - plot title and x/y axis labels (no default)
   XMin, XMax            - x axis minimum/maximum (autoscaling if not set)
   YMin, YMax            - y axis minimum/maximum
-  Multi                 - flag to draw multiple plots, one for each dataset
+  Multi                 - number of columns when drawing multiple plots,
+                          followed optional number of datasets for each
+                          plot (1 by default) using any separator
   Split                 - flag to split strings of numbers into lists
                           (> 1 to split into lists of N items)
   "Grid=darkgray"       - grid color

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

@@ -49,7 +49,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 
-$VERSION = '3.15';
+$VERSION = '3.16';
 
 sub ProcessMOV($$;$);
 sub ProcessKeys($$$);
@@ -815,6 +815,13 @@ my %userDefined = (
             TagTable => 'Image::ExifTool::QuickTime::Stream',
             ProcessProc => 'Image::ExifTool::LigoGPS::ProcessLigoJSON',
         },
+    },{
+        Name => 'GKUData',
+        Condition => '$$valPt =~ /^.{8}__V35AX_QVDATA__/',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::QuickTime::Stream',
+            ProcessProc => 'Image::ExifTool::LigoGPS::ProcessGKU',
+        },
     },{
         Name => 'FLIRData',
         SubDirectory => { TagTable => 'Image::ExifTool::FLIR::UserData' },
@@ -953,6 +960,15 @@ my %userDefined = (
         Name => 'SEAL',
         SubDirectory => { TagTable => 'Image::ExifTool::XMP::SEAL' },
     },
+    inst => {
+        Name => 'Insta360Info',
+        DontRead => 1,  # don't read into memory when extracting
+        WriteLast => 1, # must go at end of file
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::QuickTime::Stream',
+            ProcessProc => \&ProcessInsta360,
+        },
+    },
 );
 
 # stuff seen in 'skip' atom (70mai Pro Plus+ MP4 videos)
@@ -2387,6 +2403,19 @@ my %userDefined = (
         Groups => { 2 => 'Preview' },
         Binary => 1,
     },
+    # ---- Insta360 ----
+    nail => {
+        Name => 'ThumbnailTIFF',
+        Notes => 'image found in some Insta360 videos, converted to TIFF format',
+        Groups => { 2 => 'Preview' },
+        RawConv => q{
+            return undef if length $val < 8;
+            my ($w, $h) = unpack('NN', $val);
+            return undef if length $val < $w * $h + 8;
+            return MakeTiffHeader($w, $h, 1, 8) . substr($val, 8, $w * $h);
+        },
+        Binary => 1,
+    },
     # ---- Nextbase ----
     info => 'FirmwareVersion',
    'time' => {
@@ -9743,6 +9772,7 @@ sub IdentifyTrailers($)
         } else {
             last;
         }
+        # 0) trailer type, 1) trailer start, 2) trailer length, 3) pointer to next trailer
         $trailer = [ $type , $raf->Tell() - $len, $len, $nextTrail ];
         $nextTrail = $trailer;
         $offset += $len;
@@ -10017,7 +10047,7 @@ sub ProcessMOV($$;$)
                 }
             }
         }
-        if (defined $tagInfo and not $ignore) {
+        if (defined $tagInfo and not $ignore and not ($tagInfo and $$tagInfo{DontRead})) {
             # set document number for this item property if necessary
             if ($$et{IsItemProperty}) {
                 my $items = $$et{ItemInfo};
@@ -10070,7 +10100,7 @@ ItemID:         foreach $id (reverse sort { $a <=> $b } keys %$items) {
             # use value to get tag info if necessary
             $tagInfo or $tagInfo = $et->GetTagInfo($tagTablePtr, $tag, \$val);
             my $hasData = ($$dirInfo{HasData} and $val =~ /^....data\0/s);
-            if ($verbose and not $hasData) {
+            if ($verbose and defined $val and not $hasData) {
                 my $tval;
                 if ($tagInfo and $$tagInfo{Format}) {
                     $tval = ReadValue(\$val, 0, $$tagInfo{Format}, $$tagInfo{Count}, length($val));
@@ -10389,7 +10419,25 @@ ItemID:         foreach $id (reverse sort { $a <=> $b } keys %$items) {
                 Size  => $size,
                 Extra => sprintf(' at offset 0x%.4x', $raf->Tell()),
             ) if $verbose;
-            if ($size and (not $raf->Seek($size-1, 1) or $raf->Read($buff, 1) != 1)) {
+            my $seekTo = $raf->Tell() + $size;
+            if ($tagInfo and $$tagInfo{DontRead} and $$tagInfo{SubDirectory}) {
+                # ignore first trailer if it is the payload of this box
+                $trailer = $$trailer[3] if $trailer and $$trailer[1] == $raf->Tell();
+                my $subdir = $$tagInfo{SubDirectory};
+                my %dirInfo = (
+                    RAF     => $raf,
+                    DirName => $$tagInfo{Name},
+                    DirID   => $tag,
+                    DirEnd  => $seekTo,
+                );
+                my $subTable = GetTagTable($$subdir{TagTable});
+                my $proc = $$subdir{ProcessProc};
+                # make ProcessMOV() the default processing procedure for subdirectories
+                $proc = \&ProcessMOV unless $proc or $$subTable{PROCESS_PROC};
+                $et->ProcessDirectory(\%dirInfo, $subTable, $proc);
+                $raf->Seek($seekTo);
+            }
+            unless ($raf->Seek($seekTo-1) and $raf->Read($buff, 1) == 1) {
                 my $t = PrintableTagID($tag,2);
                 $warnStr = sprintf("Truncated '${t}' data at offset 0x%x", $lastPos);
                 last;

data/bin/lib/Image/ExifTool/QuickTimeStream.pl

@@ -111,7 +111,7 @@ my %insvLimit = (
         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 104 different types of timed GPS metadata from video files.
+        currently reads 107 different types of timed GPS metadata from video files.
     },
     GPSLatitude  => { PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "N")', RawConv => '$$self{FoundGPSLatitude} = 1; $val' },
     GPSLongitude => { PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "E")' },
@@ -317,7 +317,7 @@ my %insvLimit = (
             ByteOrder => 'Little-Endian',
         },
     }],
-    mett => { # Parrot drones
+    mett => { # Parrot drones and iPhone/Android using ARCore
         Name => 'mett',
         SubDirectory => { TagTable => 'Image::ExifTool::Parrot::mett' },
     },
@@ -3200,8 +3200,9 @@ sub ProcessTTAD($$$)
 }
 
 #------------------------------------------------------------------------------
-# Extract information from Insta360 trailer (INSV and INSP files) (ref PH)
+# Extract information from Insta360 trailer (INSV, INSP and MP4 files) or 'inst' box (ref PH)
 # Inputs: 0) ExifTool ref, 1) Optional dirInfo ref for returning trailer info
+# (dirInfo has Offset from end of trailer to end of file or DirEnd absolute end of trailer)
 # Returns: true on success
 # Notes: There looks to be some useful information by telemetry-parser, but
 #        the code is cryptic:  https://github.com/AdrianEddy/telemetry-parser
@@ -3213,13 +3214,16 @@ sub ProcessInsta360($;$)
     my $offset = $dirInfo ? $$dirInfo{Offset} || 0 : 0;
     my ($buff, $dirTable, $dirTablePos);
 
+    if ($dirInfo and $$dirInfo{DirEnd}) {
+        $raf->Seek(0, 2);
+        $offset = $raf->Tell() - $$dirInfo{DirEnd};
+    }
     return 0 unless $raf->Seek(-78-$offset, 2) and $raf->Read($buff, 78) == 78 and
         substr($buff,-32) eq "8db42d694ccc418790edff439fe026bf";    # check magic number
 
     my $verbose = $et->Options('Verbose');
     my $tagTbl = GetTagTable('Image::ExifTool::QuickTime::Stream');
-    my $fileEnd = $raf->Tell();
-    my $trailEnd = $fileEnd - $offset;
+    my $trailEnd = $raf->Tell();
     my $trailerLen = unpack('x38V', $buff);
     $trailerLen > $trailEnd and $et->Warn('Bad Insta360 trailer size'), return 0;
     if ($dirInfo) {
@@ -3259,7 +3263,7 @@ sub ProcessInsta360($;$)
         ($epos -= $len) + $trailerLen < 0 and last;
         $raf->Seek($epos-$offset, 2) or last;
         if ($verbose) {
-            $et->VPrint(0, sprintf("Insta360 Record 0x%x (offset 0x%x, %d bytes):\n", $id, $fileEnd + $epos, $len));
+            $et->VPrint(0, sprintf("Insta360 Record 0x%x (offset 0x%x, %d bytes):\n", $id, $trailEnd + $epos, $len));
         }
         # there are 2 types of record 0x300:
         # 1. 56 byte records

data/bin/lib/Image/ExifTool/README

@@ -987,6 +987,11 @@ numerical, and generated automatically otherwise.
                   stored with a constant byte order that is different from that
                   of the parent directory.
 
+  DontRead      : [QuickTime tags with compatible SubDirectory entries only]
+                  Avoid reading subdirectory data from file.  Instead, pass RAF
+                  reference (with current position at start of directory) and
+                  DirEnd.
+
   TagID         : [reserved] Used internally to save the table key for this tag.
                   Note: For XMP tables this corresponds to the XMP property
                   name, but the table key may have a full XMP namespace prefix

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

@@ -10766,6 +10766,11 @@ my %isoSetting2010 = (
             0 => 'Sony:FocusPosition2',
             1 => 'FocalLengthIn35mmFormat',
         },
+        # (NOTE: This calculation may be wrong. "Focus Distance 2 is the result of an erroneous
+        #  user supplied formula to exiftool. It does use data embedded in the raw file,
+        #  but it is not the data. The actual embedded data seems to be proportional to
+        #  magnification not a focus distance. The camera needs to calculate magnification
+        #  for translation stabilization.", ref https://www.fredmiranda.com/forum/topic/1858744/0)
         ValueConv => q{
             return undef unless $val;
             return 'inf' if $val >= 255;

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

@@ -730,6 +730,7 @@ my %tagLookup = (
 	'afareas' => { 334 => 0x304 },
 	'afareaselectionmethod' => { 2 => 0xd },
 	'afareaselectmethod' => { 90 => 0x51b },
+	'afareasize' => { 358 => 0xde },
 	'afareawidth' => { 200 => 0x18, 201 => 0x4e, 203 => 0x32, 204 => 0x46 },
 	'afareaxposition' => { 200 => 0x14, 201 => 0x4a, 203 => 0x2e, 204 => 0x42, 428 => 0x1203 },
 	'afareaxposition1' => { 428 => 0x1201 },
@@ -785,7 +786,7 @@ my %tagLookup = (
 	'afpointmode' => { 374 => 0x3 },
 	'afpointposition' => { 119 => 0x2021, 358 => 0x4d },
 	'afpointregistration' => { 88 => 0x7 },
-	'afpoints' => { 190 => 0x10, 369 => 0x12a },
+	'afpoints' => { 190 => 0x10 },
 	'afpointsel' => { 329 => 0xb, 330 => 0xb, 331 => 0xb, 332 => 0xb },
 	'afpointselected' => { 191 => 0xd, 334 => 0x305, 394 => 0xe, 445 => 0x15, 446 => 0x14, 447 => [0x14,0x1c], 462 => 0x201e },
 	'afpointselected2' => { 374 => 0x4 },
@@ -795,7 +796,7 @@ my %tagLookup = (
 	'afpointsinfocus' => { 82 => 0xe, 199 => 0x2, 201 => 0x30, 369 => 0xb, 370 => 0x4, 394 => [0xf,0x3c] },
 	'afpointsinfocus5d' => { 19 => 0x38 },
 	'afpointspotmetering' => { 89 => 0xd },
-	'afpointsselected' => { 200 => 0x1c, 201 => 0x1c, 370 => '4.1', 497 => 0x4 },
+	'afpointsselected' => { 200 => 0x1c, 201 => 0x1c, 369 => 0x12a, 370 => '4.1', 497 => 0x4 },
 	'afpointsspecial' => { 370 => '4.2' },
 	'afpointsunknown' => { 369 => 0x18f },
 	'afpointsunknown1' => { 369 => 0x0 },
@@ -7884,8 +7885,10 @@ my %tagExists = (
 	'archivallocation' => 1,
 	'archivedfilename' => 1,
 	'arcoreaccel' => 1,
+	'arcoreaccel0' => 1,
 	'arcorecustom' => 1,
 	'arcoregyro' => 1,
+	'arcoregyro0' => 1,
 	'arcorevideo' => 1,
 	'ardronefile' => 1,
 	'ardronetelemetry' => 1,
@@ -9806,6 +9809,7 @@ my %tagExists = (
 	'gipcver' => 1,
 	'givenname' => 1,
 	'gixiver' => 1,
+	'gkudata' => 1,
 	'glamoursettings' => 1,
 	'globalinfo' => 1,
 	'globalpalette' => 1,
@@ -9938,6 +9942,8 @@ my %tagExists = (
 	'hdmioutputhdr' => 1,
 	'hdmioutputrange' => 1,
 	'hdrgaincurve' => 1,
+	'hdrgaincurvesize' => 1,
+	'hdrgaininfo' => 1,
 	'hdrgainmap' => 1,
 	'hdrgm' => 1,
 	'hdrimage' => 1,
@@ -10194,6 +10200,7 @@ my %tagExists = (
 	'insetnwpixelx' => 1,
 	'insetnwpixely' => 1,
 	'insta360' => 1,
+	'insta360info' => 1,
 	'institution' => 1,
 	'instructionset' => 1,
 	'instruments' => 1,

data/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 28440 tags, with 17667 unique tag names.
+They contain a total of 28445 tags, with 17669 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
@@ -154,7 +154,7 @@ L<https://www.w3.org/Graphics/JPEG/jfif3.pdf> for the JPEG specification.
                InfiRaySensor                    InfiRay Sensor
                SEAL                             XMP SEAL
   'APP10'      Comment                          no
-               HDRGainCurve                     no
+               HDRGainInfo                      -
   'APP11'      JPEG-HDR                         JPEG HDR
                JUMBF                            Jpeg2000
   'APP12'      PictureInfo                      APP12 PictureInfo
@@ -171,6 +171,7 @@ L<https://www.w3.org/Graphics/JPEG/jfif3.pdf> for the JPEG specification.
                FotoStation                      FotoStation
                PhotoMechanic                    PhotoMechanic
                MIE                              MIE
+               MPF                              MPF
                Samsung                          Samsung Trailer
                Vivo                             Trailer Vivo
                OnePlus                          Trailer OnePlus
@@ -277,6 +278,13 @@ Tags found in the XML metadata of the APP9 "Media Jukebox" segment.
   Tool_Name                                     no
   Tool_Version                                  no
 
+=head3 JPEG HDRGainInfo Tags
+
+  Index1   Tag Name                             Writable
+  ------   --------                             --------
+      6    HDRGainCurveSize                     no
+     10    HDRGainCurve                         no
+
 =head3 JPEG HDR Tags
 
 Information extracted from APP11 of a JPEG-HDR image.
@@ -19903,6 +19911,7 @@ These tags are used in Panasonic/Leica cameras.
   0x00d1   ISO                                  int32u
   0x00d2   MonochromeGrainEffect                int16u
   0x00d6   NoiseReductionStrength               rational64s
+  0x00de   AFAreaSize                           rational64u[2]
   0x00e4   LensTypeModel                        int16u
   0x00e8   MinimumISO                           int32u
   0x00e9   AFSubjectDetection                   int16u
@@ -20667,7 +20676,7 @@ Flash information tags for the K10D, K20D and K200D.
       7    AFIntegrationTime                    int8u
      11    AFPointsInFocus                      int8u
      20    AFPointValues?                       no
-    298    AFPoints                             int8u[41]~
+    298    AFPointsSelected                     int8u[41]~
     399    AFPointsUnknown?                     int8u[41]~
     506    LiveView                             int8u
     509    AFHold                               int8u
@@ -30314,6 +30323,7 @@ for the official QuickTime specification.
   'gdat'               GPSData                  QuickTime Stream
   'gps0'               GPSTrack                 QuickTime Stream
   'gsen'               GSensor                  QuickTime Stream
+  'inst'               Insta360Info             QuickTime Stream
   'junk'               Junk?                    no
   'mdat'               MediaData?               no
   'mdat-offset'        MediaDataOffset          no
@@ -30338,6 +30348,7 @@ for the official QuickTime specification.
   'udat'               GPSLog                   no
   'udta'               KenwoodData              QuickTime Stream
                        LigoJSON                 QuickTime Stream
+                       GKUData                  QuickTime Stream
                        FLIRData                 FLIR UserData
   'uuid'               XMP                      XMP
                        UUID-PROF                QuickTime Profile
@@ -30357,7 +30368,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 104 different types of timed GPS metadata from video files.
+currently reads 107 different types of timed GPS metadata from video files.
 
   Tag ID                 Tag Name               Writable
   ------                 --------               --------
@@ -31707,6 +31718,7 @@ the config file.
   'mcvr'       PreviewImage                     string
   'meta'       Meta                             QuickTime Meta
   'modl'       Model                            no
+  'nail'       ThumbnailTIFF                    no
   'name'       Name                             string
   'perf'       Performer                        string/
   'pmcc'       GarminSettings                   string
@@ -32775,9 +32787,11 @@ specification.
   'E2'                         ParrotFollowMe   Parrot FollowMe
   'E3'                         ParrotAutomation Parrot Automation
   'application/arcore-accel'   ARCoreAccel      Parrot ARCoreAccel
+  'application/arcore-accel-0' ARCoreAccel0     Parrot ARCoreAccel0
   'application/arcore-custom-event'
                                ARCoreCustom     Parrot ARCoreCustom
   'application/arcore-gyro'    ARCoreGyro       Parrot ARCoreGyro
+  'application/arcore-gyro-0'  ARCoreGyro0      Parrot ARCoreGyro0
   'application/arcore-video-0' ARCoreVideo      Parrot ARCoreVideo
 
 =head3 Parrot V1 Tags
@@ -32915,6 +32929,14 @@ ARCore accelerometer data.
       4    AccelerometerUnknown?                no
       5    Accelerometer                        no
 
+=head3 Parrot ARCoreAccel0 Tags
+
+ARCore accelerometer data.
+
+  Index1   Tag Name                             Writable
+  ------   --------                             --------
+      9    Accelerometer                        no
+
 =head3 Parrot ARCoreCustom Tags
 
   Index1   Tag Name                             Writable
@@ -32923,13 +32945,21 @@ ARCore accelerometer data.
 
 =head3 Parrot ARCoreGyro Tags
 
-ARCore accelerometer data.
+ARCore gyro data.
 
   Index1   Tag Name                             Writable
   ------   --------                             --------
       4    GyroscopeUnknown?                    no
       5    Gyroscope                            no
 
+=head3 Parrot ARCoreGyro0 Tags
+
+ARCore gyro data.
+
+  Index1   Tag Name                             Writable
+  ------   --------                             --------
+      9    Gyroscope                            no
+
 =head3 Parrot ARCoreVideo Tags
 
   Index1   Tag Name                             Writable

data/bin/lib/Image/ExifTool/WriteExif.pl

@@ -2434,6 +2434,8 @@ NoOverwrite:            next if $isNew > 0;
                             } else {
                                 my $fixedOffset = Get32u(\$newData, $offsets);
                                 my $padToFixedOffset = $fixedOffset - ($newOffset + $dpos);
+                                # account for blocks that come before this (Pansonic DC-S1RM2, forum17319)
+                                $padToFixedOffset -= $$_[1] + $$_[2] foreach @imageData;
                                 if ($padToFixedOffset < 0) {
                                     $et->Error('Metadata too large to fit before fixed-offset image data');
                                 } else {

data/bin/lib/Image/ExifTool/WriteQuickTime.pl

@@ -1248,6 +1248,8 @@ ItemID2:    foreach $id (reverse sort { $a <=> $b } keys %$items) {
                 my $base = ($$dirInfo{Base} || 0) + $raf->Tell() - $size;
                 my $dPos = 0;
                 my $hdrLen = $start;
+                # handle case where known trailer is the payload of a "DontRead" box (eg. 'inst')
+                $trailer = $$trailer[3] if $$tagInfo{DontRead} and $trailer and $base == $$trailer[1];
                 if ($$subdir{Base}) {
                     my $localBase = eval $$subdir{Base};
                     $dPos -= $localBase;

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

@@ -76,6 +76,8 @@ my %jpegMap = (
     MetaIFD      => 'Meta',
     RMETA        => 'APP5',
     SEAL         => ['APP8','APP9'], # (note: add 'IFD0' if this is a possibility)
+    AROT         => 'APP10',
+    JUMBF        => 'APP11',
     Ducky        => 'APP12',
     Photoshop    => 'APP13',
     Adobe        => 'APP14',
@@ -138,12 +140,12 @@ my %rawType = (
 # 2) any dependencies must be added to %excludeGroups
 my @delGroups = qw(
     Adobe AFCP APP0 APP1 APP2 APP3 APP4 APP5 APP6 APP7 APP8 APP9 APP10 APP11 APP12
-    APP13 APP14 APP15 AudioKeys CanonVRD CIFF Ducky EXIF ExifIFD File FlashPix
+    APP13 APP14 APP15 AROT AudioKeys CanonVRD CIFF Ducky EXIF ExifIFD File FlashPix
     FotoStation GlobParamIFD GPS ICC_Profile IFD0 IFD1 Insta360 InteropIFD IPTC
-    ItemList iTunes JFIF Jpeg2000 JUMBF Keys MakerNotes Meta MetaIFD Microsoft
-    MIE MPF Nextbase NikonApp NikonCapture PDF PDF-update PhotoMechanic
-    Photoshop PNG PNG-pHYs PrintIM QuickTime RMETA RSRC SEAL SubIFD Trailer
-    UserData VideoKeys Vivo XML XML-* XMP XMP-*
+    ItemList iTunes JFIF Jpeg2000 JUMBF Keys MakerNotes Meta MetaIFD Microsoft MIE
+    MPF Nextbase NikonApp NikonCapture PDF PDF-update PhotoMechanic Photoshop PNG
+    PNG-pHYs PrintIM QuickTime RMETA RSRC SEAL SubIFD Trailer UserData VideoKeys
+    Vivo XML XML-* XMP XMP-*
 );
 # family 2 group names that we can delete
 my @delGroup2 = qw(
@@ -1604,6 +1606,8 @@ SET:    foreach $set (@setList) {
             $$opts{Group} = $dstGrp if $dstGrp;
             my @rtnVals = $self->SetNewValue($dstTag, $val, %$opts);
             $rtnInfo{$dstTag} = $val if $rtnVals[0]; # tag was set successfully
+            # return warning if any
+            $rtnInfo{NextFreeTagKey(\%rtnInfo, 'Warning')} = $rtnVals[1] if $rtnVals[1];
             next;
         }
         foreach $tag (@{$setMatches{$set}}) {
@@ -5736,6 +5740,8 @@ sub WriteJPEG($$)
                     $s =~ /^(Meta|META|Exif)\0\0/ and $dirName = 'Meta';
                 } elsif ($marker == 0xe5) {
                     $s =~ /^RMETA\0/        and $dirName = 'RMETA';
+                } elsif ($marker == 0xea) {
+                    $s =~ /^AROT\0\0/       and $dirName = 'AROT';
                 } elsif ($marker == 0xeb) {
                     $s =~ /^JP/             and $dirName = 'JUMBF';
                 } elsif ($marker == 0xec) {
@@ -6644,7 +6650,12 @@ sub WriteJPEG($$)
                     $segType = 'SEAL';
                     $$delGroup{SEAL} and $del = 1;
                 }
-            } elsif ($marker == 0xeb) {         # APP10 (JUMBF)
+            } elsif ($marker == 0xea) {         # APP10 (AROT)
+                if ($$segDataPt =~ /^AROT\0\0/) {
+                    $segType = 'AROT';
+                    $$delGroup{AROT} and $del = 1;
+                }
+            } elsif ($marker == 0xeb) {         # APP11 (JUMBF)
                 if ($$segDataPt =~ /^JP/) {
                     $segType = 'JUMBF';
                     $$delGroup{JUMBF} and $del = 1;

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

@@ -50,7 +50,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 require Exporter;
 
-$VERSION = '3.73';
+$VERSION = '3.74';
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(EscapeXML UnescapeXML);
 
@@ -3830,7 +3830,7 @@ sub ParseXMPElement($$$;$$$$)
         for (;;) {
             my ($attr, $quote);
             if (length($attrs) < 2000) { # (do it the easy way if attributes aren't stupid long)
-                last unless $attrs =~ /(\S+)\s*=\s*(['"])/g;
+                last unless $attrs =~ /(\S+?)\s*=\s*(['"])/g;
                 ($attr, $quote) = ($1, $2);
             } else {
                 # 13.23 patch to avoid capturing tons of garbage if XMP is corrupted

data/bin/lib/Image/ExifTool.pm

@@ -29,7 +29,7 @@ use vars qw($VERSION $RELEASE @ISA @EXPORT_OK %EXPORT_TAGS $AUTOLOAD @fileTypes
             %jpegMarker %specialTags %fileTypeLookup $testLen $exeDir
             %static_vars $advFmtSelf);
 
-$VERSION = '13.27';
+$VERSION = '13.29';
 $RELEASE = '';
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (

data/bin/lib/Image/ExifTool.pod

@@ -2547,17 +2547,17 @@ Here is a complete list of groups for each of these families:
 
 =item Family 0 (Information Type):
 
-AAC, AFCP, AIFF, APE, APP0, APP1, APP11, APP12, APP13, APP14, APP15, APP2,
-APP3, APP4, APP5, APP6, APP7, APP8, APP9, ASF, Audible, Canon, CanonVRD,
-Composite, DICOM, DjVu, DNG, Ducky, DV, EXE, EXIF, ExifTool, File, FITS,
-FLAC, Flash, FlashPix, FLIR, Font, FotoStation, GeoTiff, GIF, GIMP, GM,
-GoPro, H264, HTML, ICC_Profile, ID3, IPTC, ISO, ITC, JFIF, JPEG, Jpeg2000,
-JSON, JUMBF, Leaf, LNK, Lytro, M2TS, MakerNotes, Matroska, Meta, MIE, MIFF,
-MISB, MNG, MOI, MPC, MPEG, MPF, MXF, Ogg, OpenEXR, Opus, Palm, PanasonicRaw,
-Parrot, PDF, PhotoCD, PhotoMechanic, Photoshop, PICT, PLIST, PNG,
-PostScript, PrintIM, Protobuf, PSP, QuickTime, Radiance, RAF, Rawzor, Real,
-Red, RIFF, RSRC, RTF, SigmaRaw, Sony, Stim, SVG, Theora, Torrent, Trailer,
-VCard, Vorbis, WTV, XML, XMP, ZIP
+AAC, AFCP, AIFF, APE, APP0, APP1, APP10, APP11, APP12, APP13, APP14, APP15,
+APP2, APP3, APP4, APP5, APP6, APP7, APP8, APP9, ASF, Audible, Canon,
+CanonVRD, Composite, DICOM, DjVu, DNG, Ducky, DV, EXE, EXIF, ExifTool, File,
+FITS, FLAC, Flash, FlashPix, FLIR, Font, FotoStation, GeoTiff, GIF, GIMP,
+GM, GoPro, H264, HTML, ICC_Profile, ID3, IPTC, ISO, ITC, JFIF, JPEG,
+Jpeg2000, JSON, JUMBF, Leaf, LNK, Lytro, M2TS, MakerNotes, Matroska, Meta,
+MIE, MIFF, MISB, MNG, MOI, MPC, MPEG, MPF, MXF, Ogg, OpenEXR, Opus, Palm,
+PanasonicRaw, Parrot, PDF, PhotoCD, PhotoMechanic, Photoshop, PICT, PLIST,
+PNG, PostScript, PrintIM, Protobuf, PSP, QuickTime, Radiance, RAF, Rawzor,
+Real, Red, RIFF, RSRC, RTF, SigmaRaw, Sony, Stim, SVG, Theora, Torrent,
+Trailer, VCard, Vorbis, WTV, XML, XMP, ZIP
 
 =item Family 1 (Specific Location):
 

data/bin/perl-Image-ExifTool.spec

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

data/lib/exiftool_vendored/version.rb

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