exiftool_vendored 13.27.0 → 13.30.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: fb0a184eb27a7f2bd365b24473d079bf59c21bfb5d18e4322438164364218151
-  data.tar.gz: 39f8672fe231f2d0588920382a7cc7b5d36199a03c7a86f43d0a0161ec5ba2f8
+  metadata.gz: 407bb495700282a96cd7754a1e9ce3a6a7dcf4813d87e827aaee71072c30c3db
+  data.tar.gz: 062ad0aa55b80eec46031dbc893626cd378be12829be2cd70752170f8084e52a
 SHA512:
-  metadata.gz: 4c618366df0c65fff73241fe27a143eacb46a64280866edc3ba23f1b7fc8a5765d605029afd58fce678e080bdbd951989ab460336623afebee96ed1e0c61d891
-  data.tar.gz: 93d27263a8c922cea0bef3eec89779517dd040539cf9fae2e3712823fe5d48148ca86663ed469300b3677c1a99a3c9ccfc7564bbdd57150894682424db23621f
+  metadata.gz: aee8809f7201113e2d5d4e0af3818fc9a2d6336b6300adc85406d55bc18af20e5e6944b6370caff28e4d472a80d8d35f4e182782bfb96b96c52f73daeb8c6438
+  data.tar.gz: 8926eb6ea49420269786c0addbdc87e4c0fe3aa19e113369e7591bf59bed98308494de80a797c8e9b3c6941d580ade0e210680960ebc2513c13d67d446e7cd33

data/bin/Changes

@@ -4,9 +4,60 @@ ExifTool Version History
 
 RSS feed: https://exiftool.org/rss.xml
 
