exiftool_vendored 13.03.0 → 13.06.0

data/bin/lib/Image/ExifTool/TagNames.pod

@@ -12,7 +12,7 @@ meta information extracted from or written to a file.
 =head1 TAG TABLES
 
 The tables listed below give the names of all tags recognized by ExifTool.
-They contain a total of 28175 tags, with 17499 unique tag names.
+They contain a total of 28212 tags, with 17509 unique tag names.
 
 B<Tag ID>, B<Index#> or B<Sequence> is given in the first column of each
 table.  A B<Tag ID> is the computer-readable equivalent of a tag name, and
@@ -115,6 +115,7 @@ L<https://www.w3.org/Graphics/JPEG/jfif3.pdf> for the JPEG specification.
                FPXR                             FlashPix
                MPF                              MPF
                InfiRayVersion                   InfiRay Version
+               UniformResourceName              no
                PreviewImage                     no
   'APP3'       Meta                             Kodak Meta
                Stim                             Stim
@@ -152,6 +153,7 @@ L<https://www.w3.org/Graphics/JPEG/jfif3.pdf> for the JPEG specification.
                InfiRaySensor                    InfiRay Sensor
                SEAL                             XMP SEAL
   'APP10'      Comment                          no
+               HDRGainCurve                     no
   'APP11'      JPEG-HDR                         JPEG HDR
                JUMBF                            Jpeg2000
   'APP12'      PictureInfo                      APP12 PictureInfo
@@ -1370,6 +1372,7 @@ L<http://www.adobe.com/devnet/xmp/> for the official XMP specification.
   acdsee                                        XMP acdsee
   acdsee-rs                                     XMP ACDSeeRegions
   album                                         XMP Album
+  apdi                                          XMP apdi
   apple-fi                                      XMP apple_fi
   ast                                           Nikon ast
   aux                                           XMP aux
@@ -1402,6 +1405,7 @@ L<http://www.adobe.com/devnet/xmp/> for the official XMP specification.
   GPano                                         XMP GPano
   GSpherical                                    XMP GSpherical
   hdr                                           XMP hdr
+  HDRGainMap                                    XMP HDRGainMap
   hdrgm                                         XMP hdrgm
   ics                                           XMP ics
   iptcCore                                      XMP iptcCore
@@ -1584,6 +1588,18 @@ These tags belong to the ExifTool XMP-album family 1 group.
   --------                                      --------
   Notes                                         string
 
+=head3 XMP apdi Tags
+
+Used in Apple HDR GainMap images.
+
+These tags belong to the ExifTool XMP-apdi family 1 group.
+
+  Tag Name                                      Writable
+  --------                                      --------
+  AuxiliaryImageType                            string
+  NativeFormat                                  string
+  StoredFormat                                  string
+
 =head3 XMP apple_fi Tags
 
 Face information tags written by the Apple iPhone 5 inside the mwg-rs
@@ -5030,6 +5046,16 @@ These tags belong to the ExifTool XMP-hdr family 1 group.
   CCVWhiteXY                                    string
   SceneReferred                                 boolean
 
+=head3 XMP HDRGainMap Tags
+
+Used in Apple HDR GainMap images.
+
+These tags belong to the ExifTool XMP-HDRGainMap family 1 group.
+
+  Tag Name                                      Writable
+  --------                                      --------
+  HDRGainMapVersion                             string
+
 =head3 XMP hdrgm Tags
 
 Tags used in Adobe gain map images.
@@ -6168,11 +6194,12 @@ These tags belong to the ExifTool XMP-seal family 1 group.
 
 =head3 XMP SEAL Tags
 
