exiftool-vendored.pl 12.70.0 → 12.72.0

package/bin/Changes

@@ -7,7 +7,42 @@ RSS feed: https://exiftool.org/rss.xml
 Note: The most recent production release is Version 12.70. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
-Nov. 19, 2023 - Version 12.70 (production release)
+Dec. 29, 2023 - Version 12.72
+
+  - Added read support for AAC audio files
+  - Added a new QuickTime Keys Android tag
+  - Added a number of new values for some Ricoh GR III tags
+  - Decode timed metadata from Intsa360 Ace Pro MP4 videos
+  - Decode GPSDateTime milliseconds in timed Insta360 metadata
+  - Decode timed metadata from INNOV K5 TS videos
+  - Decode a number of new GoPro timed-metadata tags
+  - Decode a few new Xiaomi EXIF tags
+  - Fixed writing of JPG/ARW images from some newer Sony models to preserve
+    HiddenData
+
+Dec. 21, 2023 - Version 12.71
+
+  - Added a warning if there was an error reading an alternate file with the
+    -fileNUM option
+  - Added the ability to write QuickTime Keys:Encoder
+  - Added a few new Canon LensType values (thanks Norbert Wasser)
+  - Added a new, obscure EXIF tag (thanks Neal Krawetz)
+  - Decode real-time metadata from Ricoh Theta videos
+  - Decode SpecularWhiteLevel for more Canon models (github #232)
+  - Decode Canon DualPixelRaw tag (thanks John Moyer)
+  - Decode a few new Nikon tags (thanks Warren Hatch)
+  - Decode more FujiFilm M-RAW tags (thanks Greybeard)
+  - Improved generation of tag names for some JSON tag ID's containing colons
+  - Fixed "Undefined subroutine" error when writing makernotes as a block
+  - Fixed missing ID in family 7 group name for ID3 tags which are not valid for
+    the specified ID3 version
+  - Fixed bug where some tags from alternate files (with the -fileNUM option)
+    could show up as "not defined" when used in expressions even though they did
+    exist
+  - API Changes:
+      - Added NoMandatory option
+
+Nov. 19, 2023 - Version 12.70 (production release) - "20th Anniversary"
 
   - This marks the 20th anniversary of the initial ExifTool release!
   - Added ability to read/delete C2PA CAI JUMBF metadata from TIFF-based images

package/bin/MANIFEST

@@ -41,6 +41,7 @@ fmt_files/kml_track.fmt
 html/ExifTool.html
 html/MIE1.1-20070121.pdf
 html/Shift.html
+html/TagNames/AAC.html
 html/TagNames/AFCP.html
 html/TagNames/AIFF.html
 html/TagNames/APE.html
@@ -214,6 +215,7 @@ lib/File/RandomAccess.pod
 lib/Image/ExifTool.pm
 lib/Image/ExifTool.pod
 lib/Image/ExifTool/7Z.pm
+lib/Image/ExifTool/AAC.pm
 lib/Image/ExifTool/AES.pm
 lib/Image/ExifTool/AFCP.pm
 lib/Image/ExifTool/AIFF.pm
@@ -441,6 +443,8 @@ lib/Image/ExifTool/ZIP.pm
 lib/Image/ExifTool/ZISRAW.pm
 lib/Image/ExifTool/iWork.pm
 perl-Image-ExifTool.spec
+t/AAC.t
+t/AAC_2.out
 t/AFCP.t
 t/AFCP_2.out
 t/AFCP_3.out
@@ -979,6 +983,7 @@ t/ZIP_7.out
 t/ZIP_8.out
 t/ZISRAW.t
 t/ZISRAW_2.out
+t/images/AAC.aac
 t/images/AFCP.jpg
 t/images/AIFF.aif
 t/images/APE.ape

package/bin/META.json

@@ -50,5 +50,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "12.70"
+   "version" : "12.72"
 }

package/bin/META.yml

@@ -31,4 +31,4 @@ recommends:
   Time::HiRes: 0
 requires:
   perl: 5.004