-Note: The most recent production release is Version 13.25. (Other versions are
+Note: The most recent production release is Version 13.30. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+May 22, 2025 - Version 13.30 (production release)
+
+  - Added a new Canon RF lens (thanks Norbert Wasser)
+  - Added some new Olympus ArtFilter values
+  - Added support for reading timed GPS from Transcend Drive Body Camera 70 MP4
+    videos
+  - Added a new FujiFilm AdvancedFilter value (thanks Greybeard)
+  - Decode maker notes from Sigma BF images
+  - Decode a few more Pentax AF-related tags (thanks Karsten Gieselmann)
+  - Extract PreviewImage and its metadata from Sigma BF MOV videos
+  - Allow multiple config files to be specified on the command line (but leave
+    undocumented for now because the config files currently included in the full
+    ExifTool package aren't compatible with this feature)
+  - Removed warning introduced in version 12.60 for an undefined tag in a -if
+    condition, but leave the 12.60 change that sets these tags to an empty
+    string when -m is used
+  - Patched LensID conversion to better handle a manual lens on a Sony ILCE-7M2
+  - Patched to avoid runtime warning when using -fast option and reading and
+    HEIC file via a pipe (but you will still get a seek error)
+  - Fixed some tag format types in the config_files/pix4d.config file
+  - Fixed possible "uninitialized value" warning when reading some types of Ligo
+    timed GPS
+
+Apr. 27, 2025 - Version 13.29
+
+  - Changed default -geotime argument to use SubSecDateTimeOriginal if available
+    instead of DateTimeOriginal, instead of applying both (as was done since
+    ExifTool 13.18).  This is more efficient, and avoids an unnecessary warning
+  - Properly return warnings from inverse value conversions when copying a tag
+    using -tagsFromFile with a tag name string
+  - Fixed issue where RW2 images from the Panasonic DC-S1RM2 could be corrupted
+    when writing
+
+Apr. 25, 2025 - Version 13.28
+
+  - Added print conversion for Pentax AFPointValues
+  - Added another Pentax PictureMode value
+  - Decode timed GPS from GKU D900 dashcam videos
+  - Decode timed telemetry data from newer ARCore videos
+  - Decode Panasonic AFAreaSize (thanks andrewj)
+  - Decode ShutterCount for Canon EOS R8 and R50 (github #325)
+  - Decode ThumbnailTIFF from some Insta360 videos
+  - Decode AROT:HDRGainCurveSize from APP10
+  - Updated to the 2025 MPF specification
+  - Renamed K-3III AFPoints to AFPointsSelected and changed decoding
+  - Fixed bug introduced in 13.23 that could cause an incorrect parsing of XMP
+    attributes containing an equals sign
+  - Fixed issue reading timed GPS from some Insta360 videos, and issue where
+    writing these videos would fail
+  - Fixed exif2xmp.args and xmp2exif.args to properly handle EXIF:ImageUniqueID
+
 Apr. 8, 2025 - Version 13.27
 
   - Decode AF points for the Pentax K-3III

data/bin/META.json

@@ -50,5 +50,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "13.27"
+   "version" : "13.30"
 }

data/bin/META.yml

@@ -31,4 +31,4 @@ recommends:
   Time::HiRes: '0'
 requires:
   perl: '5.004'
-version: '13.27'
+version: '13.30'

data/bin/README

@@ -109,8 +109,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-13.27.tar.gz | tar -xf -
-  cd Image-ExifTool-13.27
+  gzip -dc Image-ExifTool-13.30.tar.gz | tar -xf -
+  cd Image-ExifTool-13.30
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 

data/bin/arg_files/exif2xmp.args

@@ -15,6 +15,7 @@
 #               2022/03/31 - PH IPTC Photometadata Mapping Guidelines 2202.1 update
 #               2024/10/24 - PH Additions for the 2024 EXIF for XMP spec
 #               2025/01/16 - PH Copy Composite SubSec tags to XMP-exif
+#               2025-04-22 - PH Fixed DigitalImageGUID source tag
 #
 # References:   http://www.metadataworkinggroup.org/specs/
 #               https://iptc.org/std/photometadata/documentation/mappingguidelines/
@@ -43,7 +44,7 @@
 -XMP-xmp:CreatorTool < EXIF:Software
 -XMP-dc:Rights < EXIF:Copyright
 -XMP-dc:Creator < EXIF:Artist
--XMP-iptcExt:DigitalImageGUID < EXIF:DigImageGUID
+-XMP-iptcExt:DigitalImageGUID < EXIF:ImageUniqueID
 # XMP flash information is translated by the Composite Flash tag
 -Composite:Flash < EXIF:Flash
 # overwrite GPS tags which have different formats in XMP

data/bin/arg_files/xmp2exif.args

@@ -19,6 +19,7 @@
 #                               XMP-exif:DateTimeOriginal
 #               2024/10/24 - PH Additions for the 2024 EXIF for XMP spec
 #               2025/01/16 - PH Write Composite:SubSecCreateDate from XMP-exif
+#               2025-04-22 - PH Fixed DigitalImageGUID translation
 #
 # References:   http://www.metadataworkinggroup.org/specs/
 #               https://iptc.org/std/photometadata/documentation/mappingguidelines/
@@ -51,7 +52,7 @@
 -EXIF:Copyright < XMP-dc:Rights
 -EXIF:Artist < XMP-plus:ImageCreatorName
 -EXIF:Artist < XMP-dc:Creator
--EXIF:DigImageGUID < XMP-iptcExt:DigitalImageGUID
+-EXIF:ImageUniqueID < XMP-iptcExt:DigitalImageGUID
 # XMP flash information is translated by the Composite Flash tag
 -EXIF:Flash < Composite:Flash
 # generate GPS tags which have been combined into other XMP tags

data/bin/config_files/pix4d.config

@@ -8,10 +8,11 @@
 #
 # Requires:     ExifTool version 7.00 or later
 #
-# References:   1) https://support.pix4d.com/hc/en-us/articles/360016450032-Specifications-of-xmpcamera-tags
+# References:   1) https://support.pix4d.com/hc/en-us/articles/360016450032
 #
 # Revisions:    2017/12/08 - P. Harvey Created
 #               2020/04/02 - PH Updated to current specification
+#               2025/05/01 - PH Changed some Writable types to match the spec
 #------------------------------------------------------------------------------
 
 %Image::ExifTool::UserDefined = (
@@ -40,8 +41,8 @@
     PerspectiveFocalLength => { Writable => 'real' },
     PerspectiveDistortion  => { },
     IMULinearVelocity => { },
-    GPSXYAccuracy   => { Writable => 'real' },
-    GPSZAccuracy    => { Writable => 'real' },
+    GPSXYAccuracy   => { Writable => 'rational' },
+    GPSZAccuracy    => { Writable => 'rational' },
     FlightUUID      => { },
     CentralWaveLength => { },
     BandName        => { List => 'Seq' },
@@ -77,11 +78,11 @@
     Albedo                  => { List => 'Seq' },
     ReflectArea             => { List => 'Seq' },
     CalibrationPicture      => { Writable => 'integer' },
-    GyroRate                => { Writable => 'real' },
-    IMUPitchAccuracy        => { Writable => 'real' },
-    IMURollAccuracy         => { Writable => 'real' },
-    IMUYawAccuracy          => { Writable => 'real' },
-    NominalCameraDistance   => { Writable => 'real' },
+    GyroRate                => { Writable => 'rational' },
+    IMUPitchAccuracy        => { Writable => 'rational' },
+    IMURollAccuracy         => { Writable => 'rational' },
+    IMUYawAccuracy          => { Writable => 'rational' },
+    NominalCameraDistance   => { Writable => 'rational' },
     AboveGroundAltitude     => { Writable => 'real' },
     SunSensorYaw            => { Writable => 'real' },
     SunSensorPitch          => { Writable => 'real' },

data/bin/exiftool

@@ -11,7 +11,7 @@ use strict;
 use warnings;
 require 5.004;
 
-my $version = '13.27';
+my $version = '13.30';
 
 $^W = 1;    # enable global warnings
 
@@ -35,9 +35,9 @@ BEGIN {
     # add lib directory at start of include path
     unshift @INC, $incDir;
     # load or disable config file if specified
-    if (@ARGV and lc($ARGV[0]) eq '-config') {
+    while (@ARGV and lc($ARGV[0]) eq '-config') {
         shift;
-        $Image::ExifTool::configFile = shift;
+        push @Image::ExifTool::configFiles, shift;
     }
 }
 use Image::ExifTool qw{:Public};
@@ -1396,8 +1396,7 @@ for (;;) {
                 # add geotag/geosync/geolocate commands first
                 unshift @newValues, pop @newValues;
                 if (lc $2 eq 'geotag' and (not defined $addGeotime or $addGeotime) and length $val) {
-                    $addGeotime = [ ($1 || '') . 'Geotime<DateTimeOriginal#',
-                                    ($1 || '') . 'Geotime<SubSecDateTimeOriginal#' ];
+                    $addGeotime = ($1 || '') . q[Geotime<${DateTimeOriginal#;$_=$self->GetValue('SubSecDateTimeOriginal','ValueConv') || $_}];
                 }
             }
         }
@@ -1696,9 +1695,8 @@ if (@newValues) {
     # assume -geotime value if -geotag specified without -geotime
     if ($addGeotime) {
         AddSetTagsFile($setTagsFile = '@') unless $setTagsFile and $setTagsFile eq '@';
-        push @{$setTags{$setTagsFile}}, @$addGeotime;
-        my @a = map qq("-$_"), @$addGeotime;
-        $verbose and print $vout 'Arguments ',join(' and ', @a)," are assumed\n";
+        push @{$setTags{$setTagsFile}}, $addGeotime;
+        $verbose and print $vout qq(Using default "-$addGeotime"\n);
     }
     my %setTagsIndex;
     # add/delete option lookup
@@ -6054,7 +6052,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 13.27 --
+    -- Generated by ExifTool 13.30 --
     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
@@ -6937,12 +6935,14 @@ Geotag images from the specified GPS track log file.  Using the B<-geotag>
 option is equivalent to writing a value to the C<Geotag> tag.  The GPS
 position is interpolated from the track at a time specified by the value
 written to the C<Geotime> tag.  If C<Geotime> is not specified, the value is
-copied from C<DateTimeOriginal#> (the C<#> is added to copy the unformatted
-value, avoiding potential conflicts with the B<-d> option).  For example,
-the following two commands are equivalent:
+copied from C<SubSecDateTimeOriginal#> if it exists, otherwise
+C<DateTimeOriginal#> (the C<#> is added to copy the unformatted value,
+avoiding potential conflicts with the B<-d> option).  For example, the
+following two commands are equivalent if SubSecDateTimeOriginal exists in
+the file:
 
     exiftool -geotag trk.log image.jpg
-    exiftool -geotag trk.log "-Geotime<DateTimeOriginal#" image.jpg
+    exiftool -geotag trk.log "-Geotime<SubSecDateTimeOriginal#" image.jpg
 
 If the C<Geotime> value does not contain a time zone then the local system
 timezone is assumed.  Writing C<Geotime> causes the following tags to be
@@ -7150,6 +7150,9 @@ 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.
 
+The B<-fast> option, if used, also applies to processing of the alternate
+files.
+
 =item B<-list_dir>
 
 List directories themselves instead of their contents.  This option

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

@@ -995,7 +995,7 @@ TagID:  foreach $tagID (@keys) {
                     if ($format and $format =~ /\$val\{/ and
                         ($$tagInfo{Writable} or not defined $$tagInfo{Writable}))
                     {
-                        warn "Warning: \$var{} used in Format of writable tag - $short $name\n"
+                        warn "Warning: \$val{} used in Format of writable tag - $short $name\n"
                     }
                 }
                 if ($$tagInfo{Hidden}) {

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

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '4.89';
+$VERSION = '4.91';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -638,6 +638,7 @@ $VERSION = '4.89';
    '61182.60' => 'Canon RF 16-28mm F2.8 IS STM', #42
    '61182.61' => 'Canon RF 50mm F1.4 L VCM', #42
    '61182.62' => 'Canon RF 24mm F1.4 L VCM', #42
+   '61182.63' => 'Canon RF 20mm F1.4 L VCM', #42
     65535 => 'n/a',
 );
 
@@ -1410,7 +1411,7 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
         },
         {
             Name => 'CanonCameraInfoR6m2',
-            Condition => '$$self{Model} =~ /\bEOS R6m2$/',
+            Condition => '$$self{Model} =~ /\bEOS (R6m2|R8|R50)$/',
             SubDirectory => { TagTable => 'Image::ExifTool::Canon::CameraInfoR6m2' },
         },
         {
@@ -7033,6 +7034,7 @@ my %ciMaxFocal = (
             323 => 'Canon RF 16-28mm F2.8 IS STM', #42
             325 => 'Canon RF 50mm F1.4 L VCM', #42
             326 => 'Canon RF 24mm F1.4 L VCM', #42
+            327 => 'Canon RF 20mm F1.4 L VCM', #42
             # Note: add new RF lenses to %canonLensTypes with ID 61182
         },
     },

data/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.56';
+$VERSION = '4.57';
 
 sub ProcessExif($$$);
 sub WriteExif($$$);
@@ -5804,6 +5804,8 @@ sub PrintLensID($$@)
     }
     if ($$et{Make} eq 'SONY') {
         if ($lensType eq 65535) {
+            # patch for manual lens (forum17379)
+            return $$printConv{$lensType} if $$printConv{$lensType} and not $focalLength and $maxAperture == 1;
             # handle Sony E-type lenses when LensType2 isn't valid (NEX/ILCE models only)
             if ($$et{Model} =~ /NEX|ILCE/) {
                 unless (%sonyEtype) {

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

@@ -31,7 +31,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.96';
+$VERSION = '1.97';
 
 sub ProcessFujiDir($$$);
 sub ProcessFaceRec($$$);
@@ -628,6 +628,7 @@ my %faceCategories = (
             0x60006 => 'Partial Color Purple',
             0x70000 => 'Soft Focus',
             0x90000 => 'Low Key',
+            0x100000 => 'Light Leak', #forum17392
         },
     },
     0x1210 => { #2

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

@@ -279,7 +279,7 @@ under the same terms as Perl itself.
 
 =over 4
 
-=item L<GIMP source code>
+=item L<https://developer.gimp.org/core/setup/git/>
 
 =item L<http://svn.gnome.org/viewvc/gimp/trunk/devel-docs/xcf.txt?view=markup>
 

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

@@ -260,15 +260,9 @@ sub ProcessJPEG_HDR($$$);
         Condition => '$$valPt =~ /^UNICODE\0/',
         Notes => 'PhotoStudio Unicode comment',
       }, {
-        Name => 'HDRGainCurve', #PH (NC)
+        Name => 'HDRGainInfo', #PH (NC)
         Condition => '$$valPt =~ /^AROT\0\0.{4}/s',
-        Groups => { 1 => 'APP10', 2 => 'Image' },
-        ValueConv => q{
-            my $n = unpack('x6N', $val);
-            return '<truncated AROT data>' if length($val)-6 < $n * 4;
-            my $str = join ' ', unpack("x10V$n", $val);
-            return \$str;
-        },
+        SubDirectory => { TagTable => 'Image::ExifTool::JPEG::HDRGainInfo' },
     }],
     APP11 => [{
         Name => 'JPEG-HDR',
@@ -347,6 +341,9 @@ sub ProcessJPEG_HDR($$$);
             $$valPt =~ /~\0\x04\0zmie~\0\0\x0a.{8}[\x10\x18]\x08$/s
         },
         SubDirectory => { TagTable => 'Image::ExifTool::MIE::Main' },
+      }, {
+        Name => 'MPF',
+        SubDirectory => { TagTable => 'Image::ExifTool::MPF::Main' },
       }, {
         Name => 'Samsung',
         Condition => '$$valPt =~ /QDIOBS$/',
@@ -382,6 +379,21 @@ sub ProcessJPEG_HDR($$$);
     }],
 );
 
+# HDR gain information (ref PH)
+%Image::ExifTool::JPEG::HDRGainInfo = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 0 => 'APP10', 1 => 'AROT', 2 => 'Image' },
+    6 => {
+        Name => 'HDRGainCurveSize',
+        Format => 'int32u',
+    },
+    10 => {
+        Name => 'HDRGainCurve', # (NC)
+        Format => 'int32uRev[$val{6}]',
+        Binary => 1,
+    },
+);
+
 # JPS APP3 segment (ref http://paulbourke.net/stereographics/stereoimage/)
 %Image::ExifTool::JPEG::JPS = (
     PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,

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

@@ -11,7 +11,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool;
 
-$VERSION = '1.02';
+$VERSION = '1.05';
 
 sub ProcessLigoGPS($$$;$);
 sub ProcessLigoJSON($$$);
@@ -264,6 +264,20 @@ sub ParseLigoGPS($$$;$)
     delete $$et{SET_GROUP1};
 }
 
+#------------------------------------------------------------------------------
+# Process GKU dashcam trailer containing JSON-format LigoGPS
+# Inputs: 0) ExifTool ref, 1) dirInfo ref, 2) tag table ref
+# Returns: 1 on success
+sub ProcessGKU($$$;$)
+{
+    my ($et, $dirInfo, $tagTbl) = @_;
+    my $dataPt = $$dirInfo{DataPt};
+    my $pos = unpack('V', $$dataPt);
+    return 0 if $pos + 13 > length $$dataPt or substr($$dataPt, $pos, 13) ne 'LIGOGPSINFO {';
+    pos($$dataPt) = $pos;
+    return ProcessLigoJSON($et, $dirInfo, $tagTbl);
+}
+
 #------------------------------------------------------------------------------
 # Process LIGOGPSINFO data (non-JSON format)
 # Inputs: 0) ExifTool object ref, 1) dirInfo ref, 2) tag table ref
@@ -315,7 +329,7 @@ sub ProcessLigoJSON($$$)
     my $dataPt = $$dirInfo{DataPt};
     my $dirLen = $$dirInfo{DirLen};
     require Image::ExifTool::Import;
-    $et->VerboseDir('LIGO_JSON', undef, length($$dataPt));
+    $et->VerboseDir('LIGO_JSON', undef, length($$dataPt) - (pos($$dataPt) || 0));
     $$et{SET_GROUP1} = 'LIGO';
     while ($$dataPt =~ /LIGOGPSINFO (\{.*?\})/g) {
         my $json = $1;

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

@@ -15,7 +15,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.15';
+$VERSION = '1.16';
 
 sub ProcessMPImageList($$$);
 
@@ -127,11 +127,15 @@ sub ProcessMPImageList($$$);
             0x000000 => 'Undefined',
             0x010001 => 'Large Thumbnail (VGA equivalent)',
             0x010002 => 'Large Thumbnail (full HD equivalent)',
+            0x010003 => 'Large Thumbnail (4K equivalent)',
+            0x010004 => 'Large Thumbnail (8K equivalent)',
+            0x010005 => 'Large Thumbnail (16K equivalent)',
             0x020001 => 'Multi-frame Panorama',
             0x020002 => 'Multi-frame Disparity',
             0x020003 => 'Multi-angle',
             0x030000 => 'Baseline MP Primary Image',
             0x040000 => 'Original Preservation Image', # (Exif 3.0)
+            0x050000 => 'Gain Map Image',
         },
     },
     4 => {

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

@@ -21,7 +21,7 @@ sub ProcessKodakPatch($$$);
 sub WriteUnknownOrPreview($$$);
 sub FixLeicaBase($$;$);
 
-$VERSION = '2.16';
+$VERSION = '2.17';
 
 my $debug;          # set to 1 to enable debugging code
 
@@ -991,9 +991,9 @@ my $debug;          # set to 1 to enable debugging code
     {
         Name => 'MakerNoteSigma',
         Condition => q{
-            return undef unless $$self{Make}=~/^(SIGMA|FOVEON)/;
+            return undef unless $$self{Make}=~/^(SIGMA|FOVEON)/i;
             # save version number in "MakerNoteSigmaVer" member variable
-            $$self{MakerNoteSigmaVer} = $$valPt=~/^SIGMA\0\0\0\0(.)/ ? ord($1) : -1;
+            $$self{MakerNoteSigmaVer} = $$valPt=~/^SIGMA\0\0\0.(.)/s ? ord($1) : -1;
             return 1;
         },
         SubDirectory => {

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

@@ -40,7 +40,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::APP12;
 
-$VERSION = '2.85';
+$VERSION = '2.86';
 
 sub PrintLensInfo($$$);
 
@@ -113,7 +113,7 @@ my %olympusLensTypes = (
     '0 34 00' => 'Olympus Zuiko Digital ED 9-18mm F4.0-5.6', #7
     '0 34 10' => 'Olympus M.Zuiko Digital ED 12-45mm F4.0 Pro', #IB
     '0 35 00' => 'Olympus Zuiko Digital 14-54mm F2.8-3.5 II', #PH
-    '0 35 10' => 'Olympus M.Zuiko 100-400mm F5.0-6.3', #IB
+    '0 35 10' => 'Olympus M.Zuiko 100-400mm F5.0-6.3', #IB (also OM System M.Zuiko Digital ED 100-400mm F5.0-6.3 IS II", forum2833)
     '0 36 10' => 'Olympus M.Zuiko Digital ED 8-25mm F4 Pro', #IB
     '0 37 10' => 'Olympus M.Zuiko Digital ED 40-150mm F4.0 Pro', #forum3833
     '0 39 10' => 'Olympus M.Zuiko Digital ED 90mm F3.5 Macro IS Pro', #forum3833
@@ -550,6 +550,7 @@ my %filters = (
     4 => 'Light Tone',
     5 => 'Pin Hole', # (SZ-10 magic filter 2,SZ-31MR,E-PL3)
     6 => 'Grainy Film',
+    8 => 'Underwater', #forum17348
     9 => 'Diorama',
     10 => 'Cross Process',
     12 => 'Fish Eye', # (SZ-10 magic filter 3)
@@ -581,6 +582,9 @@ my %filters = (
     39 => 'Partial Color', #forum6269
     40 => 'Partial Color II', #forum6269
     41 => 'Partial Color III', #forum6269
+    42 => 'Bleach Bypass', #forum17348
+    43 => 'Bleach Bypass II', #forum17348
+    44 => 'Instant Film', #forum17348
 );
 
 my %toneLevelType = (

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

@@ -37,7 +37,7 @@ use vars qw($VERSION %leicaLensTypes);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '2.24';
+$VERSION = '2.25';
 
 sub ProcessLeicaLEIC($$$);
 sub WhiteBalanceConv($;$$);
@@ -1436,6 +1436,14 @@ my %shootingMode = (
         Name => 'NoiseReductionStrength',
         Writable => 'rational64s',
     },
+    0xde => { #forum17299
+        Name => 'AFAreaSize',
+        Writable => 'rational64u',
+        Notes => 'relative to size of image',
+        Count => 2,
+        PrintConv => '$val =~ /^4194303.999/ ? "n/a" : $val',
+        PrintConvInv => '$val eq "n/a" ? "4194303.999 4194303.999" : $val',
+    },
     0xe4 => { #IB
         Name => 'LensTypeModel',
         Condition => '$format eq "int16u"',

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

@@ -15,7 +15,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.02';
+$VERSION = '1.03';
 
 sub Process_mett($$$);
 
@@ -61,10 +61,18 @@ sub Process_mett($$$);
         Name => 'ARCoreAccel',
         SubDirectory => { TagTable => 'Image::ExifTool::Parrot::ARCoreAccel', ByteOrder => 'II' },
     },
+    'application/arcore-accel-0' => {
+        Name => 'ARCoreAccel0',
+        SubDirectory => { TagTable => 'Image::ExifTool::Parrot::ARCoreAccel0', ByteOrder => 'II' },
+    },
     'application/arcore-gyro' => {
         Name => 'ARCoreGyro',
         SubDirectory => { TagTable => 'Image::ExifTool::Parrot::ARCoreGyro', ByteOrder => 'II' },
     },
+    'application/arcore-gyro-0' => {
+        Name => 'ARCoreGyro0',
+        SubDirectory => { TagTable => 'Image::ExifTool::Parrot::ARCoreGyro0', ByteOrder => 'II' },
+    },
     'application/arcore-video-0' => {
         Name => 'ARCoreVideo',
         SubDirectory => { TagTable => 'Image::ExifTool::Parrot::ARCoreVideo', ByteOrder => 'II' },
@@ -684,11 +692,24 @@ sub Process_mett($$$);
     # 33: increments slowly (about once every 56 samples or so)
 );
 
+# ARCore Accel data (ref PH)
+%Image::ExifTool::Parrot::ARCoreAccel0 = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 2 => 'Location' },
+    NOTES => 'ARCore accelerometer data.',
+    FIRST_ENTRY => 0,
+    9  => { # (NC)
+        Name => 'Accelerometer',
+        Format => 'undef[14]',
+        RawConv => 'GetFloat(\$val,0) . " " . GetFloat(\$val,5) . " " . GetFloat(\$val,10)',
+    },
+);
+
 # ARCore Gyro data (ref PH)
 %Image::ExifTool::Parrot::ARCoreGyro = (
     PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
     GROUPS => { 2 => 'Location' },
-    NOTES => 'ARCore accelerometer data.',
+    NOTES => 'ARCore gyro data.',
     FIRST_ENTRY => 0,
     # 00-04: always 10 34 16 3 29
     4  => {
@@ -704,6 +725,19 @@ sub Process_mett($$$);
     },
 );
 
+# ARCore Gyro data (ref PH)
+%Image::ExifTool::Parrot::ARCoreGyro0 = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 2 => 'Location' },
+    NOTES => 'ARCore gyro data.',
+    FIRST_ENTRY => 0,
+    9  => { # (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,
@@ -766,11 +800,24 @@ sub Process_mett($$$)
     $et->VerboseDir('Parrot mett', undef, $dirEnd);
 
     if ($$tagTbl{$metaType}) {
-        $et->HandleTag($tagTbl, $metaType, undef,
-            DataPt  => $dataPt,
-            DataPos => $dataPos,
-            Base    => $$dirInfo{Base},
-        );
+        # loop through ARCore records
+        while ($pos < $dirEnd - 2) {
+            last unless substr($$dataPt,$pos,1) eq "\x0a";
+            my $len = ord(substr($$dataPt, $pos+1, 1));
+            if ($pos + $len + 2 > $dirEnd) {
+                $et->Warn("Unexpected length for $metaType record", 1);
+                last;
+            }
+            $len or $len = $dirEnd - $pos - 2;  # use entire record if length is 0
+            $et->HandleTag($tagTbl, $metaType, undef,
+                DataPt   => $dataPt,
+                DataPos  => $dataPos,
+                DirStart => $pos,
+                DirLen   => $len,
+                Base     => $$dirInfo{Base},
+            );
+            $pos += $len + 2;
+        }
         return 1;
     }
     while ($pos + 4 < $dirEnd) {