-These tags are used in SEAL content authentification, which is actually XML
-format, not XMP.  ExifTool has read/delete support for SEAL information in
-JPG, TIFF, XMP, PNG, WEBP, HEIC, PPM, MOV and MP4 files, and read-only
-support in PDF, MKV and WAV.  Use C<-seal:all=> on the command line to
-delete SEAL information in supported formats.
+These tags are used in SEAL (Secure Evidence Attribution Label) content
+authentification, which is actually XML format, not XMP.  ExifTool has
+read/delete support for SEAL information in JPG, TIFF, XMP, PNG, WEBP, HEIC,
+PPM, MOV and MP4 files, and read-only support in PDF, MKV and WAV.  Use
+C<-seal:all=> on the command line to delete SEAL information in supported
+formats.  See L<https://github.com/hackerfactor/SEAL> for the specification.
 
   Tag ID               Tag Name                 Writable
   ------               --------                 --------
@@ -6180,12 +6207,15 @@ delete SEAL information in supported formats.
   'copyright'          Copyright                no
   'd'                  Domain                   no
   'da'                 DigestAlgorithm          no
+  'id'                 Identifier               no
   'info'               SEALComment              no
   'ka'                 KeyAlgorithm             no
   'kv'                 KeyVersion               no
   's'                  Signature                no
   'seal'               SEALVersion              no
   'sf'                 SignatureFormat          no
+  'sl'                 SignatureLength          no
+  'uid'                UniqueIdentifier         no
 
 =head3 XMP swf Tags
 
@@ -8873,7 +8903,7 @@ access to this information.
   0x0432   MeasurementScale?                    no
   0x0433   TimelineInfo?                        no
   0x0434   SheetDisclosure?                     no
-  0x0435   DisplayInfo?                         no
+  0x0435   ChannelOptions?                      no
   0x0436   OnionSkins?                          no
   0x0438   CountInfo?                           no
   0x043a   PrintInfo2?                          no
@@ -12908,6 +12938,35 @@ Thermal parameters extracted from APP4 of some DJI RJPEG files.
       8    Emissivity                           no
      10    ReflectedTemperature                 no
 
+=head3 DJI Protobuf Tags
+
+Tags found in protobuf-format DJI meta djmd and dbgi timed metadata.  Only a
+few tags are currently known, but unknown djmd tags may be extracted by
+setting the Unknown option to 1 (or 2 to also extract unknown dbgi debug
+tags).  Tag ID's are composed of the corresponding .proto file name combined
+with the hierarchical protobuf field numbers.  The "dvtm_AVATA2.proto" file
+is used by the DJI Avanta 2, and "dvtm_ac203.proto" by the OsmoAction4.
+
+  Tag ID                  Tag Name              Writable
+  ------                  --------              --------
+  'Protocol'              Protocol              no
+  'dvtm_AVATA2_1-1-10'    Model                 no
+  'dvtm_AVATA2_2-2-3-1'   SerialNumber          no
+  'dvtm_AVATA2_2-3-1'     FrameWidth            no
+  'dvtm_AVATA2_2-3-2'     FrameHeight           no
+  'dvtm_AVATA2_2-3-3'     FrameRate             no
+  'dvtm_AVATA2_3-1-2'     TimeStamp             no
+  'dvtm_AVATA2_3-4-4-1-2' GPSLatitude           no
+  'dvtm_AVATA2_3-4-4-1-3' GPSLongitude          no
+  'dvtm_ac203_1-1-10'     Model                 no
+  'dvtm_ac203_2-3-1'      FrameWidth            no
+  'dvtm_ac203_2-3-2'      FrameHeight           no
+  'dvtm_ac203_2-3-3'      FrameRate             no
+  'dvtm_ac203_3-4-2-1-2'  GPSLatitude           no
+  'dvtm_ac203_3-4-2-1-3'  GPSLongitude          no
+  'dvtm_ac203_3-4-2-2'    GPSAltitude           no
+  'dvtm_ac203_3-4-2-6-1'  GPSDateTime           no
+
 =head2 FLIR Tags
 
 Information extracted from the maker notes of JPEG images from thermal
@@ -24715,6 +24774,7 @@ L<https://github.com/gopro/gpmf-parser> for details about this format.
   'GLPI'   GPSPos                               GoPro GLPI
   'GPRI'   GPSRaw?                              GoPro GPRI
   'GPS5'   GPSInfo                              GoPro GPS5
