exiftool_vendored 13.58.0 → 13.59.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 80eb52ce82e2830a23dcaaa3b12c1a6a1629b2ac95475c6c96f21b2d1313cf67
-  data.tar.gz: 5bdf2a271cc97053b66c1b836d3268ab0229ab568e20df3f6b5b35da3124c6f3
+  metadata.gz: 9ce05a515790dd95ab7268976c98a631cd914f89751e06325c85c4d5621295bc
+  data.tar.gz: d944c0936aea71dd27276c9591ac5e2568070f8a2088df644e8a019a42b98467
 SHA512:
-  metadata.gz: 5e11b14441c11c34b7d667af8a60d26314d3ae9281294a6b345f5a383ac5037cc96684f840a1d7f75e9ab21ca24b6c7355a79ff1e192d084fedfe13d65aee900
-  data.tar.gz: bced11b21e11fbb5ccd250a6ebd5f58c3e00699b5e289a3e772c137ae0b7b26227e2495f71d9b8e6bd98216b1301c49184d2cd8042273060c444940f6ebcc95b
+  metadata.gz: f299b91c8e5085bf0f661ef597d551e3859c41c879ce8a2c14fdc4038396ea9882fd74f60a556c58d944b70db558b9719ced4cb4874784bd1d64b01c45cf4590
+  data.tar.gz: b2d2edf181e10759f40853133e294e1ed52dfbf14d7e90c94d2548d71c6bfa2c10d3203f77fb83fad1e787babb67e129e1275a66bf230899d6c357c9676b8619

data/bin/Changes

@@ -7,6 +7,28 @@ RSS feed: https://exiftool.org/rss.xml
 Note: The most recent production release is Version 13.55. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+May 27, 2026 - Version 13.59
+
+  - Security update
+  - Added NewUUID Extra tag (thanks Daniel Dumitriu, github #421)
+  - Added a new Canon RF lens (thanks Norbert Wasser)
+  - Added config_files/novelty.config to the distribution (github #422)
+  - Decode tags from the Sony ILCE-7RM6 (thanks Jos Roost)
+  - Decode a new FujiFilm tag (thanks Iliah Borg)
+  - Decode a few more DJI protobuf tags
+  - Decode a new Ricoh Pentax tag
+  - Issue Error instead of Warning when writing XMP with some problems which
+    could cause loss of data
+  - Improved error message when reading wrongly encoded CSV or JSON file
+  - Enhanced -config option to allow piped input with "-config -"
+  - Enhanced -validate option to do more strict checking of EXIF-for-XMP tags
+  - Patched -sort option avoid inconsistent output ordering of same-named tags
+  - Patched Composite SubSec date/time tags to specify the EXIF group for the
+    SubSec and OffsetTime tags upon which they are based (avoids non-standard
+    XMP tags from being incorrectly used here)
+  - Fixed bug in -diff feature when finding differences for specific tags and a
+    specified tag was missing from the source file
+
 May 5, 2026 - Version 13.58
 
   - Added a few new Nikon Z lenses (thanks Warren Hatch)
@@ -105,7 +127,7 @@ Feb. 19, 2026 - Version 13.51
 
 Feb. 7, 2026 - Version 13.50 (production release)
 
-  - Security update (MacOS only, thanks Tay Kiat Loong)
+  - Security update (MacOS only)
   - Added a few new Sony lenses (thanks Jos Roost)
   - Added a couple of new Canon lenses (thanks Norbert Wasser)
   - Decode another Samsung trailer tag

data/bin/MANIFEST

@@ -29,6 +29,7 @@ config_files/gps2utm.config
 config_files/guano.config
 config_files/local_time.config
 config_files/nksc.config
+config_files/novelty.config
 config_files/onone.config
 config_files/photoshop_paths.config
 config_files/picasa_faces.config

data/bin/META.json

@@ -50,6 +50,6 @@
       }
    },
    "release_status" : "stable",
-   "version" : "13.58",
+   "version" : "13.59",
    "x_serialization_backend" : "JSON::PP version 4.06"
 }

data/bin/META.yml

