exiftool_vendored 13.10.0 → 13.14.0

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

@@ -1698,7 +1698,7 @@ and JNG (JPEG Network Graphics) images.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -152,7 +152,7 @@ BitMap) images.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -284,7 +284,7 @@ information from Paint Shop Pro images.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -379,7 +379,7 @@ KF7 and KF8 books (AZW and AZW3).
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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.22';
+$VERSION = '2.23';
 
 sub ProcessLeicaLEIC($$$);
 sub WhiteBalanceConv($;$$);
@@ -360,12 +360,16 @@ my %shootingMode = (
                 '16'    => 'Normal?', # (only mode for DMC-LC20)
                 '16 0'  => '1-area', # (FZ8)
                 '16 16' => '1-area (high speed)', # (FZ8)
+                '16 32' => '1-area +', #forum16903 (G9M2)
+                '17 0'  => 'Full Area', #forum16903 (G9M2)
                 # '32 0' is Face Detect for FS7, and Face Detect or Focus Tracking
                 # for the DMC-FZ200 (ref 17), and Auto is DMC-L1 guess,
                 '32 0'  => 'Tracking',
                 '32 1'  => '3-area (left)?', # (DMC-L1 guess)
                 '32 2'  => '3-area (center)?', # (DMC-L1 guess)
                 '32 3'  => '3-area (right)?', # (DMC-L1 guess)
+                '32 16' => 'Zone', #forum16903 (G9M2)
+                '32 18' => 'Zone (horizontal/vertical)', #forum16903 (G9M2)
                 # '32 16' ? (DC-GH6)
                 '64 0'  => 'Face Detect',
                 '64 1' => 'Face Detect (animal detect on)', #forum11194
@@ -1448,6 +1452,20 @@ my %shootingMode = (
         Name => 'MinimumISO',
         Writable => 'int32u',
     },
+    0xe9 => { #forum16903 (DC-G9M2)
+        Name => 'AFSubjectDetection',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'n/a',
+            1 => 'Human Eye/Face/Body',
+            2 => 'Animal', #PH (NC) (DC-S5 and DC-S5M2)
+            3 => 'Human Eye/Face',
+            4 => 'Animal Body',
+            5 => 'Animal Eye/Body',
+            6 => 'Car',
+            7 => 'Motorcycle',
+        }
+    },
     0xee => { #PH (DC-GH6)
         Name => 'DynamicRangeBoost',
         Writable => 'int16u',
@@ -2902,7 +2920,7 @@ Panasonic and Leica maker notes in EXIF information.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -935,7 +935,7 @@ write meta information in Panasonic/Leica RAW, RW2 and RWL images.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -825,7 +825,7 @@ timed metadata from the 'mett' frame found in Parrot drone MP4 videos.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -6477,7 +6477,7 @@ tags, and everyone who helped contribute to the LensType values.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -726,7 +726,7 @@ One maker notes.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -484,7 +484,7 @@ information from Kodak Photo CD Image Pac (PCD) files.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -237,7 +237,7 @@ write information written by the Camera Bits Photo Mechanic software.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -1262,7 +1262,7 @@ be preserved when copying Photoshop information via user-defined tags.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -768,7 +768,7 @@ This code reads meta information from EPS (Encapsulated PostScript), PS
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -112,7 +112,7 @@ Print Image Matching meta information.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -5,8 +5,9 @@
 #
 # Revisions:    2024-12-04 - P. Harvey Created
 #
-# Notes:        Tag definitions for Protobuf tags support additional 'signed'
-#               and 'unsigned' formats for varInt (type 0) values
+# Notes:        Tag definitions for Protobuf tags support additional 'signed',
+#               'unsigned' and 'int64s' formats for varInt (type 0) values,
+#               and 'rational' for byte (type 2) values
 #
 # References:   1) https://protobuf.dev/programming-guides/encoding/
 #------------------------------------------------------------------------------
@@ -17,13 +18,13 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.00';
+$VERSION = '1.02';
 
 sub ProcessProtobuf($$$;$);
 
 #------------------------------------------------------------------------------
 # Read bytes from dirInfo object
-# Inputs: 0) dirInfo ref, 1) number of bytes
+# Inputs: 0) dirInfo ref (with DataPt and Pos set), 1) number of bytes
 # Returns: binary data or undef on error
 sub GetBytes($$)
 {
@@ -105,7 +106,7 @@ sub IsProtobuf($)
 
 #------------------------------------------------------------------------------
 # Process protobuf data (eg. DJI djmd timed data from Action4 videos) (ref 1)
-# Inputs: 0) ExifTool ref, 1) dirInfo ref with DataPt, DirName and Base,
+# Inputs: 0) ExifTool ref, 1) dirInfo ref with DataPt, DataPos, DirName and Base,
 #         2) tag table ptr, 3) prefix of parent protobuf ID's
 # Returns: true on success
 sub ProcessProtobuf($$$;$)
@@ -113,27 +114,32 @@ sub ProcessProtobuf($$$;$)
     my ($et, $dirInfo, $tagTbl, $prefix) = @_;
     my $dataPt = $$dirInfo{DataPt};
     my $dirName = $$dirInfo{DirName};
+    my $dirStart = $$dirInfo{DirStart} || 0;
+    my $dirLen = $$dirInfo{DirLen} || (length($$dataPt) - $dirStart);
+    my $dirEnd = $dirStart + $dirLen;
+    my $dataPos = ($$dirInfo{Base} || 0) + ($$dirInfo{DataPos} || 0);
     my $unknown = $et->Options('Unknown') || $et->Options('Verbose');
 
     $$dirInfo{Pos} = $$dirInfo{DirStart} || 0; # initialize buffer Pos
+    $et->VerboseDir('Protobuf', undef, $dirLen);
 
     unless ($prefix) {
         $prefix = '';
-        $$et{ProtocolName}{$dirName} = '*' unless defined $$et{ProtocolName}{$dirName};
+        $$et{ProtoPrefix}{$dirName} = '' unless defined $$et{ProtoPrefix}{$dirName};
         SetByteOrder('II');
     }
     # loop through protobuf records
     for (;;) {
         my $pos = $$dirInfo{Pos};
-        last if $pos >= length $$dataPt;
+        last if $pos >= $dirEnd;
         my ($buff, $id, $type) = ReadRecord($dirInfo);
         defined $buff or $et->Warn('Protobuf format error'), last;
         if ($type == 2 and $buff =~ /\.proto$/) {
             # save protocol name separately for directory type
-            $$et{ProtocolName}{$dirName} = substr($buff, 0, -6);
+            $$et{ProtoPrefix}{$dirName} = substr($buff, 0, -6) . '_';
             $et->HandleTag($tagTbl, Protocol => $buff);
         }
-        my $tag = "$$et{ProtocolName}{$dirName}_$prefix$id";
+        my $tag = "$$et{ProtoPrefix}{$dirName}$prefix$id";
         my $tagInfo = $$tagTbl{$tag};
         if ($tagInfo) {
             next if $type != 2 and $$tagInfo{Unknown} and not $unknown;
@@ -157,23 +163,45 @@ sub ProcessProtobuf($$$;$)
         if ($$tagInfo{Format}) {
             if ($type == 0) {
                 $val = $buff;
-                $val = ($val & 1) ? -($val >> 1)-1 : ($val >> 1) if $$tagInfo{Format} eq 'signed';
+                if ($$tagInfo{Format} eq 'signed') {
+                    $val = ($val & 1) ? -($val >> 1)-1 : ($val >> 1);
+                } elsif ($$tagInfo{Format} eq 'int64s' and $val > 0xffffffff) {
+                    # hack for DJI drones which store 64-bit signed integers improperly
+                    # (just toss upper 32 bits which should be all 1's anyway)
+                    $val = ($val & 0xffffffff) - 4294967296;
+                }
+            } elsif ($type == 2 and $$tagInfo{Format} eq 'rational') {
+                my $dir = { DataPt => \$buff, Pos => 0 };
+                my $num = VarInt($dir);
+                my $den = VarInt($dir);
+                $val = (defined $num and $den) ? "$num/$den" : 'err';
             } else {
                 $val = ReadValue(\$buff, 0, $$tagInfo{Format}, undef, length($buff));
             }
         } elsif ($type == 0) {
             $val = $buff;
-            my $signed = ($val & 1) ? -($val >> 1)-1 : ($val >> 1);
-            $val .= sprintf(" (0x%x, signed $signed)", $val);
+            my $hex = sprintf('%x', $val);
+            if (length($hex) == 16 and $hex =~ /^ffffffff/) {
+                my $s64 = hex(substr($hex, 8)) - 4294967296;
+                $val .= " (0x$hex, int64s $s64)";
+            } else {
+                my $signed = ($val & 1) ? -($val >> 1)-1 : ($val >> 1);
+                $val .= " (0x$hex, signed $signed)";
+            }
         } elsif ($type == 1) {
             $val = '0x' . unpack('H*', $buff) . ' (double ' . GetDouble(\$buff,0) . ')';
         } elsif ($type == 2) {
-            if ($$tagInfo{IsProtobuf}) {
-                $et->VPrint(1, "+ Protobuf $tag (" . length($buff) . " bytes)\n");
-                my $addr = $$dirInfo{Base} + $$dirInfo{Pos} - length($buff);
-                $et->VerboseDump(\$buff, Addr => $addr);
-                my %subdir = ( DataPt => \$buff, Base => $addr, DirName => $dirName );
+            if ($$tagInfo{SubDirectory}) {
+                # (fall through to process known SubDirectory)
+            } elsif ($$tagInfo{IsProtobuf}) {
+                # process Unknown protobuf directories
+                $et->VPrint(1, "$$et{INDENT}Protobuf $tag (" . length($buff) . " bytes) -->\n");
+                my $addr = $dataPos + $$dirInfo{Pos} - length($buff);
+                $et->VerboseDump(\$buff, Addr => $addr, Prefix => $$et{INDENT});
+                my %subdir = ( DataPt => \$buff, DataPos => $addr, DirName => $dirName );
+                $$et{INDENT} .= '| ';
                 ProcessProtobuf($et, \%subdir, $tagTbl, "$prefix$id-");
+                $$et{INDENT} = substr($$et{INDENT}, 0, -2);
                 next;
             } elsif ($buff !~ /[^\x20-\x7e]/) {
                 $val = $buff;   # assume this is an ASCII string
@@ -193,7 +221,7 @@ sub ProcessProtobuf($$$;$)
         my $start = $type == 0 ? $pos + 1 : $$dirInfo{Pos} - length $buff;
         $et->HandleTag($tagTbl, $tag, $val,
             DataPt => $dataPt,
-            DataPos=> $$dirInfo{Base},
+            DataPos=> $dataPos,
             Start  => $start,
             Size   => $$dirInfo{Pos} - $start,
             Extra  => ", type=$type",
@@ -201,7 +229,7 @@ sub ProcessProtobuf($$$;$)
         );
     }
     # warn if we didn't finish exactly at the end of the buffer
-    $et->Warn('Truncated protobuf data') unless $prefix or $$dirInfo{Pos} == length $$dataPt;
+    $et->Warn('Truncated protobuf data') unless $prefix or $$dirInfo{Pos} == $dirEnd;
     return 1;
 }
 
@@ -222,7 +250,7 @@ information in protocol buffer (protobuf) format.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -1331,7 +1331,7 @@ information from the APP7 Qualcomm segment in JPEG images.
 
 =head1 AUTHOR
 
-Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.