+  'GPS9'   GPSInfo9                             GoPro GPS9
   'GPSA'   GPSAltitudeSystem                    no
   'GPSF'   GPSMeasureMode                       no
   'GPSP'   GPSHPositioningError                 no
@@ -24760,11 +24820,14 @@ L<https://github.com/gopro/gpmf-parser> for details about this format.
   'TMPC'   CameraTemperature                    no
   'TSMP'   TotalSamples?                        no
   'TYPE'   StructureType?                       no
+  'TZON'   TimeZone                             no
   'UNIF'   InputUniformity                      no
   'UNIT'   Units?                               no
   'VERS'   MetadataVersion                      no
   'VFOV'   FieldOfView                          no
+  'VFPS'   VideoFrameRate                       no
   'VFRH'   VisualFlightRulesHUD                 no
+  'VRES'   VideoFrameSize                       no
   'WBAL'   ColorTemperatures                    no
   'WNDM'   WindProcessing                       no
   'WRGB'   WhiteBalanceRGB                      no
@@ -24804,6 +24867,19 @@ L<https://github.com/gopro/gpmf-parser> for details about this format.
       3    GPSSpeed                             no
       4    GPSSpeed3D                           no
 
+=head3 GoPro GPS9 Tags
+
+   Index   Tag Name                             Writable
+   -----   --------                             --------
+      0    GPSLatitude                          no
+      1    GPSLongitude                         no
+      2    GPSAltitude                          no
+      3    GPSSpeed                             no
+      4    GPSSpeed3D                           no
+      6    GPSDateTime                          no
+      7    GPSDOP                               no
+      8    GPSMeasureMode                       no
+
 =head3 GoPro KBAT Tags
 
 Battery status information found in GoPro Karma videos.
@@ -29943,7 +30019,7 @@ for the official QuickTime specification.
 The tags below are extracted from timed metadata in QuickTime and other
 formats of video files when the ExtractEmbedded option is used.  Although
 most of these tags are combined into the single table below, ExifTool
-currently reads 78 different formats of timed GPS metadata from video files.
+currently reads 85 different formats of timed GPS metadata from video files.
 
   Tag Name                                      Writable
   --------                                      --------
@@ -29954,6 +30030,8 @@ currently reads 78 different formats of timed GPS metadata from video files.
   CameraDateTime                                no
   CameraModel                                   no
   Car                                           no
+  DJIDebug?                                     DJI Protobuf
+  DJIMetadata                                   DJI Protobuf
   DateTimeOriginal                              no
   DateTimeStamp                                 no
   Distance                                      no

data/bin/lib/Image/ExifTool/Writer.pl