@@ -31,5 +31,5 @@ recommends:
   Time::HiRes: '0'
 requires:
   perl: '5.004'
-version: '13.58'
+version: '13.59'
 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

data/bin/README

@@ -111,8 +111,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.58.tar.gz | tar -xf -
-  cd Image-ExifTool-13.58
+  gzip -dc Image-ExifTool-13.59.tar.gz | tar -xf -
+  cd Image-ExifTool-13.59
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 
@@ -213,6 +213,7 @@ distribution package:
     guano.config              - Decode individual tags from Guano metadata
     local_time.config         - Determine local time from GPS information
     nksc.config               - Decode tags in Nikon ViewNX NKSC files
+    novelty.config            - Definitions for XMP Novelty Theory tags
     onone.config              - Definitions for writing On1 XMP tags
     photoshop_paths.config    - For extracting or copying Photoshop paths
     picasa_faces.config       - Convert from Picasa to MWG/MP face regions

data/bin/config_files/example.config

@@ -136,7 +136,7 @@
     # new PNG tags are added to the PNG::TextualData table:
     'Image::ExifTool::PNG::TextualData' => {
         # Example 12.  PNG:NewPngTag1
-        NewPngTag1 => { },
+        NewPngTag1 => { }, # (Writable is 'string' by default for XMP tags)
         # Example 13.  PNG:NewPngTag2
         NewPngTag2 => { iTXt => 1 }, # (force this tag to be written as iTXt)
         # Example 14.  PNG:NewPngTag3

data/bin/config_files/novelty.config

@@ -0,0 +1,51 @@
+#------------------------------------------------------------------------------
+# File:         novelty.config
+#
+# Description:  This config file defines Novelty Theory XMP tags for writing.
+#
+# Notes:        Tags for annotating timestamped media (video, photo, audio)
+#               with metadata in the context of Terence McKenna's Novelty
+#               Theory framework (see The Invisible Landscape, 1975).
+#               Published and maintained at http://hexart.pl/novelty/1.0/
+#               for use by archival projects documenting media against the
+#               McKenna timewave.
+#
+# Requires:     ExifTool version 7.00 or later
+#
+# Revisions:    2026-05-27 - P. Harvey Created (from github #422)
+#------------------------------------------------------------------------------
+
+%Image::ExifTool::UserDefined = (
+    'Image::ExifTool::XMP::Main' => {
+        novelty => {
+            SubDirectory => { TagTable => 'Image::ExifTool::UserDefined::novelty' },
+        },
+    },
+);
+
+# Novelty Theory XMP namespace (http://hexart.pl/novelty/1.0/)
+%Image::ExifTool::UserDefined::novelty = (
+    GROUPS => { 0 => 'XMP', 1 => 'XMP-novelty', 2 => 'Other' },
+    NAMESPACE => { novelty   => 'http://hexart.pl/novelty/1.0/' },
+    WRITABLE  => 'string',
+    NoveltyIndex        => { Writable => 'real' },
+    TimewavePosition    => { },
+    Concrescence        => { },
+    EschatonCoordinates => { },
+    StrangeAttractor    => { },
+    HabitNoveltyRatio   => { },
+    WaveformType        => { },
+    Protocol            => { },
+    Operator            => { },
+    Intent              => { },
+    Witness             => { },
+    CosmicSign          => { },
+    Frequency           => { },
+    SacredGeometry      => { },
+    Dimension           => { },
+    Lineage             => { },
+    Mantra              => { },
+    Seal                => { Avoid => 1 }, # avoid conflict with XMP-seal:Seal
+);
+
+1;  #end

data/bin/exiftool

@@ -11,7 +11,7 @@ use strict;
 use warnings;
 require 5.004;
 
-my $version = '13.58';
+my $version = '13.59';
 
 $^W = 1;    # enable global warnings
 
@@ -2437,7 +2437,8 @@ sub GetImageInfo($$)
             if (defined $tag) {
                 $done{$tag} = 1;
                 $g = $et->GetGroup($tag, $showGroup);
-            } else {
+            }
+            unless ($g) { # ($g could be '' if requesting non-existent tag, and this will sort last)
                 for (;;) {
                     $tag2 = shift @found2;
                     defined $tag2 or $g = '', last;
@@ -4664,6 +4665,7 @@ sub FilenameSPrintf($;$@)
     $part{F} = $part{f} . $part{E};
     ($part{D} = $part{d}) =~ s{/+$}{};
     @part{qw(t g s o)} = @extra;
+    $part{o} =~ s(^.*[/\\])()s if $part{o}; # remove directory if it exists
     my ($filename, $pos) = ('', 0);
     while ($fmt =~ /(%([-+]?)(\d*)([.:]?)(\d*)([lu]?)([dDfFeEtgso]))/g) {
         $filename .= substr($fmt, $pos, pos($fmt) - $pos - length($1));
@@ -6160,7 +6162,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 13.58 --
+    -- Generated by ExifTool 13.59 --
     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
@@ -6457,12 +6459,12 @@ between B<-W> and B<-w>:
 
 2) B<-W> supports four additional format codes:  %t, %g and %s represent the
 tag name, group name, and suggested extension for the output file (based on
-the format of the data), and %o represents the value of the
-OriginalRawFileName or OriginalFileName tag from the input file (including
-extension).  The %g code may be followed by a single digit to specify the
-group family number (eg. %g1), otherwise family 0 is assumed.  The substring
-width/position/case specifiers may be used with these format codes in
-exactly the same way as with %f and %e.
+the format of the data), and %o is the value of the OriginalRawFileName or
+OriginalFileName tag from the input file (without directory name, but
+including extension).  The %g code may be followed by a single digit to
+specify the group family number (eg. %g1), otherwise family 0 is assumed.
+The substring width/position/case specifiers may be used with these format
+codes in exactly the same way as with %f and %e.
 
 3) The argument for B<-W> is interpreted as a file name if it contains no
 format codes.  (For B<-w>, this would be a file extension.)  This change

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

@@ -646,9 +646,10 @@ $VERSION = '5.07';
    '61182.63' => 'Canon RF 24mm F1.4 L VCM', #42
    '61182.64' => 'Canon RF 20mm F1.4 L VCM', #42
    '61182.65' => 'Canon RF 85mm F1.4 L VCM', #github350
-   '61182.66' => 'Canon RF 45mm F1.2 STM', #42
-   '61182.67' => 'Canon RF 7-14mm F2.8-3.5 L FISHEYE STM', #42
-   '61182.68' => 'Canon RF 14mm F1.4 L VCM', #42
+   '61182.66' => 'Canon RF 20-50mm F4 L IS USM PZ', #42
+   '61182.67' => 'Canon RF 45mm F1.2 STM', #42
+   '61182.68' => 'Canon RF 7-14mm F2.8-3.5 L FISHEYE STM', #42
+   '61182.69' => 'Canon RF 14mm F1.4 L VCM', #42
     65535 => 'n/a',
 );
 
