exiftool-vendored.pl 13.41.0 → 13.43.0

package/bin/Changes

@@ -7,6 +7,33 @@ RSS feed: https://exiftool.org/rss.xml
 Note: The most recent production release is Version 13.36. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+Dec. 4, 2025 - Version 13.43
+
+  - Added support for a couple of new Android QuickTime Keys tags
+  - Added date/time formatting for RIFF DateCreated
+  - Added ability to read/write (but not create/delete) the HEIF Mirroring tag
+  - Added a new SonyModelID
+  - Added a new Canon LensType (thanks Matthias)
+  - Decode ShutterCount for the Canon EOS R6 Mark III
+  - Decode another Samsung trailer tag
+  - Convert invalid Panasonic AFPointPosition to 'n/a'
+  - Fixed issue extracting timed GPS from some Wolfbox G900 MP4 videos
+
+Nov. 17, 2025 - Version 13.42
+
+  - Added warning if tag arguments come before -csv= or -json= in a command
+  - Added a new CanonModelID and RFLensType (thanks Norbert Wasser)
+  - Added ability to read XML as a block from Sony MP4 videos
+  - Added "EOS" to the R5 Mark II CanonModelID string
+  - Decode ReEditData in Samsung trailer
+  - Decode a couple more Sony rtmd tags from MP4 videos
+  - Tolerate some types of trailer corruption as caused by Samsung Gallery
+  - Restrict decoding of MetaImageSize to HEIC files only
+  - Fixed issue writing Keys tags to Sony PMW-EX1R videos
+  - Fixed behaviour of CSV/JSON import when specifying tags to import into an
+    existing list, or when importing ValueConv values (ie. "TAG#"), or when
+    specifying a group name of "All"
+
 Nov. 5, 2025 - Version 13.41
 
   - Added a new Canon LensType

package/bin/META.json

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

package/bin/META.yml

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

package/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.41.tar.gz | tar -xf -
-  cd Image-ExifTool-13.41
+  gzip -dc Image-ExifTool-13.43.tar.gz | tar -xf -
+  cd Image-ExifTool-13.43
   ./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 = '13.41';
+my $version = '13.43';
 
 $^W = 1;    # enable global warnings
 
@@ -152,9 +152,9 @@ my $countNewDir;    # count of directories created
 my $countSameWr;    # count files written OK but not changed
 my $critical;       # flag for critical operations (disable CTRL-C)
 my $csv;            # flag for CSV option (set to "CSV", or maybe "JSON" when writing)
-my $csvAdd;         # flag to add CSV information to existing lists
 my $csvDelim;       # delimiter for CSV files
-my $csvSaveCount;   # save counter for last CSV file loaded
+my $dbAdd;          # flag to add CSV/JSON information to existing lists
+my $dbSaveCount;    # save counter for last CSV/JSON file loaded
 my $deleteOrig;     # 0=restore original files, 1=delete originals, 2=delete w/o asking
 my $diff;           # file name for comparing differences
 my $disableOutput;  # flag to disable normal output
@@ -485,7 +485,7 @@ undef $binSep;
 undef $binTerm;
 undef $comma;
 undef $csv;
-undef $csvAdd;
+undef $dbAdd;
 undef $deleteOrig;
 undef $diff;
 undef $disableOutput;
@@ -550,7 +550,7 @@ $countGoodWr = 0;
 $countNewDir = 0;
 $countSameWr = 0;
 $csvDelim = ',';
-$csvSaveCount = 0;
+$dbSaveCount = 0;
 $fileTrailer = '';
 $filterFlag = 0;
 $html = 0;
@@ -580,7 +580,7 @@ my $escapeXML;      # flag to escape printed values for xml
 my $setTagsFile;    # filename for last TagsFromFile option
 my $sortOpt;        # sort option is used
 my $srcStdin;       # one of the source files is STDIN
-my $tagsFrom = '';  # tags on command line come from 'csv' or 'file'
+my $tagsFrom = '';  # tags on command line come from 'CSV' or 'File'
 my $useMWG;         # flag set if we are using any MWG tag
 
 my ($argsLeft, @nextPass, $badCmd);
@@ -815,7 +815,7 @@ for (;;) {
         }
         # create necessary lists, etc for this new -tagsFromFile file
         AddSetTagsFile($setTagsFile, { Replace => ($1 and lc($1) eq 'add') ? 0 : 1 } );
