exiftool-vendored.pl 12.43.0 → 12.45.0

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

@@ -14,7 +14,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.01';
+$VERSION = '1.02';
 
 # Motorola makernotes tags (ref PH)
 %Image::ExifTool::Motorola::Main = (
@@ -54,7 +54,12 @@ $VERSION = '1.01';
     # 0x6400 - string: 'AUTO','ON','OFF'
     # 0x6401 - string: 'HDR'
     # 0x6410 - string: 'NO','YES'
-    # 0x6420 - int32s: 0 (only exists in HDR images?)
+    # 0x6420 - int32s for some models: 0 (only exists in HDR images?)
+    0x6420 => { #forum13731
+        Condition => '$format eq "string"',
+        Name => 'CustomRendered',
+        Writable => 'string',
+    },
     # 0x6430 - float
     # 0x6431 - int8u: 0,1
     # 0x6432 - int8u: 0,79,100
@@ -89,6 +94,7 @@ $VERSION = '1.01';
     # 0x64c2,0x64c3 - int32s
     # 0x64c4 - int32s
     # 0x64c5 - int32u
+    0x64d0 => { Name => 'DriveMode', Writable => 'string' }, #forum13731
     # 0x6500 - int8u: 1
     # 0x6501 - string: 'Luma-Chroma Plane','Chroma only' or int8u: 0
     # 0x6502 - string: 'Luma-Chroma Plane','Chroma only','' or int8u: 1,255

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

@@ -63,7 +63,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 use Image::ExifTool::XMP;
 
-$VERSION = '4.07';
+$VERSION = '4.09';
 
 sub LensIDConv($$$);
 sub ProcessNikonAVI($$$);
@@ -1624,6 +1624,11 @@ my %base64coord = (
              3 => 'Small',
         },
     },
+    0x003f => { #https://github.com/darktable-org/darktable/issues/12282
+        Name => 'WhiteBalanceFineTune',
+        Writable => 'rational64s',
+        Count => 2,
+    },
     0x0045 => { #IB
         Name => 'CropArea',
         Notes => 'left, top, width, height',
@@ -2081,7 +2086,7 @@ my %base64coord = (
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoZ9',
                 DecryptStart => 4,
                 # TODO: eventually set the length dynamically according to actual offsets!
-                DecryptLen => 0xec4b + 1646,  # decoded thru end of CustomSettingZ9 in Offset26 (+MenuSettingsZ9Offset)
+                DecryptLen => 0xec4b + 1907,  # decoded thru end of Offset26 
                 ByteOrder => 'LittleEndian',
             },
         },