-version: 12.70
+version: 12.72

package/bin/README

@@ -14,13 +14,14 @@ supported by ExifTool (r = read, w = write, c = create):
 
   File Types
   ------------+-------------+-------------+-------------+------------
-  360   r/w   | DPX   r     | ITC   r     | NUMBERS r   | RAW   r/w
-  3FR   r     | DR4   r/w/c | J2C   r     | O     r     | RIFF  r
-  3G2   r/w   | DSS   r     | JNG   r/w   | ODP   r     | RSRC  r
-  3GP   r/w   | DV    r     | JP2   r/w   | ODS   r     | RTF   r
-  7Z    r     | DVB   r/w   | JPEG  r/w   | ODT   r     | RW2   r/w
-  A     r     | DVR-MS r    | JSON  r     | OFR   r     | RWL   r/w
-  AA    r     | DYLIB r     | JXL   r     | OGG   r     | RWZ   r
+  360   r/w   | DOCX  r     | ISO   r     | NRW   r/w   | RAR   r
+  3FR   r     | DPX   r     | ITC   r     | NUMBERS r   | RAW   r/w
+  3G2   r/w   | DR4   r/w/c | J2C   r     | O     r     | RIFF  r
+  3GP   r/w   | DSS   r     | JNG   r/w   | ODP   r     | RSRC  r
+  7Z    r     | DV    r     | JP2   r/w   | ODS   r     | RTF   r
+  A     r     | DVB   r/w   | JPEG  r/w   | ODT   r     | RW2   r/w
+  AA    r     | DVR-MS r    | JSON  r     | OFR   r     | RWL   r/w
+  AAC   r     | DYLIB r     | JXL   r     | OGG   r     | RWZ   r
   AAE   r     | EIP   r     | K25   r     | OGV   r     | RM    r
   AAX   r/w   | EPS   r/w   | KDC   r     | ONP   r     | SEQ   r
   ACR   r     | EPUB  r     | KEY   r     | OPUS  r     | SKETCH r
@@ -56,7 +57,6 @@ supported by ExifTool (r = read, w = write, c = create):
   DLL   r     | INSP  r/w   | MXF   r     | RA    r     | XLSX  r
   DNG   r/w   | INSV  r     | NEF   r/w   | RAF   r/w   | XMP   r/w/c
   DOC   r     | INX   r     | NKSC  r/w   | RAM   r     | ZIP   r
-  DOCX  r     | ISO   r     | NRW   r/w   | RAR   r     |
 
   Meta Information
   ----------------------+----------------------+---------------------
@@ -108,8 +108,8 @@ your home directory, then you would type the following commands in a
 terminal window to extract and run ExifTool:
 
   cd ~/Desktop
-  gzip -dc Image-ExifTool-12.70.tar.gz | tar -xf -
-  cd Image-ExifTool-12.70
+  gzip -dc Image-ExifTool-12.72.tar.gz | tar -xf -
+  cd Image-ExifTool-12.72
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 

package/bin/exiftool

@@ -11,7 +11,7 @@ use strict;
 use warnings;
 require 5.004;
 
-my $version = '12.70';
+my $version = '12.72';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
 my $exePath;