@@ -2194,7 +2194,7 @@ sub SetSystemTags($$)
         } elsif (ref $file) {
             $self->Warn('Writing ZoneIdentifer requires a file name');
         } elsif (defined $self->GetNewValue('ZoneIdentifier', \$zhash)) {
-            $self->Warn('ZoneIndentifier may only be delted');
+            $self->Warn('ZoneIndentifier may only be deleted');
         } elsif (not eval { require Win32API::File }) {
             $self->Warn('Install Win32API::File to write ZoneIdentifier');
         } else {

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

@@ -50,7 +50,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 require Exporter;
 
-$VERSION = '3.69';
+$VERSION = '3.70';
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(EscapeXML UnescapeXML);
 
@@ -207,6 +207,8 @@ my %xmpNS = (
     # Note: Google uses a prefix of 'Container', but this conflicts with the
     # Device Container namespace, also by Google.  So call this one GContainer
     GContainer=> 'http://ns.google.com/photos/1.0/container/',
+    HDRGainMap=> 'http://ns.apple.com/HDRGainMap/1.0/',
+    apdi      => 'http://ns.apple.com/pixeldatainfo/1.0/',
 );
 
 # build reverse namespace lookup
@@ -934,6 +936,14 @@ my %sRangeMask = (
         Name => 'xmpDSA',
         SubDirectory => { TagTable => 'Image::ExifTool::Panasonic::DSA' },
     },
+    HDRGainMap => {
+        Name => 'HDRGainMap',
+        SubDirectory => { TagTable => 'Image::ExifTool::XMP::HDRGainMap' },
+    },
+    apdi => {
+        Name => 'apdi',
+        SubDirectory => { TagTable => 'Image::ExifTool::XMP::apdi' },
+    },
     seal => {
         Name => 'seal',
         SubDirectory => { TagTable => 'Image::ExifTool::XMP::seal' },

data/bin/lib/Image/ExifTool/XMP2.pl

@@ -2250,6 +2250,44 @@ my %sACDSeeRegionStruct = (
     Gamma               => { Writable => 'real', List => 'Seq', Avoid => 1 },
 );
 
+%Image::ExifTool::XMP::HDRGainMap = (
+    %xmpTableDefaults,
+    GROUPS => { 1 => 'XMP-HDRGainMap', 2 => 'Unknown' },
+    NAMESPACE   => 'HDRGainMap',
+    NOTES => 'Used in Apple HDR GainMap images.',
+    HDRGainMapVersion => {
+        PrintConv => 'IsInt($val) ? join(".",unpack("C*", pack "N", $val)) : $val',
+        PrintConvInv => q{
+            return $val unless $val =~ /^\d+\.\d+\.\d+\.\d+$/;
+            return unpack('N', pack('C*', split /\./, $val));
+        },
+    },
+);
+
+%Image::ExifTool::XMP::apdi = (
+    %xmpTableDefaults,
+    GROUPS => { 1 => 'XMP-apdi', 2 => 'Image' },
+    NAMESPACE   => 'apdi',
+    NOTES => 'Used in Apple HDR GainMap images.',
+    NativeFormat => {
+        PrintConv => q{
+            return $val unless IsInt($val);
+            my $tmp = pack("N", $val);
+            $tmp =~ /^\w{4}$/ ? $tmp : $val;
+        },
+        PrintConvInv => '$val =~ /^\w{4}$/ ? unpack("N", $val) : $val',
+    },
+    AuxiliaryImageType => { },
+    StoredFormat => {
+        PrintConv => q{
+            return $val unless IsInt($val);
+            my $tmp = pack("N", $val);
+            $tmp =~ /^\w{4}$/ ? $tmp : $val;
+        },
+        PrintConvInv => '$val =~ /^\w{4}$/ ? unpack("N", $val) : $val',
+    },
+);
+
 # SVG namespace properties (ref 9)
 %Image::ExifTool::XMP::SVG = (
     GROUPS => { 0 => 'SVG', 1 => 'SVG', 2 => 'Image' },
@@ -2307,19 +2345,23 @@ my %sACDSeeRegionStruct = (
     GROUPS => { 0 => 'XML', 1 => 'SEAL', 2 => 'Document' },
     PROCESS_PROC => \&ProcessSEAL,
     NOTES => q{
-        These tags are used in SEAL content authentification, which is actually XML
-        format, not XMP.  ExifTool has read/delete support for SEAL information in
-        JPG, TIFF, XMP, PNG, WEBP, HEIC, PPM, MOV and MP4 files, and read-only
-        support in PDF, MKV and WAV.  Use C<-seal:all=> on the command line to
-        delete SEAL information in supported formats.
+        These tags are used in SEAL (Secure Evidence Attribution Label) content
+        authentification, which is actually XML format, not XMP.  ExifTool has
+        read/delete support for SEAL information in JPG, TIFF, XMP, PNG, WEBP, HEIC,
+        PPM, MOV and MP4 files, and read-only support in PDF, MKV and WAV.  Use
+        C<-seal:all=> on the command line to delete SEAL information in supported
+        formats.  See L<https://github.com/hackerfactor/SEAL> for the specification.
     },
     seal=> 'SEALVersion',
-    kv  => 'KeyVersion',
     ka  => 'KeyAlgorithm',
+    kv  => 'KeyVersion',
     da  => 'DigestAlgorithm',
-    sf  => 'SignatureFormat',
-    d   => 'Domain',
     b   => 'ByteRange',
+    d   => 'Domain',
+    uid => 'UniqueIdentifier',
+    id  => 'Identifier',
+    sf  => 'SignatureFormat',
+    sl  => 'SignatureLength',
    's'  => 'Signature',
     info=> 'SEALComment',
     copyright => { Name => 'Copyright', Groups => { 2 => 'Author' } },

data/bin/lib/Image/ExifTool.pm

@@ -29,7 +29,7 @@ use vars qw($VERSION $RELEASE @ISA @EXPORT_OK %EXPORT_TAGS $AUTOLOAD @fileTypes
             %jpegMarker %specialTags %fileTypeLookup $testLen $exeDir
             %static_vars $advFmtSelf);
 
-$VERSION = '13.03';
+$VERSION = '13.06';
 $RELEASE = '';
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (
@@ -2583,7 +2583,7 @@ sub Options($$;@)
                 warn("Can't set $param to undef\n");
             }
         } elsif (lc $param eq 'geodir') {
-            $Image::ExifTool::Geolocation::geoDir = $newVal; # (undocumented)
+            $Image::ExifTool::Geolocation::geoDir = $newVal;
         } else {
             if ($param eq 'Escape') {
                 # set ESCAPE_PROC
@@ -2763,10 +2763,16 @@ sub ExtractInfo($;@)
                 if ($$req{filepath} or
                    ($reqAll and not $$self{EXCL_TAG_LOOKUP}{filepath}))
                 {
+                    my $path;
                     local $SIG{'__WARN__'} = \&SetWarning;
-                    if (eval { require Cwd }) {
-                        my $path = eval { Cwd::abs_path($filename) };
-                        $self->FoundTag('FilePath', $path) if defined $path;
+                    if ($^O eq 'MSWin32' and $$options{WindowsLongPath}) {
+                        $path = $self->WindowsLongPath($filename);
+                    } elsif (eval { require Cwd }) {
+                        $path = eval { Cwd::abs_path($filename) };
+                    }
+                    if (defined $path) {
+                        $path =~ tr/\\/\// if $^O eq 'MSWin32'; # return forward slashes
+                        $self->FoundTag('FilePath', $path);
                     } elsif ($$req{filepath}) {
                         $self->WarnOnce('The Perl Cwd module must be installed to use FilePath');
                     }
@@ -4404,6 +4410,7 @@ sub DoneExtract($)
             local $SIG{'__WARN__'} = \&SetWarning;
             undef $evalWarning;
             $$opts{GeolocMulti} = $$opts{Duplicates};
+            $self->VPrint(0, "Geolocation arguments: '${arg}'\n");
             my ($cities, $dist) = Image::ExifTool::Geolocation::Geolocate($arg, $opts);
             delete $$opts{GeolocMulti};
             if ($cities and (@$cities < 2 or $dist or not $self->Warn('Multiple Geolocation cities are possible',2))) {
@@ -4632,8 +4639,7 @@ sub EncodeFileName($$;$)
             }
         }
     }
-    $force = 1 if $$self{OPTIONS}{WindowsWideFile} or $$self{OPTIONS}{WindowsLongPath};
-    if ($hasSpecialChars or $force) {
+    if ($hasSpecialChars or $force or $$self{OPTIONS}{WindowsLongPath} or $$self{OPTIONS}{WindowsWideFile}) {
         $enc or $enc = 'UTF8';
         if ($^O eq 'MSWin32') {
             local $SIG{'__WARN__'} = \&SetWarning;
@@ -4654,8 +4660,8 @@ sub EncodeFileName($$;$)
 
 #------------------------------------------------------------------------------
 # Rebuild a path as an absolute long path to be usable in Windows system calls
-# Inputs: 0) ExifTool ref, 1) path string
-# Returns: normalized long path
+# Inputs: 0) ExifTool ref, 1) path string (CharsetFileName)
+# Returns: normalized long path (CharsetFileName)
 # Note: this should only be called for Windows systems
 # References:
 # - https://learn.microsoft.com/en-us/dotnet/standard/io/file-path-formats
@@ -4674,12 +4680,25 @@ sub WindowsLongPath($$)
     my ($self, $path) = @_;
     my $debug = $$self{OPTIONS}{Debug};
     my $out = $$self{OPTIONS}{TextOut};
+    my $suffix = '';
+    my $longPath;
+
+    # remove common suffixes to make cache more effective
+    if ($path =~ s/(_original|_exiftool_tmp|:Zone\.Identifier)$//) {
+        $suffix = $1;
+        if (not length $path or $path =~ m([:./\\]$)) {
+            # don't remove suffix if it could be the whole file name
+            $path .= $suffix;
+            $suffix = '';
+        }
+    }
+    return $$self{LONG_PATH_OUT}.$suffix if defined $$self{LONG_PATH_IN} and $$self{LONG_PATH_IN} eq $path;
 
-    $debug and print $out "WindowsLongPath input : $path\n";
+    $debug and print $out "WindowsLongPath input : $path$suffix\n";
 
     for (;;) { # (cheap goto)
-        $path =~ tr(/)(\\); # convert slashes to backslashes    
-        last if $path =~ /^\\\\\?\\/;   # already a device path in the format we want
+        ($longPath = $path) =~ tr(/)(\\); # convert slashes to backslashes    
+        last if $longPath =~ /^\\\\\?\\/;   # already a device path in the format we want
     
         unless ($k32GetFullPathName) {  # need to import (once) GetFullPathNameW
             last if defined $k32GetFullPathName;
@@ -4695,23 +4714,27 @@ sub WindowsLongPath($$)
             }
         }
         my $enc = $$self{OPTIONS}{CharsetFileName};
-        my $encPath = $self->Encode($path, 'UTF16', 'II', $enc);    # need to encode to UTF16
+        my $encPath = $self->Encode($longPath, 'UTF16', 'II', $enc);# need to encode to UTF16
         my $lenReq = $k32GetFullPathName->Call($encPath,0,0,0) + 1; # first pass gets length required, +1 for safety (null?)
         my $fullPath = "\0" x $lenReq x 2;                          # create buffer to hold full path
         $k32GetFullPathName->Call($encPath, $lenReq, $fullPath, 0); # fullPath is UTF16 now
-        $path = $self->Decode($fullPath, 'UTF16', 'II', $enc);
+        $longPath = $self->Decode($fullPath, 'UTF16', 'II', $enc);
     
-        last if length($path) <= 247;
+        last if length($longPath) <= 247 - length($suffix);
 
-        if ($path =~ /^\\\\/) {
-            $path = '\\\\?\\UNC' . substr($path, 1);
+        if ($longPath =~ /^\\\\/) {
+            $longPath = '\\\\?\\UNC' . substr($longPath, 1);
         } else {
-            $path = '\\\\?\\' . $path;
+            $longPath = '\\\\?\\' . $longPath;
         }
         last;
     }
-    $debug and print $out "WindowsLongPath return: $path\n";
-    return $path;
+    # this may be called repeatedly for the same file file (exists, stat, open),
+    # so cache the last return value (without any of the suffixes that we use)
+    $$self{LONG_PATH_IN} = $path;
+    $$self{LONG_PATH_OUT} = $longPath;
+    $debug and print $out "WindowsLongPath return: $longPath$suffix\n";
+    return $longPath . $suffix;
 }
 
 #------------------------------------------------------------------------------
@@ -7432,7 +7455,7 @@ sub ProcessJPEG($$;$)
         }
         # handle all other markers
         my $dumpType = '';
-        my ($desc, $tip, $xtra);
+        my ($desc, $tip, $xtra, $useJpegMain);
         $length = length $$segDataPt;
         $appBytes += $length + 4 if ($marker & 0xf0) == 0xe0;  # total size of APP segments
         if ($verbose) {
@@ -7652,7 +7675,7 @@ sub ProcessJPEG($$;$)
                     $self->Warn("Ignored APP1 segment length $length (unknown header)");
                 }
             }
-        } elsif ($marker == 0xe2) {         # APP2 (ICC Profile, FPXR, MPF, InfiRay, PreviewImage)
+        } elsif ($marker == 0xe2) {         # APP2 (ICC Profile, FPXR, MPF, InfiRay, URN, PreviewImage)
             if ($$segDataPt =~ /^ICC_PROFILE\0/ and $length >= 14) {
                 $dumpType = 'ICC_Profile';
                 # must concatenate profile chunks (note: handle the case where
@@ -7725,6 +7748,9 @@ sub ProcessJPEG($$;$)
                 # Digilife DDC-690/Rollei="BGTH"
                 $dumpType = 'Preview Image';
                 $preview = substr($$segDataPt, length($1));
+            } elsif ($$segDataPt =~ /^urn:/) {  # (found in Apple HDR images)
+                $dumpType = 'URN';
+                $useJpegMain = 1;
             } elsif ($preview) {
                 $dumpType = 'Preview Image';
                 $preview .= $$segDataPt;
@@ -7994,17 +8020,14 @@ sub ProcessJPEG($$;$)
                 DirStart(\%dirInfo, 5);
                 $self->ProcessDirectory(\%dirInfo, GetTagTable("Image::ExifTool::XMP::SEAL"));
             }
-        } elsif ($marker == 0xea) {         # APP10 (PhotoStudio Unicode comments)
+        } elsif ($marker == 0xea) {         # APP10 (PhotoStudio Unicode comments, HDR gain curve)
             if ($$segDataPt =~ /^UNICODE\0/) {
                 $dumpType = 'PhotoStudio';
                 my $comment = $self->Decode(substr($$segDataPt,8), 'UCS2', 'MM');
                 $self->FoundTag('Comment', $comment);
-            } elsif ($$segDataPt =~ /^AROT\0/ and $length > 10) {
-                # iPhone "AROT" segment containing integrated intensity per 16 scan lines
-                # (with number of elements N = ImageHeight / 16 - 1, ref PH/NealKrawetz)
-                # "Absolute ROTational difference between two frames"
-                # (see https://www.hackerfactor.com/blog/index.php?/archives/822-Apple-Rot.html)
-                $xtra = 'segment (N=' . unpack('x6N', $$segDataPt) . ')';
+            } elsif ($$segDataPt =~ /^AROT\0\0.{4}/s) {
+                $dumpType = 'AROT', # (HDR gain curve? PH guess)
+                $useJpegMain = 1;
             }
         } elsif ($marker == 0xeb) {         # APP11 (JPEG-HDR, JUMBF)
             if ($$segDataPt =~ /^HDR_RI /) {
@@ -8171,6 +8194,10 @@ sub ProcessJPEG($$;$)
             $desc = "[JPEG $markerName]";   # (other known JPEG segments)
         }
         if (defined $dumpType) {
+            if ($useJpegMain) {
+                my $tagTablePtr = GetTagTable('Image::ExifTool::JPEG::Main');
+                $self->HandleTag($tagTablePtr, $markerName, $$segDataPt);
+            }
             if (not $dumpType and ($$options{Unknown} or $$options{Validate})) {
                 my $str = ($$segDataPt =~ /^([\x20-\x7e]{1,20})\0/) ? " '${1}'" : '';
                 $xtra = 'segment' unless $xtra;
@@ -8915,6 +8942,7 @@ sub GetTagInfo($$$;$$$)
     my ($valPt, $format, $count);
 
     my @infoArray = GetTagInfoList($tagTablePtr, $tagID);
+    my $options = $$self{OPTIONS};
     # evaluate condition
     my $tagInfo;
     foreach $tagInfo (@infoArray) {
@@ -8933,9 +8961,9 @@ sub GetTagInfo($$$;$$$)
             }
         }
         # don't return Unknown tags unless that option is set (also see forum13716)
-        if ($$tagInfo{Unknown} and not $$self{OPTIONS}{Unknown} and not
-            ($$self{OPTIONS}{Verbose} or $$self{HTML_DUMP} or
-            ($$self{OPTIONS}{Validate} and not $$tagInfo{AddedUnknown})))
+        if ($$tagInfo{Unknown} and not $$options{Unknown} and not
+            ($$options{Verbose} or $$self{HTML_DUMP} or
+            ($$options{Validate} and not $$tagInfo{AddedUnknown})))
         {
             return undef;
         }
@@ -8943,7 +8971,7 @@ sub GetTagInfo($$$;$$$)
         return $tagInfo;
     }
     # generate information for unknown tags (numerical only) if required
-    if (not $tagInfo and ($$self{OPTIONS}{Unknown} or $$self{OPTIONS}{Verbose}) and
+    if (not $tagInfo and ($$options{Unknown} or $$options{Verbose} or $$self{HTML_DUMP}) and
         $tagID =~ /^\d+$/ and not $$self{NO_UNKNOWN})
     {
         my $printConv;

data/bin/lib/Image/ExifTool.pod

@@ -1197,14 +1197,15 @@ on tag values and JPEG segment data respectively.
 =item WindowsLongPath
 
 Support long path names in Windows.  Enabling this option automatically
-enables the WindowsWideFile feature.
+enables the WindowsWideFile feature.  Default is 1.
 
 =item WindowsWideFile
 
 Force the use of wide-character Windows I/O functions.  This may be
 necessary when files are on a network drive and the current directory name
-contains Unicode characters. By default, the wide-character functions are
-used only if the specified file path contains Unicode characters.
+contains Unicode characters.  Without this option the wide-character
+functions are used only if the specified file path contains Unicode
+characters.
 
 =item WriteMode
 
@@ -2545,9 +2546,9 @@ GoPro, H264, HTML, ICC_Profile, ID3, IPTC, ISO, ITC, JFIF, JPEG, JSON,
 JUMBF, Jpeg2000, LNK, Leaf, Lytro, M2TS, MIE, MIFF, MISB, MNG, MOI, MPC,
 MPEG, MPF, MXF, MakerNotes, Matroska, Meta, Ogg, OpenEXR, Opus, PDF, PICT,
 PLIST, PNG, PSP, Palm, PanasonicRaw, Parrot, PhotoCD, PhotoMechanic,
-Photoshop, PostScript, PrintIM, QuickTime, RAF, RIFF, RSRC, RTF, Radiance,
-Rawzor, Real, Red, SVG, SigmaRaw, Sony, Stim, Theora, Torrent, Trailer,
-VCard, Vorbis, WTV, XML, XMP, ZIP
+Photoshop, PostScript, PrintIM, Protobuf, QuickTime, RAF, RIFF, RSRC, RTF,
+Radiance, Rawzor, Real, Red, SVG, SigmaRaw, Sony, Stim, Theora, Torrent,
+Trailer, VCard, Vorbis, WTV, XML, XMP, ZIP
 
 =item Family 1 (Specific Location):
 

data/bin/perl-Image-ExifTool.spec

@@ -1,6 +1,6 @@
 Summary: perl module for image data extraction
 Name: perl-Image-ExifTool
-Version: 13.03
+Version: 13.06
 Release: 1
 License: Artistic/GPL
 Group: Development/Libraries/Perl

data/lib/exiftool_vendored/version.rb

@@ -1,5 +1,5 @@
 # frozen_string_literal: true
 
 module ExiftoolVendored
-  VERSION = Gem::Version.new('13.03.0')
+  VERSION = Gem::Version.new('13.06.0')
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: exiftool_vendored
 version: !ruby/object:Gem::Version
-  version: 13.03.0
+  version: 13.06.0
 platform: ruby
 authors:
 - Matthew McEachen
@@ -9,7 +9,7 @@ authors:
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2024-11-17 00:00:00.000000000 Z
+date: 2024-12-05 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: exiftool
@@ -257,6 +257,7 @@ files:
 - bin/lib/Image/ExifTool/Photoshop.pm
 - bin/lib/Image/ExifTool/PostScript.pm
 - bin/lib/Image/ExifTool/PrintIM.pm
+- bin/lib/Image/ExifTool/Protobuf.pm
 - bin/lib/Image/ExifTool/Qualcomm.pm
 - bin/lib/Image/ExifTool/QuickTime.pm
 - bin/lib/Image/ExifTool/QuickTimeStream.pl