@@ -7132,6 +7133,7 @@ my %ciMaxFocal = (
             326 => 'Canon RF 24mm F1.4 L VCM', #42
             327 => 'Canon RF 20mm F1.4 L VCM', #42
             328 => 'Canon RF 85mm F1.4 L VCM', #42/github350
+            329 => 'Canon RF 20-50mm F4 L IS USM PZ', #42
             330 => 'Canon RF 45mm F1.2 STM', #42
             331 => 'Canon RF 7-14mm F2.8-3.5 L FISHEYE STM', #42
             332 => 'Canon RF 14mm F1.4 L VCM', #42

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

@@ -18,7 +18,7 @@ use Image::ExifTool::XMP;
 use Image::ExifTool::GPS;
 use Image::ExifTool::Protobuf;
 
-$VERSION = '1.18';
+$VERSION = '1.19';
 
 sub ProcessDJIInfo($$$);
 sub ProcessSettings($$$);
@@ -275,7 +275,9 @@ my %convFloat2 = (
         Name => 'FrameInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::DJI::FrameInfo' },
     },
-    'dvtm_ac203_3-2-2-1' => { Name => 'ISO', Format => 'float' },
+    #WRONG (forum17996) 'dvtm_ac203_3-2-2-1' => { Name => 'ISO', Format => 'float' },
+    'dvtm_ac203_3-1-1' => { Name => 'FrameNumber', Format => 'unsigned' }, #forum17996
+    'dvtm_ac203_3-2-3-1' => { Name => 'ISO', Format => 'float' }, #forum17996
     'dvtm_ac203_3-2-4-1' => { # (NC)
         Name => 'ShutterSpeed',
         Format => 'rational',
@@ -315,6 +317,8 @@ my %convFloat2 = (
         Name => 'FrameInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::DJI::FrameInfo' },
     },