@@ -1642,7 +1642,10 @@ if (@newValues) {
         if ($tag =~ /^(All)?TagsFromFile$/i) {
             defined $newVal or Error("Need file name for -tagsFromFile\n"), next Command;
             ++$isWriting;
-            if ($newVal eq '@' or not defined FilenameSPrintf($newVal)) {
+            if ($newVal eq '@' or not defined FilenameSPrintf($newVal) or
+                # can't set tags yet if we are using tags from other files with the -fileNUM option
+                grep /\bfile\d+:/i, @{$setTags{$newVal}})
+            {
                 push @dynamicFiles, $newVal;
                 next;   # set tags from dynamic file later
             }
@@ -4628,13 +4631,14 @@ supported by ExifTool (r = read, w = write, c = create):
 
   File Types
   ------------+-------------+-------------+-------------+------------
-  360   r/w   | DPX   r     | ITC   r     | NUMBERS r   | RAW   r/w
-  3FR   r     | DR4   r/w/c | J2C   r     | O     r     | RIFF  r
-  3G2   r/w   | DSS   r     | JNG   r/w   | ODP   r     | RSRC  r
-  3GP   r/w   | DV    r     | JP2   r/w   | ODS   r     | RTF   r
-  7Z    r     | DVB   r/w   | JPEG  r/w   | ODT   r     | RW2   r/w
-  A     r     | DVR-MS r    | JSON  r     | OFR   r     | RWL   r/w
-  AA    r     | DYLIB r     | JXL   r     | OGG   r     | RWZ   r
+  360   r/w   | DOCX  r     | ISO   r     | NRW   r/w   | RAR   r
+  3FR   r     | DPX   r     | ITC   r     | NUMBERS r   | RAW   r/w
+  3G2   r/w   | DR4   r/w/c | J2C   r     | O     r     | RIFF  r
+  3GP   r/w   | DSS   r     | JNG   r/w   | ODP   r     | RSRC  r
+  7Z    r     | DV    r     | JP2   r/w   | ODS   r     | RTF   r
+  A     r     | DVB   r/w   | JPEG  r/w   | ODT   r     | RW2   r/w
+  AA    r     | DVR-MS r    | JSON  r     | OFR   r     | RWL   r/w
+  AAC   r     | DYLIB r     | JXL   r     | OGG   r     | RWZ   r
   AAE   r     | EIP   r     | K25   r     | OGV   r     | RM    r
   AAX   r/w   | EPS   r/w   | KDC   r     | ONP   r     | SEQ   r
   ACR   r     | EPUB  r     | KEY   r     | OPUS  r     | SKETCH r
@@ -4670,7 +4674,6 @@ supported by ExifTool (r = read, w = write, c = create):
   DLL   r     | INSP  r/w   | MXF   r     | RA    r     | XLSX  r
   DNG   r/w   | INSV  r     | NEF   r/w   | RAF   r/w   | XMP   r/w/c
   DOC   r     | INX   r     | NKSC  r/w   | RAM   r     | ZIP   r
-  DOCX  r     | ISO   r     | NRW   r/w   | RAR   r     |
 
   Meta Information
   ----------------------+----------------------+---------------------
@@ -5440,7 +5443,7 @@ tags specified for the specific SourceFile processed.  The imported JSON
 file must have the same format as the exported JSON files with the exception
 that options exporting JSON objects instead of simple values are not
 compatible with the import file format (ie. export with B<-D>, B<-H>, B<-l>,
-or B<-T> is not compatable, and use B<-G> instead of B<-g>).  Additionally,
+or B<-T> is not compatible, and use B<-G> instead of B<-g>).  Additionally,
 tag names in the input JSON file may be suffixed with a C<#> to disable
 print conversion.
 
@@ -5582,7 +5585,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 12.70 --
+    -- Generated by ExifTool 12.72 --
     File: a.jpg - 2003:10:31 15:44:19
     (f/5.6, 1/60s, ISO 100)
     File: b.jpg - 2006:05:23 11:57:38
@@ -6605,8 +6608,12 @@ Rights from the original file could look like this:
 
     exiftool -file1 '$originalfilename' '-rights<file1:rights' edited.jpg
 
-Composite tags may access tags from alternate files using the appropriate
-(case-sensitive) family 8 group name.
+Subtle note:  If a B<-tagsFromFile> option is used, tags in the I<ALTFILE>
+argument come from the I<SRCFILE> that applies to the first argument
+accessing tags from the corresponding C<FileNUM> group.
+
+User-defined Composite tags may access tags from alternate files using the
+appropriate (case-sensitive) family 8 group name.
 
 =item B<-list_dir>
 

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

@@ -0,0 +1,175 @@
+#------------------------------------------------------------------------------
+# File:         AAC.pm
+#
+# Description:  Read AAC audio files
+#
+# Revisions:    2023-12-29 - P. Harvey Created
+#------------------------------------------------------------------------------
+
+package Image::ExifTool::AAC;
+
+use strict;
+use vars qw($VERSION);
+use Image::ExifTool qw(:DataAccess :Utils);
+use Image::ExifTool::FLAC;
+
+$VERSION = '1.00';
+
+my %convSampleRate = (
+    0 => 96000,  7 => 22050,
+    1 => 88200,  8 => 16000,
+    2 => 64000,  9 => 12000,
+    3 => 48000,  10 => 11025,
+    4 => 44100,  11 => 8000,
+    5 => 32000,  12 => 7350,
+    6 => 24000,
+);
+
+%Image::ExifTool::AAC::Main = (
+    PROCESS_PROC => \&Image::ExifTool::FLAC::ProcessBitStream,
+    GROUPS => { 2 => 'Audio' },
+   # Bit000-011 - sync word (all 1's)
+   # Bit012     - ID (seems to be always 0)
+   # Bit013-014 - layer (00)
+   # Bit015     - CRC absent (0=crc exists, 1=no crc)
+    'Bit016-017' => {
+        Name => 'ProfileType',
+        PrintConv => {
+            0 => 'Main',
+            1 => 'Low Complexity',
+            2 => 'Scalable Sampling Rate',
+        },
+    },
+    'Bit018-021' => {
+        Name => 'SampleRate',
+        ValueConv => \%convSampleRate,
+    },
+   # Bit022 - private
+    'Bit023-025' => {
+        Name => 'Channels',
+        PrintConv => {
+            0 => '?',
+            1 => 1,
+            2 => 2,
+            3 => 3,
+            4 => 4,
+            5 => 5,
+            6 => '5+1',
+            7 => '7+1',
+        },
+    },
+   # Bit026 - original/copy
+   # Bit027 - home
+   # Bit028 - copyright ID
+   # Bit029 - copyright start
+   # Bit030-042 - FrameLength
+   # Bit043-053 - buffer fullness
+   # Bit054-055 - BlocksInFrame (minus 1)
+   # Note: Bitrate for frame = FrameLength * 8 * SampleRate / ((BlocksInFrame+1) * 1024)
+   # - but all frames must be scanned to calculate average bitrate
+    Encoder => {
+        Name => 'Encoder',
+        Notes => 'taken from filler payload of first frame',
+    },
+);
+
+#------------------------------------------------------------------------------
+# Read information from an AAC file
+# Inputs: 0) ExifTool object reference, 1) Directory information reference
+# Returns: 1 on success, 0 if this wasn't a valid AAC file
+sub ProcessAAC($$)
+{
+    my ($et, $dirInfo) = @_;
+    my $raf = $$dirInfo{RAF};
+    my ($buff, $buf2);
+
+# format of frame header (7 bytes):
+# SSSS SSSS SSSS ILLC PPRR RRpC CCoh csff ffff ffff fffb bbbb bbbb bbNN
+# 1111 1111 1111 0001 0110 0000 0100 0000 0000 0101 0101 1111 1111 1100 (eg.)
+#  S = sync word                o = original/copy
+#  I = ID                       h = home
+#  L = layer (00)               c = copyright ID
+#  C = CRC absent               s = copyright start
+#  P = profile object type      f = frame length
+#  R = sampling rate index      b = buffer fullness
+#  p = private                  N = number of raw data blocks in frame
+#  C = channel configuration
+
+    $raf->Read($buff, 7) == 7 or return 0;
+    return 0 unless $buff =~ /^\xff[\xf0\xf1]/;
+    my @t = unpack('NnC', $buff);
+    return 0 if (($t[0] >> 16) & 0x03) == 3; # (reserved profile type)
+    return 0 if (($t[0] >> 12) & 0x0f) > 12; # validate sampling frequency index
+    my $len = (($t[0] << 11) & 0x1800) | (($t[1] >> 5) & 0x07ff);
+    return 0 if $len < 7;
+
+    $et->SetFileType();
+
+    my $tagTablePtr = GetTagTable('Image::ExifTool::AAC::Main');
+    $et->ProcessDirectory({ DataPt => \$buff }, $tagTablePtr);
+
+    # read the first frame data to check for a filler with the encoder name
+    if ($len > 8 and $raf->Read($buff, $len-7) == $len-7) {
+        my $noCRC = ($t[0] & 0x00010000);
+        my $blocks = ($t[2] & 0x03);
+        my $pos = 0;
+        $pos += 2 + 2 * $blocks unless $noCRC;
+        last if $pos + 2 > length($buff);
+        my $tmp = unpack("x${pos}n", $buff);
+        my $id = $tmp >> 13;
+        # read filler payload
+        if ($id == 6) {
+            my $cnt = ($tmp >> 9) & 0x0f;
+            ++$pos;
+            if ($cnt == 15) {
+                $cnt += (($tmp >> 1) & 0xff) - 1 if $cnt == 15;
+                ++$pos;
+            }
+            if ($pos + $cnt < length($buff)) {
+                my $dat = substr($buff, $pos, $cnt);
+                $dat =~ s/^\0+//;
+                $dat =~ s/\0+$//;
+                $et->HandleTag($tagTablePtr, Encoder => $dat) if $dat =~ /^[\x20-\x7e]+$/;
+            }
+        }
+    }
+
+    return 1;
+}
+
+1;  # end
+
+__END__
+
+=head1 NAME
+
+Image::ExifTool::AAC - Read AAC audio files
+
+=head1 SYNOPSIS
+
+This module is used by Image::ExifTool
+
+=head1 DESCRIPTION
+
+This module contains definitions required by Image::ExifTool to read AAC
+audio files.
+
+=head1 NOTES
+
+Since ISO charges money for the official AAC specification, this module is
+based on unofficial sources which may be incomplete, inaccurate or outdated.
+
+=head1 AUTHOR
+
+Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<Image::ExifTool::TagNames/AAC Tags>,
+L<Image::ExifTool(3pm)|Image::ExifTool>
+
+=cut
+

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

@@ -219,7 +219,8 @@ writable directly, but is written automatically by ExifTool (often when a
 corresponding L<Composite|Image::ExifTool::TagNames/Composite Tags> or
 L<Extra|Image::ExifTool::TagNames/Extra Tags> tag is written). A colon
 (C<:>) indicates a I<Mandatory> tag which may be added automatically when
-writing.  Normally MakerNotes tags may not be deleted individually, but a
+writing (use the API L<NoMandatory|../ExifTool.html#NoMandatory> option to avoid creating mandatory EXIF
+tags).  Normally MakerNotes tags may not be deleted individually, but a
 caret (C<^>) indicates a I<Deletable> MakerNotes tag.
 
 The HTML version of these tables also lists possible B<Values> for

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

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '4.71';
+$VERSION = '4.72';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -627,7 +627,8 @@ $VERSION = '4.71';
    '61182.51' => 'Canon RF 100-300mm F2.8L IS USM + RF2x', #42
    '61182.52' => 'Canon RF 10-20mm F4 L IS STM', #42
    '61182.53' => 'Canon RF 28mm F2.8 STM', #42
-    # we need the RFLensType values for the following...
+   '61182.54' => 'Canon RF 24-105mm F2.8 L IS USM Z', #42
+   '61182.55' => 'Canon RF-S 10-18mm F4.5-6.3 IS STM', #42
     65535 => 'n/a',
 );
 
@@ -4726,7 +4727,7 @@ my %ciMaxFocal = (
     FIRST_ENTRY => 0,
     PRIORITY => 0,
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
-    NOTES => 'CameraInfo tags for the EOS R6.',
+    NOTES => 'CameraInfo tags for the PowerShot G5 X Mark II.',
     0x0293 => {
         Name => 'ShutterCount',
         Format => 'int32u',
@@ -6950,8 +6951,13 @@ my %ciMaxFocal = (
             306 => 'Canon RF 100-300mm F2.8L IS USM', #42
             307 => 'Canon RF 100-300mm F2.8L IS USM + RF1.4x', #42
             308 => 'Canon RF 100-300mm F2.8L IS USM + RF2x', #42
+            309 => 'Canon RF 200-800mm F6.3-9 IS USM', #42
+            310 => 'Canon RF 200-800mm F6.3-9 IS USM + RF1.4x', #42
+            311 => 'Canon RF 200-800mm F6.3-9 IS USM + RF2x', #42
             312 => 'Canon RF 10-20mm F4 L IS STM', #42
             313 => 'Canon RF 28mm F2.8 STM', #42
+            314 => 'Canon RF 24-105mm F2.8 L IS USM Z', #42
+            315 => 'Canon RF-S 10-18mm F4.5-6.3 IS STM', #42
             # Note: add new RF lenses to %canonLensTypes with ID 61182
         },
     },
@@ -7468,7 +7474,7 @@ my %ciMaxFocal = (
         RawConv => '$$self{ColorDataVersion} = $val',
         PrintConv => {
             2 => '2 (1DmkIII)',
-            3 => '3 (40D)',
+            3 => '3 (40D)', # (doesn't record SpecularWhiteLevel, ref github#233)
             4 => '4 (1DSmkIII)',
             5 => '5 (450D/1000D)',
             6 => '6 (50D/5DmkII)',
@@ -7778,10 +7784,15 @@ my %ciMaxFocal = (
         SubDirectory => { TagTable => 'Image::ExifTool::Canon::ColorCalib2' }
     },
     0x108=> { #IB
-        Name => 'PerChannelBlackLevel',
+        Name => 'PerChannelBlackLevel', # (or perhaps AverageBlackLevel?, ref github#232)
         Condition => '$$self{ColorDataVersion} == -3',
         Format => 'int16s[4]',
     },
+    0x296 => { #github#232
+        Name => 'SpecularWhiteLevel',
+        Condition => '$$self{ColorDataVersion} == -3',
+        Format => 'int16u',
+    },
     0x14d=> { #IB
         Name => 'PerChannelBlackLevel',
         Condition => '$$self{ColorDataVersion} == -4',
@@ -8696,7 +8707,7 @@ my %ciMaxFocal = (
     },
 );
 
-# Auto Lighting Optimizater information (MakerNotes tag 0x4018) (ref PH)
+# Auto Lighting Optimizer information (MakerNotes tag 0x4018) (ref PH)
 %Image::ExifTool::Canon::LightingOpt = (
     %binaryDataAttrs,
     FORMAT => 'int32s',
@@ -8748,6 +8759,10 @@ my %ciMaxFocal = (
             2 => 'High',
         },
     },
+    11 => { #forum15445
+        Name => 'DualPixelRaw',
+        PrintConv => \%offOn,
+    },
 );
 
 # Lens information (MakerNotes tag 0x4019) (ref 20)

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

@@ -57,7 +57,7 @@ use vars qw($VERSION $AUTOLOAD @formatSize @formatName %formatNumber %intFormat
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::MakerNotes;
 
-$VERSION = '4.46';
+$VERSION = '4.48';
 
 sub ProcessExif($$$);
 sub WriteExif($$$);
@@ -1426,12 +1426,12 @@ my %opcodeInfo = (
         Count => 6,
         Priority => 0,
     },
-  # 0x220 - int32u: 0 (IFD0, Xaiomi Redmi models)
-  # 0x221 - int32u: 0 (IFD0, Xaiomi Redmi models)
-  # 0x222 - int32u: 0 (IFD0, Xaiomi Redmi models)
-  # 0x223 - int32u: 0 (IFD0, Xaiomi Redmi models)
-  # 0x224 - int32u: 0,1 (IFD0, Xaiomi Redmi models)
-  # 0x225 - string: "" (IFD0, Xaiomi Redmi models)
+  # 0x220 - int32u: 0 (IFD0, Xiaomi Redmi models)
+  # 0x221 - int32u: 0 (IFD0, Xiaomi Redmi models)
+  # 0x222 - int32u: 0 (IFD0, Xiaomi Redmi models)
+  # 0x223 - int32u: 0 (IFD0, Xiaomi Redmi models)
+  # 0x224 - int32u: 0,1 (IFD0, Xiaomi Redmi models)
+  # 0x225 - string: "" (IFD0, Xiaomi Redmi models)
     0x22f => 'StripRowCounts',
     0x2bc => {
         Name => 'ApplicationNotes', # (writable directory!)
@@ -1445,6 +1445,16 @@ my %opcodeInfo = (
             TagTable => 'Image::ExifTool::XMP::Main',
         },
     },
+    0x303 => { #https://learn.microsoft.com/en-us/windows/win32/gdiplus/-gdiplus-constant-property-item-descriptions
+        Name => 'RenderingIntent',
+        Format => 'int8u',
+        PrintConv => {
+            0 => 'Perceptual',
+            1 => 'Relative Colorimetric',
+            2 => 'Saturation',
+            3 => 'Absolute colorimetric',
+        },
+    },
     0x3e7 => 'USPTOMiscellaneous', #20
     0x1000 => { #5
         Name => 'RelatedImageFileFormat',
@@ -2523,8 +2533,18 @@ my %opcodeInfo = (
         Name => 'CameraElevationAngle',
         Writable => 'rational64s',
     },
-  # 0x9999 - string: camera settings (ExifIFD, Xiaomi POCO F1)
-  # 0x9aaa - int8u[2176]: ? (ExifIFD, Xiaomi POCO F1)
+    0x9999 => { # (ExifIFD, Xiaomi)
+        Name => 'XiaomiSettings', # (writable directory!)
+        Writable => 'string',
+        Protected => 1,
+        SubDirectory => { TagTable => 'Image::ExifTool::JSON::Main' },
+    },
+    0x9a00 => {
+        Name => 'XiaomiModel',
+        Writable => 'string',
+        Protected => 1,
+    },
+  # 0x9aaa - int8u[2048/2176]: ? (ExifIFD, Xiaomi POCO F1)
     0x9c9b => {
         Name => 'XPTitle',
         Format => 'undef',
@@ -2976,6 +2996,7 @@ my %opcodeInfo = (
     0xa480 => { Name => 'GDALMetadata',     Writable => 'string', WriteGroup => 'IFD0' }, #3
     0xa481 => { Name => 'GDALNoData',       Writable => 'string', WriteGroup => 'IFD0' }, #3
     0xa500 => { Name => 'Gamma',            Writable => 'rational64u' },
+  # 0xa661 - string: ? (ExifIFD, Xiaomi)
     0xafc0 => 'ExpandSoftware', #JD (Opanda)
     0xafc1 => 'ExpandLens', #JD (Opanda)
     0xafc2 => 'ExpandFilm', #JD (Opanda)

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

@@ -1468,12 +1468,15 @@ my %faceCategories = (
     },
     1 => { Name => 'RawImageNumber', Format => 'int32u' },
     # 3 - seen "0 100", "-300 100" and "300 100" for a sequence of 3 images
-    3 => { Name => 'MRAW_0x0003', Format => 'rational32s', Unknown => 1, Hidden => 1, PrintConv => 'sprintf("%+.2f",$val)' },
+    3 => { Name => 'ExposureCompensation', Format => 'rational32s', Unknown => 1, Hidden => 1, PrintConv => 'sprintf("%+.2f",$val)' },
     # 4 - (same value as 3 in all my samples)
-    4 => { Name => 'MRAW_0x0004', Format => 'rational32s', Unknown => 1, Hidden => 1, PrintConv => 'sprintf("%+.2f",$val)' },
+    4 => { Name => 'ExposureCompensation2', Format => 'rational32s', Unknown => 1, Hidden => 1, PrintConv => 'sprintf("%+.2f",$val)' },
     # 5 - seen "10 1600", "10 6800", "10 200", "10 35000" etc
+    5 => { Name => 'ExposureTime', Format => 'rational64u', PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)' },
     # 6 - seen "450 100", "400 100" (all images in RAF have same value)
+    6 => { Name => 'FNumber', Format => 'rational64u', PrintConv => 'Image::ExifTool::Exif::PrintFNumber($val)' },
     # 7 - seen 200, 125, 250, 2000
+    7 => 'ISO',
     # 8 - seen 0
 );
 

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

@@ -16,7 +16,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::QuickTime;
 
-$VERSION = '1.07';
+$VERSION = '1.08';
 
 sub ProcessGoPro($$$);
 sub ProcessString($$$);
@@ -401,6 +401,21 @@ my %addUnits = (
     ORIO => 'OutputOrientation',
     UNIF => 'InputUniformity',
     SROT => 'SensorReadoutTime',
+    # the following are ref https://exiftool.org/forum/index.php?topic=15517.0
+    CORI => { Name => 'CameraOrientation', Binary => 1, Notes => 'quaternions 0-1' },
+    AALP => { Name => 'AudioLevel', Notes => 'dBFS' },
+    GPSA => 'GPSAltitudeSystem', # (eg. 'MSLV')
+    GRAV => { Name => 'GravityVector', Binary => 1 },
+    HUES => 'PrediminantHue',
+    IORI => { Name => 'ImageOrientation', Binary => 1, Notes => 'quaternions 0-1' },
+    # LRVO - ? Part of LRV Frame Skip
+    # LRVS - ? Part of LRV Frame Skip
+    # LSKP - LRV Frame Skip
+    # MSKP - MRV Frame Skip
+    MWET => 'MicrophoneWet',
+    SCEN => 'SceneClassification', # (SNOW,URBA,INDO,WATR,VEGE,BEAC + probability)
+    WNDM => 'WindProcessing',
+    YAVG => 'LumaAverage',
 );
 
 # GoPro GPS5 tags (ref 2) (Hero5,Hero6)

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

@@ -18,7 +18,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.59';
+$VERSION = '1.60';
 
 sub ProcessID3v2($$$);
 sub ProcessPrivate($$$);
@@ -825,8 +825,8 @@ my %id3v2_common = (
 
 # lookup to check for existence of tags in other ID3 versions
 my %otherTable = (
-    \%Image::ExifTool::ID3::v2_4 => \%Image::ExifTool::ID3::v2_3,
-    \%Image::ExifTool::ID3::v2_3 => \%Image::ExifTool::ID3::v2_4,
+    \%Image::ExifTool::ID3::v2_4 => 'Image::ExifTool::ID3::v2_3',
+    \%Image::ExifTool::ID3::v2_3 => 'Image::ExifTool::ID3::v2_4',
 );
 
 # ID3 Composite tags
@@ -1098,6 +1098,7 @@ sub ProcessID3v2($$$)
     my $vers    = $$dirInfo{Version};
     my $verbose = $et->Options('Verbose');
     my $len;    # frame data length
+    my $otherTable;
 
     $et->VerboseDir($tagTablePtr->{GROUPS}->{1}, 0, $size);
     $et->VerboseDump($dataPt, Len => $size, Start => $offset);
@@ -1144,7 +1145,9 @@ sub ProcessID3v2($$$)
         last if $offset + $len > $size;
         my $tagInfo = $et->GetTagInfo($tagTablePtr, $id);
         unless ($tagInfo) {
-            my $otherTable = $otherTable{$tagTablePtr};
+            if (not $otherTable and $otherTable{$tagTablePtr}) {
+                $otherTable = GetTagTable($otherTable{$tagTablePtr});
+            }
             $tagInfo = $et->GetTagInfo($otherTable, $id) if $otherTable;
             if ($tagInfo) {
                 $et->WarnOnce("Frame '${id}' is not valid for this ID3 version", 1);