exiftool-vendored.pl 13.25.1 → 13.29.0

package/README.md

@@ -6,7 +6,8 @@ files are omitted, as they almost double the size of the package and more than
 triple the number of files in the package.
 
 [![npm version](https://img.shields.io/npm/v/exiftool-vendored.pl.svg)](https://www.npmjs.com/package/exiftool-vendored.pl)
-[![CI](https://github.com/photostructure/exiftool-vendored.pl/workflows/Node.js%20CI/badge.svg?branch=main)](https://github.com/photostructure/exiftool-vendored.pl/actions?query=workflow%3A%22Node.js+CI%22)
+[![Check Updates](https://github.com/photostructure/exiftool-vendored.pl/workflows/Check%20for%20ExifTool%20Updates/badge.svg)](https://github.com/photostructure/exiftool-vendored.pl/actions/workflows/check-updates.yml)
+[![Release](https://github.com/photostructure/exiftool-vendored.pl/workflows/Release/badge.svg)](https://github.com/photostructure/exiftool-vendored.pl/actions/workflows/release.yml)
 
 ## Usage
 
@@ -16,4 +17,11 @@ performant, type-safe access to this binary.**
 ## Versioning
 
 This package exposes the version of ExifTool it vendors, and adds a patch
-number, if necessary, to follow SemVer.
+number, if necessary, to follow SemVer.
+
+### Version Update Process
+
+1. The `check-updates` workflow automatically detects new ExifTool versions and creates PRs
+2. Update PRs use a `-pre` suffix during development (e.g., `13.26.0-pre`)
+3. The `release` workflow removes the `-pre` suffix when publishing to npm
+4. Final npm package versions match the vendored ExifTool version exactly

package/bin/Changes

@@ -7,10 +7,63 @@ RSS feed: https://exiftool.org/rss.xml
 Note: The most recent production release is Version 13.25. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+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
+  - Decode timed GPS from a variant of the Rove R2-4K dashcam
+  - Properly decode SensorTemperature for Pentax K3-III
+  - Patched PCAP test to avoid potential failure
+  - Patched to avoid potential "not a HASH reference" error when writing MOV/MP4
+    videos
+  - Fixed issue which could result in "uninitialized value" errors when reading
+    one type of timed GPS from MP4 videos
+  - Fixed problem writing MotionPhotoVideo in MP4 files
+
+Mar. 31, 2025 - Version 13.26
+
+  - Added a new Olympus CameraType (thanks Herb)
+  - Added a new PentaxModelID (github #322)
+  - Added a new Nikon LensID
+  - Improved Duration calculation for some WAV files
+  - Changed a PCAP tag name and fixed typos in a few others (thanks blue-j)
+  - Patched to avoid VignettingCorr warning for images from some Canon cameras
+  - Patched to avoid some unnecessary duplicate tag warnings when -validate used
+    with HEIC images
+  - Fixed issue with XMP-xmpMM:Pantry items not exhibiting proper List-type
+    behaviour
+
 Mar. 11, 2025 - Version 13.25 (production release)
 
   - IMPORTANT: Fixed issue which could corrupt HEIC images from newer iPhones
-    when writing QuickTime:Rotation
+    under certain conditions when writing QuickTime:Rotation
   - Decode more PLIST information from HEIC images
   - Updated Geolocation databases from current geonames.org files
   - Updated DarwinCore for the 2023 specification (thanks Herb)
@@ -25,7 +78,7 @@ Mar. 7, 2025 - Version 13.24
 
 Mar. 7, 2025 - Version 13.23
 
-  - Added read support for CAP, PCAP and PACPNG files (github #318)
+  - Added read support for CAP, PCAP and PCAPNG files (github #318)
   - Added a number of new Sony LensType2 values (thanks Jos Roost)
   - Added the 2 new GPSAltitudeRef values defined by EXIF 3.0
   - Decode APP4 "Qualcomm Dual Camera Attributes" metadata
@@ -57,7 +110,7 @@ Feb. 20, 2025 - Version 13.21
   - Patched issue that could result in runtime warning for some video files
   - Fixed a bug with the new -plot option that could generate a compiler error
 
-Feb. 20, 2025 - Version 13.20
+Feb. 20, 2025 - Version 13.20 - "SVG Plot"
 
   - Added new -plot option for generating SVG-format plots from tag values
   - Added a new Olympus CameraType

package/bin/META.json

@@ -4,7 +4,7 @@
       "Phil Harvey (philharvey66 at gmail.com)"
    ],
    "dynamic_config" : 0,
-   "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.143240, CPAN::Meta::Converter version 2.133380",
+   "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.143240, CPAN::Meta::Converter version 2.133380, CPAN::Meta::Converter version 2.150010",
    "license" : [
       "perl_5"
    ],
@@ -50,5 +50,6 @@
       }
    },
    "release_status" : "stable",
-   "version" : "13.25"
+   "version" : "13.29",
+   "x_serialization_backend" : "JSON::PP version 4.06"
 }

package/bin/META.yml

@@ -7,7 +7,7 @@ build_requires:
 configure_requires:
   ExtUtils::MakeMaker: '0'
 dynamic_config: 0
-generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.143240, CPAN::Meta::Converter version 2.133380'
+generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.143240, CPAN::Meta::Converter version 2.133380, CPAN::Meta::Converter version 2.150010'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -31,4 +31,5 @@ recommends:
   Time::HiRes: '0'
 requires:
   perl: '5.004'
-version: '13.25'
+version: '13.29'
+x_serialization_backend: 'JSON::PP version 4.06'

package/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.25.tar.gz | tar -xf -
-  cd Image-ExifTool-13.25
+  gzip -dc Image-ExifTool-13.29.tar.gz | tar -xf -
+  cd Image-ExifTool-13.29
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 
@@ -170,7 +170,7 @@ COPYRIGHT AND LICENSE
 Copyright 2003-2025, Phil Harvey
 
 This is free software; you can redistribute it and/or modify it under the
-same terms as Perl itself.
+same terms as Perl itself (either the Perl Artistic License or GPL).
 
 DISTRIBUTION FILES
 

package/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

package/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

package/bin/build_geolocation

@@ -40,7 +40,7 @@
 #        6   int8u  - 0xf0 = population E exponent (in format "N.Fe+0E"), 0x0f = population N digit
 #        7   int16u - 0xf000 = population F digit, 0x0fff = index in region list (admin1)
 #        9   int16u - v1.02: 0x7fff = index in subregion (admin2), 0x8000 = high bit of time zone
-#        9   int16u - v1.03: index in subregion (admin2)
+#        9   int16u - v1.03: index in subregion list (admin2)
 #       11   int8u  - low byte of time zone index
 #       12   int8u  - 0x3f = feature code index (see below), v1.03: 0x80 = high bit of time zone
 #       13   string - UTF8 City name, terminated by newline

package/bin/exiftool

@@ -11,7 +11,7 @@ use strict;
 use warnings;
 require 5.004;
 
-my $version = '13.25';
+my $version = '13.29';
 
 $^W = 1;    # enable global warnings
 
@@ -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
@@ -4289,6 +4287,7 @@ sub ScanDir($$;$)
             next unless $recurse;
             # ignore directories starting with "." by default
             next if $file =~ /^\./ and $recurse == 1;
+            # note: this doesn't work in Windows cmd (see forum17243)
             next if $ignore{$file} or ($ignore{SYMLINKS} and -l $path);
             ScanDir($et, $path, $list);
             last if $end;
@@ -5010,7 +5009,7 @@ B<exiftool> [I<OPTIONS>] [-I<TAG>...] [--I<TAG>...] I<FILE>...
 
 =head2 Writing
 
-B<exiftool> [I<OPTIONS>] -I<TAG>[+-E<lt>]=[I<VALUE>]... I<FILE>...
+B<exiftool> [I<OPTIONS>] -I<TAG>[+-^E<lt>]=[I<VALUE>]... I<FILE>...
 
 =head2 Copying
 
@@ -6053,7 +6052,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 13.25 --
+    -- Generated by ExifTool 13.29 --
     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
@@ -6550,9 +6549,10 @@ name, or a full path, and is case sensitive.  If a full path is specified,
 it must match the Directory tag exactly to be ignored.  Use multiple B<-i>
 options to ignore more than one directory name.  A special I<DIR> value of
 C<SYMLINKS> may be specified to avoid recursing into directories which are
-symbolic links when the B<-r> option is used.  As well, a value of C<HIDDEN>
-may be used to ignore files with names that start with a "." (ie. hidden
-files on Unix systems) when scanning a directory.
+symbolic links when the B<-r> option is used (note this does not currently
+work under Windows).  As well, a value of C<HIDDEN> may be used to ignore
+files with names that start with a "." (ie. hidden files on Unix systems)
+when scanning a directory.
 
 =item B<-if>[I<NUM>] I<EXPR>
 
@@ -6935,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

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

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '4.89';
+$VERSION = '4.90';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -1410,7 +1410,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' },
         },
         {
@@ -2053,7 +2053,7 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
     # 0x4014 (similar to 0x83?)
     0x4015 => [{
         Name => 'VignettingCorr', # (LensPacket)
-        Condition => '$$valPt =~ /^\0/ and $$valPt !~ /^\0\0\0\0/', # (data may be all zeros for 60D)
+        Condition => '$$valPt =~ /^\0/ and $$valPt !~ /^(\0\0\0\0|\x00\x40\xdc\x05)/', # (data may be all zeros for 60D)
         SubDirectory => {
             # (the size word is at byte 2 in this structure)
             Validate => 'Image::ExifTool::Canon::Validate($dirData,$subdirStart+2,$size)',
@@ -2061,7 +2061,7 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
         },
     },{
         Name => 'VignettingCorrUnknown1',
-        Condition => '$$valPt =~ /^[\x01\x02\x10\x20]/ and $$valPt !~ /^\0\0\0\0/',
+        Condition => '$$valPt =~ /^[\x01\x02\x10\x20]/ and $$valPt !~ /^(\0\0\0\0|\x02\x50\x7c\x04)/',
         SubDirectory => {
             # (the size word is at byte 2 in this structure)
             Validate => 'Image::ExifTool::Canon::Validate($dirData,$subdirStart+2,$size)',
@@ -4758,6 +4758,7 @@ my %ciMaxFocal = (
         Format => 'int32u',
         Notes => 'includes electronic + mechanical shutter',
     },
+    # 0x0b5a - related to image stabilization (ref forum17239) (R5)
     # 0x0bb7 - counts down during focus stack (ref forum16111)
 );
 

package/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>
 

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

@@ -336,6 +336,7 @@ my %manuSig = ( #6
     'Zebr' => 'Zebra Technologies Inc',
     'ZRAN' => 'Zoran Corporation',
     # also seen: "    ",ACMS,KCMS,UCCM,etc2,SCTX
+    # registry: https://www.color.org/signatureRegistry/index.xalter
 );
 
 # ICC_Profile tag table

package/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,

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

@@ -11,7 +11,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool;
 
-$VERSION = '1.02';
+$VERSION = '1.04';
 
 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));
     $$et{SET_GROUP1} = 'LIGO';
     while ($$dataPt =~ /LIGOGPSINFO (\{.*?\})/g) {
         my $json = $1;

package/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 => {

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

@@ -65,7 +65,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 use Image::ExifTool::XMP;
 
-$VERSION = '4.45';
+$VERSION = '4.46';
 
 sub LensIDConv($$$);
 sub ProcessNikonAVI($$$);
@@ -552,6 +552,7 @@ sub GetAFPointGrid($$;$);
     '21 56 8E 8E 24 24 14 00' => 'Tamron SP AF 300mm f/2.8 LD-IF (60E)',
     '27 54 8E 8E 24 24 1D 02' => 'Tamron SP AF 300mm f/2.8 LD-IF (360E)',
     'E1 40 19 36 2C 35 DF 4E' => 'Tamron 10-24mm f/3.5-4.5 Di II VC HLD (B023)',
+    'E1 40 19 36 2C 35 DF 0E' => 'Tamron 10-24mm f/3.5-4.5 Di II VC HLD (B023)', #30
     'F6 3F 18 37 2C 34 84 06' => 'Tamron SP AF 10-24mm f/3.5-4.5 Di II LD Aspherical (IF) (B001)',
     'F6 3F 18 37 2C 34 DF 06' => 'Tamron SP AF 10-24mm f/3.5-4.5 Di II LD Aspherical (IF) (B001)', #30
     '00 36 1C 2D 34 3C 00 06' => 'Tamron SP AF 11-18mm f/4.5-5.6 Di II LD Aspherical (IF) (A13)',

package/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.84';
+$VERSION = '2.85';
 
 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
@@ -446,6 +446,7 @@ my %olympusCameraTypes = (
     S0095 => 'OM-1', #IB
     S0101 => 'OM-5', #IB
     S0121 => 'OM-1MarkII', #forum15652
+    S0123 => 'OM-3', #forum17208
     SR45 => 'D220',
     SR55 => 'D320L',
     SR83 => 'D340L',

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

@@ -16,7 +16,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.00';
+$VERSION = '1.01';
 
 %Image::ExifTool::PCAP::Main = (
     GROUPS => { 0 => 'File', 1 => 'File', 2 => 'Other' },
@@ -261,14 +261,14 @@ $VERSION = '1.00';
         },
     },
     19373 => {
-        Name => 'CustomOption3',
+        Name => 'CustomOption4',
         Binary => 1,
     },
 #
 # "options" tags in Section Header Block
 #
     'SHB-2' => 'Hardware',
-    'SHB-3' => 'OperatingSytem',
+    'SHB-3' => 'OperatingSystem',
     'SHB-4' => 'UserApplication',
 #
 # "options" tags in Interface Description Block
@@ -308,8 +308,8 @@ $VERSION = '1.00';
         Name => 'Filter',
         ValueConv => 'Get8u(\$val,0) . ": " . substr($val, 1)',
     },
-    'IDB-12' => 'OperatingSytem',
-    'IDB-13' => { Name => 'FCSLen',  Format => 'int8u' },
+    'IDB-12' => 'OperatingSystem',
+    'IDB-13' => { Name => 'FrameCheckSequenceLength',  Format => 'int8u' },
     'IDB-14' => {
         Name => 'TimeStampOffset',
         Format => 'int64u',

package/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"',