+    'dvtm_ac204_3-1-1' => { Name => 'FrameNumber', Format => 'unsigned' }, #forum17996
+    'dvtm_ac204_3-2-3-1' => { Name => 'ISO', Format => 'float' }, #forum17996
     'dvtm_ac204_3-2-4-1' => { # (NC)
         Name => 'ShutterSpeed',
         Format => 'rational',
@@ -354,6 +358,8 @@ my %convFloat2 = (
         Name => 'FrameInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::DJI::FrameInfo' },
     },
+    'dvtm_ac206_3-1-1' => { Name => 'FrameNumber', Format => 'unsigned' }, #forum17996
+    'dvtm_ac206_3-2-3-1' => { Name => 'ISO', Format => 'float' }, #forum17996
     'dvtm_ac206_3-2-4-1' => { # (NC)
         Name => 'ShutterSpeed',
         Format => 'rational',
@@ -395,7 +401,7 @@ my %convFloat2 = (
         Name => 'FrameInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::DJI::FrameInfo' },
     },
-   # dvtm_AVATA2_3-1-1 - frame number (starting at 1)
+    'dvtm_AVATA2_3-1-1' => { Name => 'FrameNumber', Format => 'unsigned' },
     'dvtm_AVATA2_3-1-2' => { # (also 3-2-1-6 and 3-4-1-6)
         Name => 'TimeStamp',
         Groups => { 2 => 'Time' },
@@ -437,6 +443,7 @@ my %convFloat2 = (
         Name => 'FrameInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::DJI::FrameInfo' },
     },
+    'dvtm_wm265e_3-1-1' => { Name => 'FrameNumber', Format => 'unsigned' },
    # dvtm_wm265e_3-2-1-4 - model code?
     'dvtm_wm265e_3-2-2-1' => { Name => 'ISO', Format => 'float' },
     'dvtm_wm265e_3-2-3-1' => {
@@ -469,6 +476,7 @@ my %convFloat2 = (
         Name => 'FrameInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::DJI::FrameInfo' },
     },
+    'dvtm_pm320_3-1-1' => { Name => 'FrameNumber', Format => 'unsigned' },
     'dvtm_pm320_3-2-2-1' => { Name => 'ISO', Format => 'float' },
     'dvtm_pm320_3-2-3-1' => {
         Name => 'ShutterSpeed',
@@ -504,6 +512,7 @@ my %convFloat2 = (
         Name => 'FrameInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::DJI::FrameInfo' },
     },
+    'dvtm_Mini4_Pro_3-1-1' => { Name => 'FrameNumber', Format => 'unsigned' },
     'dvtm_Mini4_Pro_3-2-7-1' => { Name => 'ISO', Format => 'float' },
     'dvtm_Mini4_Pro_3-2-10-1' => {
         Name => 'ShutterSpeed',
@@ -546,7 +555,7 @@ my %convFloat2 = (
         Name => 'FrameInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::DJI::FrameInfo' },
     },
-   # dvtm_dji_neo_3-1-1 - frame number (starting at 1)
+    'dvtm_dji_neo_3-1-1' => { Name => 'FrameNumber', Format => 'unsigned' },
     'dvtm_dji_neo_3-1-2' => { # (also 3-2-1-6 and 3-4-1-6)
         Name => 'TimeStamp',
         Groups => { 2 => 'Time' },
@@ -586,6 +595,7 @@ my %convFloat2 = (
         Name => 'FrameInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::DJI::FrameInfo' },
     },