@@ -4867,7 +4872,7 @@ my %nikonFocalConversions = (
     %binaryDataAttrs,
     NOTES => 'Tags found in the encrypted LensData from cameras such as the Z6 and Z7.',
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
-    DATAMEMBER => [ 0x03, 0x2f ],
+    DATAMEMBER => [ 0x03, 0x2f, 0x35, 0x4c, 0x56 ],
     0x00 => {
         Name => 'LensDataVersion',
         Format => 'string[4]',
@@ -4893,12 +4898,12 @@ my %nikonFocalConversions = (
         %nikonApertureConversions,
     },
     # --> another extra byte at position 0x08 in this version of LensData (PH)
-    0x09 => {
-        Name => 'FocusPosition',
-        Condition => '$$self{OldLensData}',
-        PrintConv => 'sprintf("0x%02x", $val)',
-        PrintConvInv => '$val',
-    },
+    #0x09 => {
+    #    Name => 'FocusPosition',                         #28 - this appears to be copied from an older version of LensData and is no longer valid.  Text with Z9 and Z7_2 with a variety of lenses
+    #    Condition => '$$self{OldLensData}',
+    #    PrintConv => 'sprintf("0x%02x", $val)',
+    #    PrintConvInv => '$val',
+    #},
     0x0b => {
         Notes => 'this focus distance is approximate, and not very accurate for some lenses',
         Name => 'FocusDistance',
@@ -4957,7 +4962,8 @@ my %nikonFocalConversions = (
         %nikonApertureConversions,
     },
 #
-# ---- new LensData tags used by Nikkor Z lenses ---- (ref PH)
+# ---- new LensData tags used by Nikkor Z cameras (ref PH/28). ----
+# (some fields are strictly for Z-series lenses, others apply to legacy F-mount as well, ref 28)
 #
     0x2f => { # look forward to see if new lens data exists...
         Name => 'NewLensData',
@@ -4965,7 +4971,7 @@ my %nikonFocalConversions = (
         RawConv => '$$self{NewLensData} = 1 unless $val =~ /^.\0+$/s; undef',
         Hidden => 1,
     },
-    0x30 => {
+    0x30 => { #PH
         Name => 'LensID',
         Condition => '$$self{NewLensData}',
         Notes => 'tags from here onward used for Nikkor Z lenses only',
@@ -4991,9 +4997,22 @@ my %nikonFocalConversions = (
             27 => 'Nikkor Z MC 50mm f/2.8', #IB
             28 => 'Nikkor Z 100-400mm f/4.5-5.6 VR S', #28
             29 => 'Nikkor Z 28mm f/2.8', #IB
+            30 => 'Nikkor Z 400mm f/2.8 TC VR S',   #28
+            31 => 'Nikkor Z 24-120 f/4',   #28     
+            32 => 'Nikkor Z 800mm f/6.3 VR S',  #28
         },
     },
-    0x36 => {
+    0x35 => { #28
+        Name => 'LensMountType',
+        RawConv => '$$self{LensMountType} = $val',   #  0=> DSLR lens via FTZ style adapter;   1=> Native Z lens;
+        Format => 'int8u',
+        Unknown => 1,
+        PrintConv => {
+             0 => 'F-mount Lens',
+             1 => 'Z-mount Lens',
+         },
+    },
+    0x36 => { #PH
         Name => 'MaxAperture',
         Condition => '$$self{NewLensData}',
         Format => 'int16u',
@@ -5003,7 +5022,7 @@ my %nikonFocalConversions = (
         PrintConv => 'sprintf("%.1f",$val)',
         PrintConvInv => '$val',
     },
-    0x38 => {
+    0x38 => { #PH
         Name => 'FNumber',
         Condition => '$$self{NewLensData}',
         Format => 'int16u',
@@ -5013,7 +5032,7 @@ my %nikonFocalConversions = (
         PrintConv => 'sprintf("%.1f",$val)',
         PrintConvInv => '$val',
     },
-    0x3c => {
+    0x3c => { #PH
         Name => 'FocalLength',
         Condition => '$$self{NewLensData}',
         Format => 'int16u',
@@ -5021,14 +5040,36 @@ my %nikonFocalConversions = (
         PrintConv => '"$val mm"',
         PrintConvInv => '$val=~s/\s*mm$//;$val',
     },
-    0x4f => {
-        Name => 'FocusDistance',
-        Condition => '$$self{NewLensData}',
-        # (perhaps int16u Format? -- although upper byte would always be zero)
+    0x4c => { #28
+        Name => 'FocusDistanceRangeWidth',     #reflects the number of discrete absolute lens positions that are mapped to the reported FocusDistance.  Will be 1 near CFD reflecting very narrow focus distance bands (i.e., quite accurate).  Near Infinity will be something like 32.  Note: 0 at infinity.
+        Format => 'int8u',
+        Condition => '$$self{NewLensData} and $$self{LensMountType} == 1',  
+        RawConv => '$$self{FocusDistanceRangeWidth} = $val',
+        Unknown => 1,
+    },
+    0x4e => { #28
+        Name => 'FocusDistance', 
+        Format => 'int16u',
+        Condition => '$$self{NewLensData} and $$self{LensMountType} == 1',  
+        RawConv => '$val = $val/256',  # 1st byte is the fractional component.  This byte was not previously considered in the legacy calculation (which only used the 2nd byte).  When 2nd byte < 80; distance is < 1 meter
         ValueConv => '0.01 * 10**($val/40)', # in m
         ValueConvInv => '$val>0 ? 40*log($val*100)/log(10) : 0',
-        PrintConv => '$val ? sprintf("%.2f m",$val) : "inf"',
-        PrintConvInv => '$val eq "inf" ? 0 : $val =~ s/\s*m$//, $val',
+        PrintConv => q{
+            $$self{FocusDistanceRangeWidth} == 0 ? "Inf" : $val < 1 ? $val < 0.35 ? sprintf("%.4f m", $val): sprintf("%.3f m", $val): sprintf("%.2f m", $val),    #distances less than 35mm are quite accurate with increasingly less precision past 1m       
+        },
+    },
+    0x56 => { #28
+        Name => 'LensDriveEnd',     # byte contains: 1 at CFD/MOD; 2 at Infinity; 0 otherwise
+        Condition => '$$self{NewLensData} and $$self{LensMountType} == 1',  
+        Format => 'int8u',
+        RawConv => 'unless ($$self{FocusDistanceRangeWidth} == 0 ) { if ($val == 0 ) {$$self{LensDriveEnd} = "No"} else { $$self{LensDriveEnd} = "CFD"}; } else{ $$self{LensDriveEnd} = "Inf"}',
+        Unknown => 1,
+    },
+    0x5a => { #28
+        Name => 'LensPositionAbsolute',    # <=0 at infinity.  Typical value at CFD might be 58000.   Only valid for Z-mount lenses.
+        Condition => '$$self{NewLensData} and $$self{LensMountType} == 1',      
+        Format => 'int32s',
+        Unknown => 1,
     },
 );
 
@@ -8753,13 +8794,18 @@ my %nikonFocalConversions = (
             6 => '+08:00 (Beijing, Honk Kong, Sinapore)',
             10 => '+05:45 (Kathmandu)',
             11 => '+05:30 (New Dehli)',
+            12 => '+05:00 (Islamabad)',
+            13 => '+04:30 (Kabul)',
+            14 => '+04:00 (Abu Dhabi)',
+            15 => '+03:30 (Tehran)',
             16 => '+03:00 (Moscow, Nairobi)',
-            15 => '+02:00 (Athens)',
-            16 => '+01:00 (Madrid, Paris, Berlin)',
             17 => '+02:00 (Athens, Helsinki)',
-            18 => '+00:00 (London)',
-            19 => '+00:00', #PH (unknown city)
+            18 => '+01:00 (Madrid, Paris, Berlin)',
+            19 => '+00:00 (London)', 
+            20 => '-01:00 (Azores)', 
+            21 => '-02:00 (Fernando de Noronha)', 
             22 => '-03:00 (Buenos Aires, Sao Paulo)',
+            23 => '-03:30 (Newfoundland)',
             24 => '-04:00 (Manaus, Caracas)',
             25 => '-05:00 (New York, Toronto, Lima)',
             26 => '-06:00 (Chicago, Mexico City)',

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

@@ -21,7 +21,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.25';
+$VERSION = '1.26';
 
 sub ProcessJpgFromRaw($$$);
 sub WriteJpgFromRaw($$$);
@@ -218,6 +218,7 @@ my %panasonicWhiteBalance = ( #forum9396
     0x30 => { Name => 'CropLeft',   Writable => 'int16u' },
     0x31 => { Name => 'CropBottom', Writable => 'int16u' },
     0x32 => { Name => 'CropRight',  Writable => 'int16u' },
+    # 0x44 - may contain another pointer to the raw data starting at byte 2 in this data (DC-GH6)
     0x10f => {
         Name => 'Make',
         Groups => { 2 => 'Camera' },
@@ -737,6 +738,7 @@ sub WriteDistortionInfo($$$)
 #  2 - value count
 #  3 - reference to list of original offset values
 #  4 - IFD format number
+#  5 - (pointer to StripOffsets value added by this PatchRawDataOffset routine)
 sub PatchRawDataOffset($$$)
 {
     my ($offsetInfo, $raf, $ifd) = @_;
@@ -745,15 +747,26 @@ sub PatchRawDataOffset($$$)
     my $rawDataOffset = $$offsetInfo{0x118};
     my $err;
     $err = 1 unless $ifd == 0;
-    $err = 1 unless $stripOffsets and $stripByteCounts and $$stripOffsets[2] == 1;
-    if ($rawDataOffset) {
+    if ($stripOffsets or $stripByteCounts) {
+        $err = 1 unless $stripOffsets and $stripByteCounts and $$stripOffsets[2] == 1;
+    } else {
+        # the DC-GH6 and DC-GH5M2 write RawDataOffset with no Strip tags, so we need
+        # to create fake StripByteCounts information for copying the data
+      # (disable this until SilkyPix and Adobe utilities can deal with a variable
+      #  RawDataOffset, see https://exiftool.org/forum/index.php?topic=13861.0 --
+      #  so these files will continue to give a "No size tag" error when writing)
+      #  $stripByteCounts = $$offsetInfo{0x117} = [ $PanasonicRaw::Main{0x117}, 0, 1, [ 0 ], 4 ];
+    }
+    if ($rawDataOffset and not $err) {
         $err = 1 unless $$rawDataOffset[2] == 1;
-        $err = 1 unless $$stripOffsets[3][0] == 0xffffffff or $$stripByteCounts[3][0] == 0;
+        if ($stripOffsets) {
+            $err = 1 unless $$stripOffsets[3][0] == 0xffffffff or $$stripByteCounts[3][0] == 0;
+        }
     }
     $err and return 'Unsupported Panasonic/Leica RAW variant';
     if ($rawDataOffset) {
         # update StripOffsets along with this tag if it contains a reasonable value
-        unless ($$stripOffsets[3][0] == 0xffffffff) {
+        if ($stripOffsets and $$stripOffsets[3][0] != 0xffffffff) {
             # save pointer to StripOffsets value for updating later
             push @$rawDataOffset, $$stripOffsets[1];
         }

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

@@ -13,8 +13,9 @@ package Image::ExifTool::Parrot;
 
 use strict;
 use vars qw($VERSION);
+use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.01';
+$VERSION = '1.02';
 
 sub Process_mett($$$);
 
@@ -22,7 +23,10 @@ sub Process_mett($$$);
 %Image::ExifTool::Parrot::mett = (
     PROCESS_PROC => \&Process_mett,
     # put the 'P' records first in the documentation
-    VARS => { SORT_PROC => sub { my ($a,$b)=@_; $a=~s/P/A/; $b=~s/P/A/; $a cmp $b } },
+    VARS => {
+        SORT_PROC => sub { my ($a,$b)=@_; $a=~s/P/A/; $b=~s/P/A/; $a cmp $b },
+        LONG_TAGS => 1
+    },
     NOTES => q{
         Streaming metadata found in Parrot drone videos. See
         L<https://developer.parrot.com/docs/pdraw/metadata.html> for the
@@ -52,6 +56,23 @@ sub Process_mett($$$);
         Name => 'ParrotAutomation',
         SubDirectory => { TagTable => 'Image::ExifTool::Parrot::Automation' },
     },
+    # timed metadata written by ARCore (see forum13653)
+    'application/arcore-accel' => {
+        Name => 'ARCoreAccel',
+        SubDirectory => { TagTable => 'Image::ExifTool::Parrot::ARCoreAccel', ByteOrder => 'II' },
+    },
+    'application/arcore-gyro' => {
+        Name => 'ARCoreGyro',
+        SubDirectory => { TagTable => 'Image::ExifTool::Parrot::ARCoreGyro', ByteOrder => 'II' },
+    },
+    'application/arcore-video-0' => {
+        Name => 'ARCoreVideo',
+        SubDirectory => { TagTable => 'Image::ExifTool::Parrot::ARCoreVideo', ByteOrder => 'II' },
+    },
+    'application/arcore-custom-event' => {
+        Name => 'ARCoreCustom',
+        SubDirectory => { TagTable => 'Image::ExifTool::Parrot::ARCoreCustom', ByteOrder => 'II' },
+    },
 );
 
 # tags found in the Parrot 'mett' V1 timed metadata (ref 1) [untested]
@@ -630,6 +651,69 @@ sub Process_mett($$$);
     },
 );
 
+# ARCore Accel data (ref PH)
+%Image::ExifTool::Parrot::ARCoreAccel = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 2 => 'Location' },
+    NOTES => 'ARCore accelerometer data.',
+    FIRST_ENTRY => 0,
+    # 00-04: always 10 34 16 1 29
+    4  => {
+        Name => 'AccelerometerUnknown',
+        Format => 'undef[16]',
+        Unknown => 1,
+        ValueConv => 'join " ", unpack("Cx4Cx4Cx4C", $val)',
+    },
+    5  => { # (NC)
+        Name => 'Accelerometer',
+        Format => 'undef[14]',
+        RawConv => 'GetFloat(\$val,0) . " " . GetFloat(\$val,5) . " " . GetFloat(\$val,10)',
+    },
+    # 05-08: float Accelerometer X
+    # 09: 37
+    # 10-13: float Accelerometer Y
+    # 14: 45
+    # 15-18: float Accelerometer Z
+    # 19: 48
+    # 20-24: 128-255
+    # 25: 246 then 247
+    # 26: 188
+    # 27: 2
+    # 28: 56
+    # 29-32: 128-255
+    # 33: increments slowly (about once every 56 samples or so)
+);
+
+# ARCore Gyro data (ref PH)
+%Image::ExifTool::Parrot::ARCoreGyro = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 2 => 'Location' },
+    NOTES => 'ARCore accelerometer data.',
+    FIRST_ENTRY => 0,
+    # 00-04: always 10 34 16 3 29
+    4  => {
+        Name => 'GyroscopeUnknown',
+        Format => 'undef[16]',
+        Unknown => 1, # always "29 37 45 48" in my sample, just like AccelerometerUnknown
+        ValueConv => 'join " ", unpack("Cx4Cx4Cx4C", $val)',
+    },
+    5  => { # (NC)
+        Name => 'Gyroscope',
+        Format => 'undef[14]',
+        RawConv => 'GetFloat(\$val,0) . " " . GetFloat(\$val,5) . " " . GetFloat(\$val,10)',
+    },
+);
+
+%Image::ExifTool::Parrot::ARCoreVideo = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    FIRST_ENTRY => 0,
+);
+
+%Image::ExifTool::Parrot::ARCoreCustom = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    FIRST_ENTRY => 0,
+);
+
 %Image::ExifTool::Parrot::Composite = (
     GPSDateTime => {
         Description => 'GPS Date/Time',
@@ -677,9 +761,18 @@ sub Process_mett($$$)
     my $dataPos = $$dirInfo{DataPos};
     my $dirEnd = length $$dataPt;
     my $pos = $$dirInfo{DirStart} || 0;
+    my $metaType = $$et{MetaType} || '';
 
     $et->VerboseDir('Parrot mett', undef, $dirEnd);
 
+    if ($$tagTbl{$metaType}) {
+        $et->HandleTag($tagTbl, $metaType, undef,
+            DataPt  => $dataPt,
+            DataPos => $dataPos,
+            Base    => $$dirInfo{Base},
+        );
+        return 1;
+    }
     while ($pos + 4 < $dirEnd) {
         my ($id, $nwords) = unpack("x${pos}a2n", $$dataPt);
         my $size;

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

@@ -47,7 +47,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 
-$VERSION = '2.74';
+$VERSION = '2.76';
 
 sub ProcessMOV($$;$);
 sub ProcessKeys($$$);
@@ -556,12 +556,16 @@ my %eeBox2 = (
     mdat => { Name => 'MediaData', Unknown => 1, Binary => 1 },
     'mdat-size' => {
         Name => 'MediaDataSize',
+        RawConv => '$$self{MediaDataSize} = $val',
         Notes => q{
             not a real tag ID, this tag represents the size of the 'mdat' data in bytes
             and is used in the AvgBitrate calculation
         },
     },
-    'mdat-offset' => 'MediaDataOffset',
+    'mdat-offset' => {
+        Name  => 'MediaDataOffset',
+        RawConv => '$$self{MediaDataOffset} = $val',
+    },
     junk => { Unknown => 1, Binary => 1 }, #8
     uuid => [
         { #9 (MP4 files)
@@ -897,7 +901,7 @@ my %eeBox2 = (
     },
     colr => {
         Name => 'ColorRepresentation',
-        ValueConv => 'join(" ", substr($val,0,4), unpack("x4n*",$val))',
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::ColorRep' },
     },
     pasp => {
         Name => 'PixelAspectRatio',
@@ -2732,7 +2736,7 @@ my %eeBox2 = (
         },
     },{
         Name => 'ColorRepresentation',
-        ValueConv => 'join(" ", substr($val,0,4), unpack("x4n*",$val))',
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::ColorRep' },
     }],
     irot => {
         Name => 'Rotation',
@@ -2792,6 +2796,78 @@ my %eeBox2 = (
     },
 );
 
+# ref https://aomediacodec.github.io/av1-spec/av1-spec.pdf
+%Image::ExifTool::QuickTime::ColorRep = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 2 => 'Video' },
+    FIRST_ENTRY => 0,
+    0 => { Name => 'ColorProfiles', Format => 'undef[4]' },
+    4 => {
+        Name => 'ColorPrimaries',
+        Format => 'int16u',
+        PrintConv => {
+                1 => 'BT.709',
+                2 => 'Unspecified',
+                4 => 'BT.470 System M (historical)',
+                5 => 'BT.470 System B, G (historical)',
+                6 => 'BT.601',
+                7 => 'SMPTE 240',
+                8 => 'Generic film (color filters using illuminant C)',
+                9 => 'BT.2020, BT.2100',
+                10 => 'SMPTE 428 (CIE 1921 XYZ)',
+                11 => 'SMPTE RP 431-2',
+                12 => 'SMPTE EG 432-1',
+                22 => 'EBU Tech. 3213-E',
+            },
+    },
+    6 => {
+        Name => 'TransferCharacteristics',
+        Format => 'int16u',
+        PrintConv => {
+                0 => 'For future use (0)',
+                1 => 'BT.709',
+                2 => 'Unspecified',
+                3 => 'For future use (3)',
+                4 => 'BT.470 System M (historical)',
+                5 => 'BT.470 System B, G (historical)',
+                6 => 'BT.601',
+                7 => 'SMPTE 240 M',
+                8 => 'Linear',
+                9 => 'Logarithmic (100 : 1 range)',
+                10 => 'Logarithmic (100 * Sqrt(10) : 1 range)',
+                11 => 'IEC 61966-2-4',
+                12 => 'BT.1361',
+                13 => 'sRGB or sYCC',
+                14 => 'BT.2020 10-bit systems',
+                15 => 'BT.2020 12-bit systems',
+                16 => 'SMPTE ST 2084, ITU BT.2100 PQ',
+                17 => 'SMPTE ST 428',
+                18 => 'BT.2100 HLG, ARIB STD-B67',
+            },
+    },
+    8 => {
+        Name => 'MatrixCoefficients',
+        Format => 'int16u',
+        PrintConv => {
+                0 => 'Identity matrix',
+                1 => 'BT.709',
+                2 => 'Unspecified',
+                3 => 'For future use (3)',
+                4 => 'US FCC 73.628',
+                5 => 'BT.470 System B, G (historical)',
+                6 => 'BT.601',
+                7 => 'SMPTE 240 M',
+                8 => 'YCgCo',
+                9 => 'BT.2020 non-constant luminance, BT.2100 YCbCr',
+                10 => 'BT.2020 constant luminance',
+                11 => 'SMPTE ST 2085 YDzDx',
+                12 => 'Chromaticity-derived non-constant luminance',
+                13 => 'Chromaticity-derived constant luminance',
+                14 => 'BT.2100 ICtCp',
+            },
+    },
+);
+
 # HEVC configuration (ref https://github.com/MPEGGroup/isobmff/blob/master/IsoLib/libisomediafile/src/HEVCConfigAtom.c)
 %Image::ExifTool::QuickTime::HEVCConfig = (
     PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
@@ -7516,6 +7592,12 @@ my %eeBox2 = (
         Format => 'undef[4]',
         RawConv => '$$self{MetaFormat} = $val',
     },
+    8 => { # starts at 8 for MetaFormat eq 'camm', and 17 for 'mett'
+        Name => 'MetaType',
+        Format => 'undef[$size-8]',
+        # may start at various locations!
+        RawConv => '$$self{MetaType} = ($val=~/(application[^\0]+)/ ? $1 : undef)',
+    },
 #
 # Observed offsets for child atoms of various MetaFormat types:
 #

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

@@ -1527,7 +1527,7 @@ sub ProcessFreeGPS($$$)
         $spd = $9 * $knotsToKph if length $9;
         $trk = $10 if length $10;
 
-    } elsif ($$dataPt =~ /^.{64}[\x01-\x0c]\0{3}[\x01-\x1f]\0{3}A[NS][EW]\0/s) {
+    } elsif ($$dataPt =~ /^.{64}[\x01-\x0c]\0{3}[\x01-\x1f]\0{3}A[NS][EW]\0{5}/s) {
 
         # Akaso V1 dascham
         #  0000: 00 00 80 00 66 72 65 65 47 50 53 20 78 00 00 00 [....freeGPS x...]
@@ -1624,6 +1624,9 @@ sub ProcessFreeGPS($$$)
         #  0000: 00 00 80 00 66 72 65 65 47 50 53 20 4c 00 00 00 [....freeGPS L...]
         #  0010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 [................]
         #  0020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 [................]
+        #  0030: 10 00 00 00 2d 00 00 00 14 00 00 00 11 00 00 00 [....-...........]
+        #  0040: 0c 00 00 00 1f 00 00 00 41 4e 45 00 5d 9a a9 45 [........ANE.]..E]
+        #  0050: ab 1e e5 44 ec 51 f0 40 b8 5e a5 43 00 00 00 00 [...D.Q.@.^.C....]
         # (records are same structure as Type 3 Novatek GPS in ProcessFreeGPS2() below)
         ($hr,$min,$sec,$yr,$mon,$day,$stat,$latRef,$lonRef,$lat,$lon,$spd,$trk) =
             unpack('x48V6a1a1a1x1V4', $$dataPt);
@@ -2700,7 +2703,7 @@ sub ProcessInsta360($;$)
                     $a[$_] = GetDouble(\$a[$_], 0) foreach 4,6,8,9,10;
                     $a[4] = -abs($a[4]) if $a[5] eq 'S'; # (abs just in case it was already signed)
                     $a[6] = -abs($a[6]) if $a[7] ne 'E';
-                    $et->HandleTag($tagTbl, GPSDateTifme  => Image::ExifTool::ConvertUnixTime($a[0]) . 'Z');
+                    $et->HandleTag($tagTbl, GPSDateTime  => Image::ExifTool::ConvertUnixTime($a[0]) . 'Z');
                     $et->HandleTag($tagTbl, GPSLatitude  => $a[4]);
                     $et->HandleTag($tagTbl, GPSLongitude => $a[6]);
                     $et->HandleTag($tagTbl, GPSSpeed     => $a[8] * $mpsToKph);
@@ -2808,9 +2811,9 @@ sub ScanMediaData($)
     my ($pos, $buf2) = (0, '');
 
     # don't rescan for freeGPS if we already found embedded metadata
-    my $dataPos = $$et{VALUE}{MediaDataOffset};
+    my $dataPos = $$et{MediaDataOffset};
     if ($dataPos and not $$et{DOC_COUNT}) {
-        $dataLen = $$et{VALUE}{MediaDataSize};
+        $dataLen = $$et{MediaDataSize};
         if ($dataLen) {
             if ($raf->Seek($dataPos, 0)) {
                 $$et{FreeGPS2} = { };   # initialize variable space for FreeGPS2()

package/bin/lib/Image/ExifTool/README

@@ -395,7 +395,9 @@ numerical, and generated automatically otherwise.
                   be accessible.
 
                   'Hidden' - set to hide tag from the TagName documentation.
-                  Also suppresses verbose output of a BinaryData tag.
+                  Also suppresses verbose output of a BinaryData tag.  The
+                  RawConv of a Hidden tag should return undef so the tag value
+                  is not seen by the user.
 
                   'IsComposite' - flag set for Composite tags
 

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

@@ -34,7 +34,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::Minolta;
 
-$VERSION = '3.50';
+$VERSION = '3.52';
 
 sub ProcessSRF($$$);
 sub ProcessSR2($$$);
@@ -154,7 +154,12 @@ sub PrintInvLensSpec($;$$);
     32866 => 'Sony FE 24mm F2.8 G', #IB
     32867 => 'Sony FE 40mm F2.5 G', #IB
     32868 => 'Sony FE 50mm F2.5 G', #IB
+    32871 => 'Sony FE PZ 16-35mm F4 G', #JR
+    32873 => 'Sony E PZ 10-20mm F4 G', #JR
     32874 => 'Sony FE 70-200mm F2.8 GM OSS II', #IB
+    32875 => 'Sony FE 24-70mm F2.8 GM II', #JR
+    32876 => 'Sony E 11mm F1.8', #JR
+    32877 => 'Sony E 15mm F1.4 G', #JR
 
   # (comment this out so LensID will report the LensModel, which is more useful)
   # 32952 => 'Metabones Canon EF Speed Booster Ultra', #JR (corresponds to 184, but 'Advanced' mode, LensMount reported as E-mount)
@@ -200,6 +205,7 @@ sub PrintInvLensSpec($;$$);
     49468 => 'Tamron 18-300mm F3.5-6.3 Di III-A VC VXD', #JR (Model B061)
     49469 => 'Tamron 35-150mm F2-F2.8 Di III VXD', #JR (Model A058)
     49470 => 'Tamron 28-75mm F2.8 Di III VXD G2', #JR (Model A063)
+    49471 => 'Tamron 50-400mm F4.5-6.3 Di III VC VXD', #JR (Model A067)
 
     49473 => 'Tokina atx-m 85mm F1.8 FE or Viltrox lens', #JR
     49473.1 => 'Viltrox 23mm F1.4 E', #JR
@@ -245,6 +251,7 @@ sub PrintInvLensSpec($;$$);
     50530 => 'Sigma 24mm F2 DG DN | C', #JR (021)
     50531 => 'Sigma 18-50mm F2.8 DC DN | C', #IB/JR (021)
     50532 => 'Sigma 20mm F2 DG DN | C', #JR (022)
+    50533 => 'Sigma 16-28mm F2.8 DG DN | C', #JR (022)
 
     50992 => 'Voigtlander SUPER WIDE-HELIAR 15mm F4.5 III', #JR
     50993 => 'Voigtlander HELIAR-HYPER WIDE 10mm F5.6', #IB