-        $tagsFrom = 'file';
+        $tagsFrom = 'File';
         next;
     }
     if ($a eq '@') {
@@ -923,36 +923,50 @@ for (;;) {
         next;
     }
     /^config$/i and Warn("Ignored -config option (not first on command line)\n"), shift, next;
-    if (/^csv(\+?=.*)?$/i) {
-        my $csvFile = $1;
+    if (/^(csv|j(son)?)(\+?=.*)?$/i) {
+        my $dbFile = $3;
+        my $dbType = lc($1) eq 'csv' ? 'CSV' : 'JSON';
+        unless ($dbFile) {
+            if ($dbType eq 'CSV') {
+                $csv = $dbType;
+            } else {
+                $json = 1;
+                $html = $xml = 0;
+                $mt->Options(Duplicates => 1);
+                require Image::ExifTool::XMP;   # for FixUTF8()
+            }
+            next;
+        }
         # must process on 2nd pass so -f and -charset options are available
         unless ($pass) {
+            @tags and Warn("Tag arguments should come after the -$1= option\n");
             push @nextPass, "-$_";
-            if ($csvFile) {
-                push @newValues, { SaveCount => ++$saveCount }; # marker to save new values now
-                $csvSaveCount = $saveCount;
-                $tagsFrom = 'csv';
-            }
+            push @newValues, { SaveCount => ++$saveCount }; # marker to save new values now
+            $dbSaveCount = $saveCount;
+            $tagsFrom = 'CSV';
             next;
         }
-        if ($csvFile) {
-            $csvFile =~ s/^(\+?=)//;
-            $csvAdd = 2 if $1 eq '+=';
-            $vout = \*STDERR if $srcStdin;
-            $verbose and print $vout "Reading CSV file $csvFile\n";
-            my $msg;
-            if ($mt->Open(\*CSVFILE, $csvFile)) {
-                binmode CSVFILE;
-                require Image::ExifTool::Import;
+        $dbFile =~ s/^(\+?=)//;
+        $dbAdd = 2 if $1 eq '+=';
+        $vout = \*STDERR if $srcStdin;
+        $verbose and print $vout "Reading $dbType file $dbFile\n";
+        my $msg;
+        if ($mt->Open(\*CSVFILE, $dbFile)) {
+            binmode CSVFILE;
+            require Image::ExifTool::Import;
+            if ($dbType eq 'CSV') {
                 $msg = Image::ExifTool::Import::ReadCSV(\*CSVFILE, \%database, $forcePrint, $csvDelim);
-                close(CSVFILE);
             } else {
-                $msg = "Error opening CSV file '${csvFile}'";
+                my $chset = $mt->Options('Charset');
+                $msg = Image::ExifTool::Import::ReadJSON(\*CSVFILE, \%database, $forcePrint, $chset);
             }
-            $msg and Warn("$msg\n");
-            $isWriting = 1;
+            close(CSVFILE);
+        } else {
+            $msg = "Error opening $dbType file '${dbFile}'";
         }
-        $csv = 'CSV';
+        $msg and Warn("$msg\n");
+        $isWriting = 1;
+        $csv = $dbType;
         next;
     }
     if (/^csvdelim$/i) {
@@ -1115,42 +1129,6 @@ for (;;) {
         push @condition, $cond;
         next;
     }
-    if (/^j(son)?(\+?=.*)?$/i) {
-        if ($2) {
-            # must process on 2nd pass because we need -f and -charset options
-            unless ($pass) {
-                push @nextPass, "-$_";
-                push @newValues, { SaveCount => ++$saveCount }; # marker to save new values now
-                $csvSaveCount = $saveCount;
-                $tagsFrom = 'csv';
-                next;
-            }
-            my $jsonFile = $2;
-            $jsonFile =~ s/^(\+?=)//;
-            $csvAdd = 2 if $1 eq '+=';
-            $vout = \*STDERR if $srcStdin;
-            $verbose and print $vout "Reading JSON file $jsonFile\n";
-            my $chset = $mt->Options('Charset');
-            my $msg;
-            if ($mt->Open(\*JSONFILE, $jsonFile)) {
-                binmode JSONFILE;
-                require Image::ExifTool::Import;
-                $msg = Image::ExifTool::Import::ReadJSON(\*JSONFILE, \%database, $forcePrint, $chset);
-                close(JSONFILE);
-            } else {
-                $msg = "Error opening JSON file '${jsonFile}'";
-            }
-            $msg and Warn("$msg\n");
-            $isWriting = 1;
-            $csv = 'JSON';
-        } else {
-            $json = 1;
-            $html = $xml = 0;
-            $mt->Options(Duplicates => 1);
-            require Image::ExifTool::XMP;   # for FixUTF8()
-        }
-        next;
-    }
     /^(k|pause)$/i and $pause = 1, next;
     (/^l$/ or $a eq 'long') and --$outFormat, next;
     (/^L$/ or $a eq 'latin') and $mt->Options(Charset => 'Latin'), next;
@@ -1373,7 +1351,7 @@ for (;;) {
         $tag =~ s/\ball\b/\*/ig;    # replace 'all' with '*' in tag names
         if (not $tagsFrom) {
             push @exclude, $tag;
-        } elsif ($tagsFrom eq 'csv') {
+        } elsif ($tagsFrom eq 'CSV') {
             push @csvExclude, $tag;
         } else {
             push @{$setTags{$setTagsFile}}, "-$tag";
@@ -1420,11 +1398,11 @@ for (;;) {
     } else {
         # assume '-tagsFromFile @' if tags are being redirected
         # and not from CSV and -tagsFromFile hasn't already been specified
-        if (not $setTagsFile and $tagsFrom ne 'csv' and /(<|>)/) {
+        if (not $setTagsFile and $tagsFrom ne 'CSV' and /(<|>)/) {
             AddSetTagsFile($setTagsFile = '@');
-            $tagsFrom = 'file';
+            $tagsFrom = 'File';
         }
-        if ($tagsFrom eq 'csv') {
+        if ($tagsFrom eq 'CSV') {
             my $lst = s/^-// ? \@csvExclude : \@tags;
             push @$lst, $_;
         } elsif ($setTagsFile) {
@@ -1732,7 +1710,7 @@ if (@newValues) {
                 $saveCount = $mt->SaveNewValues();
                 $needSave = 0;
                 # insert marker to load values from CSV file now if this was the CSV file
-                push @dynamicFiles, \$csv if $$_{SaveCount} == $csvSaveCount;
+                push @dynamicFiles, \$csv if $$_{SaveCount} == $dbSaveCount;
             }
             next;
         }
@@ -3262,7 +3240,7 @@ sub SetImageInfo($$$)
                 next;
             } elsif (ref $dyFile eq 'SCALAR') {
                 # set new values from CSV or JSON database
-                my ($f, $found, $csvTag, $tg, $csvExifTool);
+                my ($f, $found, $csvTag, $tg, $csvEtPrt, $csvEtVal);
                 undef $evalWarning;
                 local $SIG{'__WARN__'} = sub { $evalWarning = $_[0] };
                 # force UTF-8 if the database was JSON
@@ -3294,13 +3272,19 @@ sub SetImageInfo($$$)
                     }
                     if (@tags) {
                         # prepare a dummy ExifTool object to hold appropriate tags from the database
-                        $csvExifTool = Image::ExifTool->new unless $csvExifTool;
+                        $csvEtPrt = Image::ExifTool->new unless $csvEtPrt;
                         foreach $csvTag (OrderedKeys($csvInfo)) {
                             next if $csvTag =~ /^([-_0-9A-Z]+:)*(SourceFile|Directory|FileName)$/i;
                             my @grps = split /:/, $csvTag;
                             my $name = pop @grps;
-                            unshift @grps, 'Unknown' while @grps < 2;
-                            $csvExifTool->FoundTag($name, $$csvInfo{$csvTag}, @grps);
+                            unshift @grps, 'All' while @grps < 2;
+                            if ($name =~ s/#$//) {
+                                # handle ValueConv tags separately
+                                $csvEtVal = Image::ExifTool->new unless $csvEtVal;
+                                $csvEtVal->FoundTag($name, $$csvInfo{$csvTag}, @grps);
+                            } else {
+                                $csvEtPrt->FoundTag($name, $$csvInfo{$csvTag}, @grps);
+                            }
                         }
                         next;
                     }                    
@@ -3337,15 +3321,20 @@ ExclMatch:                  foreach $exclTag (@exclTags) {
                             next if $excluded;
                         }
                         my ($rtn, $wrn) = $et->SetNewValue($csvTag, $$csvInfo{$csvTag},
-                                          Protected => 1, AddValue => $csvAdd,
-                                          ProtectSaved => $csvSaveCount);
+                                          Protected => 1, AddValue => $dbAdd,
+                                          ProtectSaved => $dbSaveCount);
                         $wrn and Warn "$wrn\n" if $verbose;
                     }
                 }
                 # set specified tags now
-                if ($csvExifTool) {
+                if ($csvEtPrt) {
                     my @excl = map "-$_", @csvExclude;  # add back leading dashes
-                    $et->SetNewValuesFromFile($csvExifTool, @tags, @excl);
+                    my $opts = { AddValue => $dbAdd, Replace => 0 };
+                    $et->SetNewValuesFromFile($csvEtPrt, $opts, @tags, @excl);
+                    if ($csvEtVal) {
+                        $$opts{Type} = 'ValueConv';
+                        $et->SetNewValuesFromFile($csvEtVal, $opts, @tags, @excl);
+                    }
                 }
                 $et->Options(Charset => $old) if $csv eq 'JSON';
                 unless ($found) {
@@ -5470,7 +5459,8 @@ option for more details).  Note that quotes are required around this
 argument to prevent shell redirection since it contains a C<E<lt>> symbol.
 If I<DATFILE>/I<FMT> is not provided, the effect is the same as C<-TAG=>,
 and the tag is simply deleted.  C<+E<lt>=> or C<-E<lt>=> may also be used to
-add or delete specific list entries, or to shift date/time values.
+add or delete specific list entries, to conditionally delete tags, or to
+shift date/time values.
 
 =item B<-tagsFromFile> I<SRCFILE> or I<FMT>
 
@@ -5525,8 +5515,8 @@ destination group is specified, the information is written to the preferred
 group.  Whitespace around the C<E<gt>> or C<E<lt>> is ignored. As a
 convenience, C<-tagsFromFile @> is assumed for any redirected tags which are
 specified without a prior B<-tagsFromFile> option.  Copied tags may also be
-added or deleted from a list with arguments of the form
-E<quot>'-I<SRCTAG>+E<lt>I<DSTTAG>'E<quot> or
+added or deleted from a list, or conditionally deleted with arguments of the
+form E<quot>'-I<SRCTAG>+E<lt>I<DSTTAG>'E<quot> or
 E<quot>'-I<SRCTAG>-E<lt>I<DSTTAG>'E<quot> (but see Note 5 below).
 
 An extension of the redirection feature allows strings involving tag names
@@ -5788,12 +5778,15 @@ single command.
 
 Specific tags may be imported from the CSV database by adding B<->I<TAG>
 options to the command after B<-csv=>I<CSVFILE>, or excluded with
-B<-->I<TAG>, with exclusions taking priority.  Group names and wildcards are
-allowed, and tags from the CSV may be redirected and written to different
-tags in the target file with support for advanced-formatting expressions
-using the same syntax as the B<-tagsFromFile> feature.  If no tags are
-specified, then all tags except FileName, Directory and excluded tags are
-imported (in the same order as the database entries).
+B<-->I<TAG>, with exclusions taking priority.  Group names and wildcards in
+tag names are allowed, but the group name must match exactly the group in
+the CSV file (eg. a C<XMP-dc:Subject> column in the CSV file won't match
+C<-XMP:Subject> on the command line.  Also, tags from the CSV may be
+redirected and written to different tags in the target file with support for
+advanced-formatting expressions using the same syntax as the
+B<-tagsFromFile> feature.  If no tags are specified, then all tags except
+FileName, Directory and excluded tags are imported (in the same order as the
+database entries).
 
 When exporting a CSV file, the B<-g> or B<-G> option adds group names to the
 tag headings.  If the B<-a> option is used to allow duplicate tag names, the
@@ -5815,7 +5808,8 @@ List-type tags are stored as simple strings in a CSV file, but the B<-sep>
 option may be used to split them back into separate items when importing.
 
 Special feature:  B<-csv>+=I<CSVFILE> may be used to add items to existing
-lists.  This affects only list-type tags.  Also applies to the B<-j> option.
+lists in the file.  This affects only list-type tags.  Also applies to the
+B<-j> option.
 
 Note that this and the B<-plot> options are fundamentally different than all
 other output format options because they require information from all input
@@ -5984,18 +5978,22 @@ input JSON file may be suffixed with a C<#> to disable print conversion.
 
 Specific tags may be imported from the JSON database by adding B<->I<TAG>
 options to the command after B<-j=>I<JSONFILE>, or excluded with
-B<-->I<TAG>, with exclusions taking priority.  Group names and wildcards are
-allowed, and tags from JSON may be redirected and written to different tags
-in the target file with support for advanced-formatting expressions using
-the same syntax as the B<-tagsFromFile> feature.  If no tags are specified,
-then all tags except FileName, Directory and excluded tags are imported (in
-the same order as the database entries).
+B<-->I<TAG>, with exclusions taking priority.  Group names and wildcards in
+tag names are allowed, but the group name must match exactly the group in
+the JSON file (eg. a C<XMP-dc:Subject> entry in the JSON file won't match
+C<-XMP:Subject> on the command line.  Also, tags from JSON may be redirected
+and written to different tags in the target file with support for
+advanced-formatting expressions using the same syntax as the
+B<-tagsFromFile> feature.  If no tags are specified, then all tags except
+FileName, Directory and excluded tags are imported (in the same order as the
+database entries).
 
 Unlike CSV import, empty values are not ignored, and will cause an empty
 value to be written if supported by the specific metadata type.  Tags are
 deleted by using the B<-f> option and setting the tag value to "-" (or to
 the MissingTagValue setting if this API option was used).  Importing with
-B<-j>+=I<JSONFILE> causes new values to be added to existing lists.
+B<-j>+=I<JSONFILE> causes new values to be added to existing lists in the
+target file.
 
 =item B<-l> (B<-long>)
 
@@ -6130,7 +6128,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 13.41 --
+    -- Generated by ExifTool 13.43 --
     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
@@ -7379,6 +7377,10 @@ expression is empty (ie. C<${TAG;}>).  This removes the characters / \ ? * :
 illegal in Windows file names, so this feature is useful if tag values are
 used in file names.)
 
+Note that the expression is not evaluated for undefined (non-existant) tags,
+which may have other values if either the B<-m> or B<-f> command-line option
+or the API MissingTagValue option is used.
+
 =head4 Helper functions
 
 Note that function names are case sensitive.

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

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '4.98';
+$VERSION = '5.00';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -492,6 +492,7 @@ $VERSION = '4.98';
    '368.12' => 'Sigma 18-35mm f/1.8 DC HSM | A', #50
    '368.13' => 'Sigma 24-105mm f/4 DG OS HSM | A', #forum3833
    '368.14' => 'Sigma 18-300mm f/3.5-6.3 DC Macro OS HSM | C', #forum15280 (014)
+   '368.15' => 'Sigma 24mm F1.4 DG HSM | A', #50 (015)
     # Note: LensType 488 (0x1e8) is reported as 232 (0xe8) in 7D CameraSettings
     488 => 'Canon EF-S 15-85mm f/3.5-5.6 IS USM', #PH
     489 => 'Canon EF 70-300mm f/4-5.6L IS USM', #Gerald Kapounek
@@ -643,6 +644,7 @@ $VERSION = '4.98';
    '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
     65535 => 'n/a',
 );
 
@@ -1009,10 +1011,11 @@ $VERSION = '4.98';
     0x80000487 => 'EOS R8', #42
     0x80000491 => 'PowerShot V10', #25
     0x80000495 => 'EOS R1', #PH
-    0x80000496 => 'R5 Mark II', #forum16406
+    0x80000496 => 'EOS R5 Mark II', #forum16406
     0x80000497 => 'PowerShot V1', #PH
     0x80000498 => 'EOS R100', #25
     0x80000516 => 'EOS R50 V', #42
+    0x80000518 => 'EOS R6 Mark III', #42
     0x80000520 => 'EOS D2000C', #IB
     0x80000560 => 'EOS D6000C', #PH (guess)
 );
@@ -1421,6 +1424,11 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
             Condition => '$$self{Model} =~ /\bEOS (R6m2|R8|R50)$/',
             SubDirectory => { TagTable => 'Image::ExifTool::Canon::CameraInfoR6m2' },
         },
+        {
+            Name => 'CanonCameraInfoR6m3',
+            Condition => '$$self{Model} =~ /\bEOS R6 Mark III$/',
+            SubDirectory => { TagTable => 'Image::ExifTool::Canon::CameraInfoR6m3' },
+        },
         {
             Name => 'CanonCameraInfoG5XII',
             Condition => '$$self{Model} =~ /\bG5 X Mark II$/',
@@ -4792,6 +4800,22 @@ my %ciMaxFocal = (
     },
 );
 
+%Image::ExifTool::Canon::CameraInfoR6m3 = (
+    %binaryDataAttrs,
+    FIRST_ENTRY => 0,
+    PRIORITY => 0,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    NOTES => 'CameraInfo tags for the EOS R6 Mark II.',
+    0x086d => { #forum17745
+        Name => 'ShutterCount',
+        Format => 'int32u',
+        # (upper 2 bytes are currently unknown for this tag in JPEG images --
+        #  we need samples ideally spanning the 65536 count)
+        RawConv => '$$self{PATH}[2] eq "UUID-Canon" ? $val : $val & 0xffff',
+        Notes => 'includes electronic + mechanical shutter',
+    },
+);
+
 # ref https://exiftool.org/forum/index.php?topic=15356.0
 %Image::ExifTool::Canon::CameraInfoG5XII = (
     %binaryDataAttrs,
@@ -7053,6 +7077,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
+            330 => 'Canon RF 45mm F1.2 STM', #42
             # Note: add new RF lenses to %canonLensTypes with ID 61182
         },
     },

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

@@ -14,9 +14,9 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Import;
 
-$VERSION = '1.10';
+$VERSION = '1.11';
 
-sub ProcessJSON($$);
+sub ProcessJSON($$;$);
 sub ProcessTag($$$$%);
 
 %Image::ExifTool::JSON::Main = (
@@ -71,6 +71,7 @@ sub FoundTag($$$$%)
         $name = Image::ExifTool::MakeTagName($name);
         my $desc = Image::ExifTool::MakeDescription($name);
         $desc =~ s/^C2 PA/C2PA/;    # hack to get "C2PA" correct
+        $et->VPrint(0, $$et{INDENT}, "[adding $tag]\n");
         AddTagToTable($tagTablePtr, $tag, {
             Name => $name,
             Description => $desc,
@@ -112,12 +113,12 @@ sub ProcessTag($$$$%)
 
 #------------------------------------------------------------------------------
 # Extract meta information from a JSON file
-# Inputs: 0) ExifTool object reference, 1) dirInfo reference
+# Inputs: 0) ExifTool object reference, 1) dirInfo reference, 2) tag table ref
 # Returns: 1 on success, 0 if this wasn't a recognized JSON file
-sub ProcessJSON($$)
+sub ProcessJSON($$;$)
 {
     local $_;
-    my ($et, $dirInfo) = @_;
+    my ($et, $dirInfo, $tagTablePtr) = @_;
     my $raf = $$dirInfo{RAF};
     my $structOpt = $et->Options('Struct');
     my (%database, $key, $tag, $dataPt);
@@ -149,7 +150,7 @@ sub ProcessJSON($$)
 
     $et->SetFileType() unless $dataPt;
 
-    my $tagTablePtr = GetTagTable('Image::ExifTool::JSON::Main');
+    $tagTablePtr or $tagTablePtr = GetTagTable('Image::ExifTool::JSON::Main');
 
     # remove any old tag definitions in case they change flags
     foreach $key (TagTableKeys($tagTablePtr)) {

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.26';
+$VERSION = '2.27';
 
 sub ProcessLeicaLEIC($$$);
 sub WhiteBalanceConv($;$$);
@@ -916,13 +916,21 @@ my %shootingMode = (
         Name => 'AFPointPosition',
         Writable => 'rational64u',
         Count => 2,
-        Notes => 'X Y coordinates of primary AF area center, in the range 0.0 to 1.0',
+        Notes => q{
+            X Y coordinates of primary AF area center, in the range 0.0 to 1.0, or
+            "n/a" or "none" for invalid values
+        },
         PrintConv => q{
             return 'none' if $val eq '16777216 16777216';
+            return 'n/a' if $val =~ /^4194303\.9/;
             my @a = split ' ', $val;
             sprintf("%.2g %.2g",@a);
         },
-        PrintConvInv => '$val eq "none" ? "16777216 16777216" : $val',
+        PrintConvInv => q{
+            return '16777216 16777216' if $val eq 'none';
+            return '4294967295/1024 4294967295/1024' if $val eq 'n/a';
+            return $val;
+        },
     },
     0x4e => { #PH
         Name => 'FaceDetInfo',
@@ -1441,8 +1449,8 @@ my %shootingMode = (
         Writable => 'rational64u',
         Notes => 'relative to size of image.  "n/a" for manual focus',
         Count => 2,
-        PrintConv => '$val =~ /^4194303.999/ ? "n/a" : $val',
-        PrintConvInv => '$val eq "n/a" ? "4194303.999 4194303.999" : $val',
+        PrintConv => '$val =~ /^4194303\.9/ ? "n/a" : $val',
+        PrintConvInv => '$val eq "n/a" ? "4294967295/1024 4294967295/1024" : $val',
     },
     0xe4 => { #IB
         Name => 'LensTypeModel',