+    'dvtm_Air3_3-1-1' => { Name => 'FrameNumber', Format => 'unsigned' }, # (NC)
     'dvtm_Air3_3-1-2' => {
         Name => 'TimeStamp',
         Groups => { 2 => 'Time' },
@@ -626,6 +636,7 @@ my %convFloat2 = (
         Name => 'FrameInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::DJI::FrameInfo' },
     },
+    'dvtm_Air3s_3-1-1' => { Name => 'FrameNumber', Format => 'unsigned' }, # (NC)
     'dvtm_Air3s_3-1-2' => {
         Name => 'TimeStamp',
         Groups => { 2 => 'Time' },
@@ -659,10 +670,11 @@ my %convFloat2 = (
         SubDirectory => { TagTable => 'Image::ExifTool::DJI::GimbalInfo' },
     },
 #
-# Osmo 360 (similar to Action 4/5)
+# Osmo 360 (similar to Action 4/5/6)
 #
     'dvtm_oq101_1-1-5' => { Name => 'SerialNumber', Notes => 'Osmo 360' },
     'dvtm_oq101_1-1-10' => 'Model',
+    'dvtm_oq101_3-1-1' => { Name => 'FrameNumber', Format => 'unsigned' },
     'dvtm_oq101_3-1-2' => {
         Name => 'TimeStamp',
         Groups => { 2 => 'Time' },
@@ -706,6 +718,7 @@ my %convFloat2 = (
         Name => 'FrameInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::DJI::FrameInfo' },
     },
+    'dvtm_PP-101_3-1-1' => { Name => 'FrameNumber', Format => 'unsigned' },
     'dvtm_PP-101_3-1-2' => {
         Name => 'TimeStamp',
         Groups => { 2 => 'Time' },
@@ -728,6 +741,7 @@ my %convFloat2 = (
         Name => 'FrameInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::DJI::FrameInfo' },
     },
+    'dvtm_wa345e_3-1-1' => { Name => 'FrameNumber', Format => 'unsigned' },
     'dvtm_wa345e_3-1-2' => {
         Name => 'TimeStamp',
         Groups => { 2 => 'Time' },
@@ -765,6 +779,7 @@ my %convFloat2 = (
         Name => 'FrameInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::DJI::FrameInfo' },
     },
+    'dvtm_wm261_3-1-1' => { Name => 'FrameNumber', Format => 'unsigned' },
     'dvtm_wm261_3-1-2' => {
         Name => 'TimeStamp',
         Groups => { 2 => 'Time' },
@@ -815,6 +830,7 @@ my %convFloat2 = (
         Name => 'FrameInfo',
         SubDirectory => { TagTable => 'Image::ExifTool::DJI::FrameInfo' },
     },
+    'dvtm_Mavic4_3-1-1' => { Name => 'FrameNumber', Format => 'unsigned' },
     'dvtm_Mavic4_3-1-2' => {
         Name => 'TimeStamp',
         Groups => { 2 => 'Time' },
@@ -849,6 +865,7 @@ my %convFloat2 = (
 #
     'dvtm_Mini5Pro_1-1-5' => { Name => 'SerialNumber', Notes => 'Mini 5 Pro' }, # (NC)
     'dvtm_Mini5Pro_1-1-10' => 'Model', # (NC)
+    'dvtm_Mini5Pro_3-1-1' => { Name => 'FrameNumber', Format => 'unsigned' }, # (NC)
     'dvtm_Mini5Pro_3-2-37-1' => { Name => 'Temperature', Format => 'float' }, # (NC)
     'dvtm_Mini5Pro_3-3-4-1' => {
         Name => 'GPSInfo',

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.64';
+$VERSION = '4.65';
 
 sub ProcessExif($$$);
 sub WriteExif($$$);
@@ -5170,8 +5170,8 @@ my %subSecConv = (
             0 => 'EXIF:DateTimeOriginal',
         },
         Desire => {
-            1 => 'SubSecTimeOriginal',
-            2 => 'OffsetTimeOriginal',
+            1 => 'EXIF:SubSecTimeOriginal',
+            2 => 'EXIF:OffsetTimeOriginal',
         },
         WriteAlso => {
             'EXIF:DateTimeOriginal' => '($val and $val=~/^(\d{4}:\d{2}:\d{2} \d{2}:\d{2}:\d{2})/) ? $1 : undef',
@@ -5189,8 +5189,8 @@ my %subSecConv = (
             0 => 'EXIF:CreateDate',
         },
         Desire => {
-            1 => 'SubSecTimeDigitized',
-            2 => 'OffsetTimeDigitized',
+            1 => 'EXIF:SubSecTimeDigitized',
+            2 => 'EXIF:OffsetTimeDigitized',
         },
         WriteAlso => {
             'EXIF:CreateDate' => '($val and $val=~/^(\d{4}:\d{2}:\d{2} \d{2}:\d{2}:\d{2})/) ? $1 : undef',
@@ -5208,8 +5208,8 @@ my %subSecConv = (
             0 => 'EXIF:ModifyDate',
         },
         Desire => {
-            1 => 'SubSecTime',
-            2 => 'OffsetTime',
+            1 => 'EXIF:SubSecTime',
+            2 => 'EXIF:OffsetTime',
         },
         WriteAlso => {
             'EXIF:ModifyDate' => '($val and $val=~/^(\d{4}:\d{2}:\d{2} \d{2}:\d{2}:\d{2})/) ? $1 : undef',

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 = '2.01';
+$VERSION = '2.02';
 
 sub ProcessFujiDir($$$);
 sub ProcessFaceRec($$$);
@@ -1373,37 +1373,37 @@ my %faceCategories = (
         Count => 4, # (ignore the duplicate values)
     },
     0x2100 => { #IB
-        Name => 'WB_GRGBLevelsDaylight',
+        Name => 'WB_GRGBLevelsDaylight', # (EXIF Fine Weather)
         Format => 'int16u',
         Count => 4,
     },
     0x2200 => { #IB
-        Name => 'WB_GRGBLevelsCloudy',
+        Name => 'WB_GRGBLevelsCloudy', # (EXIF Shade)
         Format => 'int16u',
         Count => 4,
     },
     0x2300 => { #IB
-        Name => 'WB_GRGBLevelsDaylightFluor',
+        Name => 'WB_GRGBLevelsDaylightFluor', # (EXIF FL_D)
         Format => 'int16u',
         Count => 4,
     },
     0x2301 => { #IB
-        Name => 'WB_GRGBLevelsDayWhiteFluor',
+        Name => 'WB_GRGBLevelsDayWhiteFluor', # (EXIF FL_N)
         Format => 'int16u',
         Count => 4,
     },
     0x2302 => { #IB
-        Name => 'WB_GRGBLevelsWhiteFluorescent',
+        Name => 'WB_GRGBLevelsWhiteFluorescent', # (EXIF FL_W)
         Format => 'int16u',
         Count => 4,
     },
     0x2310 => { #IB
-        Name => 'WB_GRGBLevelsWarmWhiteFluor',
+        Name => 'WB_GRGBLevelsWarmWhiteFluor', # (EXIF FL_WW)
         Format => 'int16u',
         Count => 4,
     },
     0x2311 => { #IB
-        Name => 'WB_GRGBLevelsLivingRoomWarmWhiteFluor',
+        Name => 'WB_GRGBLevelsLivingRoomWarmWhiteFluor', # (EXIF FL_L)
         Format => 'int16u',
         Count => 4,
     },
@@ -1412,9 +1412,14 @@ my %faceCategories = (
         Format => 'int16u',
         Count => 4,
     },
+    0x2410 => { #IB
+        Name => 'WB_GRGBLevelsFlash',
+        Format => 'int16u',
+        Count => 4,
+    },
     # 0x2f00 => WB_GRGBLevelsCustom: int32u count, then count * (int16u GRGBGRGB), ref IB
     0x2ff0 => {
-        Name => 'WB_GRGBLevels',
+        Name => 'WB_GRGBLevels', # (as shot)
         Format => 'int16u',
         Count => 4,
     },

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

@@ -12,7 +12,7 @@ require Exporter;
 
 use vars qw($VERSION @ISA @EXPORT_OK);
 
-$VERSION = '1.14';
+$VERSION = '1.15';
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(ReadCSV ReadJSON);
 
@@ -100,19 +100,22 @@ sub ReadCSV($$;$$)
                 # terminate at first blank tag name (eg. extra comma at end of line)
                 last unless length $_;
                 @tags or s/^\xef\xbb\xbf//; # remove UTF-8 BOM if it exists
-                /^([-_0-9A-Z]+:)*[-_0-9A-Z]+#?$/i or $err = "Invalid tag name '${_}'", last;
+                unless (/^([-_0-9A-Z]+:)*[-_0-9A-Z]+#?$/i) {
+                    /\0/ and $err = "Format error in $file (doesn't look like UTF-8)", last;
+                    $err = "Invalid tag name '${_}' in $file", last;
+                }
                 push(@tags, $_);
             }
             last if $err;
-            @tags or $err = 'No tags found', last;
+            @tags or $err = "No tags found in $file", last;
             # fix "SourceFile" case if necessary
             $tags[0] = 'SourceFile' if lc $tags[0] eq 'sourcefile';
         }
     }
     close CSVFILE if $openedFile;
     undef $raf;
-    $err = 'No SourceFile column' unless $found or $err;
-    return $err ? "$err in $file" : undef;
+    $err = "No SourceFile column in $file" unless $found or $err;
+    return $err || undef;
 }
 
 #------------------------------------------------------------------------------
@@ -248,7 +251,7 @@ sub ReadJSON($$;$$)
 {
     local $_;
     my ($file, $database, $missingValue, $chset) = @_;
-    my ($raf, $openedFile);
+    my ($raf, $openedFile, $buff);
 
     # initialize character set for converting "\uHHHH" chars
     $charset = $chset || 'UTF8';
@@ -260,7 +263,7 @@ sub ReadJSON($$;$$)
         $file = 'JSON file';
     } elsif (ref $file eq 'SCALAR') {
         $raf = File::RandomAccess->new($file);
-        $file = 'in memory';
+        $file = 'JSON in memory';
     } else {
         open JSONFILE, $file or return "Error opening JSON file '${file}'";
         binmode JSONFILE;
@@ -270,7 +273,13 @@ sub ReadJSON($$;$$)
     my $obj = ReadJSONObject($raf);
     close JSONFILE if $openedFile;
     unless (ref $obj eq 'ARRAY') {
-        ref $obj eq 'HASH' or return "Format error in JSON file '${file}'";
+        unless (ref $obj eq 'HASH') {
+            my $err = "Format error in $file";
+            if ($raf->Seek(0,0) and $raf->Read($buff, 64) and $buff =~ /\0/) {
+                $err .= " (doesn't look like UTF-8)";
+            }
+            return $err;
+        }
         $obj = [ $obj ];
     }
     my ($info, $found);
@@ -292,7 +301,7 @@ sub ReadJSON($$;$$)
         $$database{$$info{SourceFile}} = $info;
         $found = 1;
     }
-    return $found ? undef : "No valid JSON objects in '${file}'";
+    return $found ? undef : "No valid JSON objects in $file";
 }
 
 

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

@@ -59,7 +59,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 use Image::ExifTool::HP;
 
-$VERSION = '3.62';
+$VERSION = '3.63';
 
 sub CryptShutterCount($$);
 sub PrintFilter($$$);
@@ -2743,6 +2743,11 @@ my %binaryDataAttrs = (
             },
         },
     },
+    0x009e => { #https://www.dpreview.com/forums/threads/gr-iv-hdf-dng-exif-data.4837151/#post-68693164
+        Name => 'HDF', # (Highlight Diffusion Filter)
+        Writable => 'int8u',
+        PrintConv => { 0 => 'Off', 1 => 'On' },
+    },
     0x0200 => { #5
         Name => 'BlackPoint',
         Writable => 'int16u',