exiftool-vendored.pl 12.49.0 → 12.50.0

package/bin/Changes

@@ -4,9 +4,44 @@ ExifTool Version History
 
 RSS feed: https://exiftool.org/rss.xml
 
-Note: The most recent production release is Version 12.42. (Other versions are
+Note: The most recent production release is Version 12.50. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+Nov. 8, 2022 - Version 12.50 (production release)
+
+  - Added a new XMP-GCreations tag
+  - Added a few new Sony lenses (thanks Jos Roost)
+  - Added new SonyModelID and Olympus CameraType values (thanks LibRaw and Herb)
+  - Added a couple of new XMP tags (thanks Jose Oliver-Didier)
+  - Added a new Nikon Z lens (thanks LibRaw)
+  - Added a new Canon LensType and CanonModelID (thanks Norbert Wasser and
+    LibRaw)
+  - Added some new Pentax lenses (thanks LibRaw)
+  - Added experimental support for timed GPS in TS videos from Jomise T860S-GM
+    dashcam (more samples are needed for this to be finalized)
+  - Decode information written in "skip" atom of 70mai Pro Plus+ MP4 videos
+  - Decode timed accelerometer data from Kenwood dashcam MP4 videos
+  - Decode a few new Nikon Z9 tags (thanks Stefan Grussen)
+  - Decode ColorData for some newer Canon models (thanks LibRaw)
+  - Decode a number of new tags for the Sony ILCE-7RM5 (thanks Jos Roost)
+  - Updated IPTC XMP tags to correspond with new Photo Metadata 2022.1 standard
+  - Extract JPEG previews from FujiFilm HIF images
+  - Changed -if option so multiple -if options are evaluated at the lowest
+    specified -fast level
+  - Changed MIMEType for ICO and CUR files
+  - Enhanced -fast2 so it stops processing QuickTime files at mdat atom
+  - Enhanced -listx output so -f also indicates the ID of the parent structure
+    for Flattened tags
+  - Improved conversion of IPTC date-only and time-only tags to allow formatting
+    with the -d option
+  - Improved Canon and Nikon TimeZone tags to accept a wider variety of input
+    formats when writing
+  - Disabled extraction of Nikon Z9 MenuSettings for firmware 3.0 until they can
+    be properly decoded (thanks Warren Hatch)
+  - Fixed decoding of AF points for some newer Nikon models
+  - Fixed inconsistent year and time zone for Kenwood dashcam timed GPS in MP4
+    videos
+
 Oct. 19, 2022 - Version 12.49
 
   - Added read support for Windows ICO and CUR files
@@ -320,7 +355,7 @@ Oct. 16, 2021 - Version 12.33
   - Added a new Canon RF lens (thanks Norbert Wasser)
   - Decode Canon ShutterMode (thanks John Moyer)
   - Extract LensModel from some Olympus MOV videos
-  - Generate MediaDataOffset/Size for MOV videos with zero-sized MDAT chunk
+  - Generate MediaDataOffset/Size for MOV videos with zero-sized mdat chunk
   - Improvements to CBOR reader, including hex dump with -v3 option
   - Recognize Final Cut Pro XML files
   - Allow binary data of Protected tags to be extracted with the -X -j and -php
@@ -2119,7 +2154,7 @@ Mar. 1, 2018 - Version 10.82
   - Added a few new CanonModelID/SonyModelID values (thanks LibRaw)
   - Added support for the Sony ILCE-7M3 (thanks Jos Roost)
   - Decode timed GPS information from Insta360 MP4 videos with the -ee option
-  - Write XMP before idat in MOV/MP4/CR3 files if possible
+  - Write XMP before mdat in MOV/MP4/CR3 files if possible
   - Fixed "'x' outside of string" runtime error when reading some Sony images
   - Fixed problem with some hex dumps going to the console when -v3 was combined
     with the -w option

package/bin/MANIFEST

@@ -598,6 +598,8 @@ t/GoPro.t
 t/GoPro_2.out
 t/HTML.t
 t/HTML_2.out
+t/ICO.t
+t/ICO_2.out
 t/IPTC.t
 t/IPTC_2.out
 t/IPTC_4.out
@@ -1025,6 +1027,7 @@ t/images/Geotag_DJI_2020-12-02_[07-50-31].csv
 t/images/GoPro.jpg
 t/images/HTML.html
 t/images/ICC_Profile.icc
+t/images/ICO.ico
 t/images/IPTC.jpg
 t/images/ISO.iso
 t/images/ITC.itc

package/bin/META.json

@@ -47,6 +47,6 @@
       }
    },
    "release_status" : "stable",
-   "version" : "12.49",
+   "version" : "12.50",
    "x_serialization_backend" : "JSON::PP version 4.02"
 }

package/bin/META.yml

@@ -28,5 +28,5 @@ recommends:
   Time::HiRes: 0
 requires:
   perl: 5.004
-version: 12.49
+version: 12.50
 x_serialization_backend: 'JSON::PP version 4.02'

package/bin/README

@@ -107,8 +107,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-12.49.tar.gz | tar -xf -
-  cd Image-ExifTool-12.49
+  gzip -dc Image-ExifTool-12.50.tar.gz | tar -xf -
+  cd Image-ExifTool-12.50
   ./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 = '12.49';
+my $version = '12.50';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
 BEGIN {
@@ -1009,8 +1009,12 @@ for (;;) {
     }
     if (/^if(\d*)$/i) {
         my $cond = shift;
-        $fastCondition = $1 if length $1;
+        my $fast = length($1) ? $1 : undef;
         defined $cond or Error("Expecting expression for -if option\n"), $badCmd=1, next;
+        # use lowest -fast setting if multiple conditions
+        if (not @condition or not defined $fast or (defined $fastCondition and $fastCondition > $fast)) {
+            $fastCondition = $fast;
+        }
         # prevent processing file unnecessarily for simple case of failed '$ok' or 'not $ok'
         $cond =~ /^\s*(not\s*)\$ok\s*$/i and ($1 xor $rtnValPrev) and $failCondition=1;
         # add to list of requested tags
@@ -5470,7 +5474,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 12.49 --
+    -- Generated by ExifTool 12.50 --
     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
@@ -5889,12 +5893,14 @@ audio/video data in WAV/AVI files to search for additional metadata.  These
 speed benefits are small when reading images directly from disk, but can be
 substantial if piping images through a network connection.  For more
 substantial speed benefits, B<-fast2> also causes exiftool to avoid
-extracting any EXIF MakerNote information.  B<-fast3> avoids extracting
-metadata from the file, and returns only pseudo System tags, but still reads
-the file header to obtain an educated guess at FileType.  B<-fast4> doesn't
-even read the file header, and returns only System tags and a FileType based
-on the file extension.  B<-fast5> also disables generation of the Composite
-tags (like B<-e>).  Has no effect when writing.
+extracting any EXIF MakerNote information, and to stop processing at the
+IDAT chunk of PNG images and the mdat atom of QuickTime-format files (but
+note that some files may store metadata after this).  B<-fast3> avoids
+extracting metadata from the file, and returns only pseudo System tags, but
+still reads the file header to obtain an educated guess at FileType.
+B<-fast4> doesn't even read the file header, and returns only System tags
+and a FileType based on the file extension.  B<-fast5> also disables
+generation of the Composite tags (like B<-e>).  Has no effect when writing.
 
 Note that a separate B<-fast> setting may be used for evaluation of a B<-if>
 condition, or when ordering files with the B<-fileOrder> option.  See the
@@ -5914,14 +5920,13 @@ order may be reversed by prefixing the tag name with a C<-> (eg.
 C<-fileOrder -createdate>).  Print conversion of the sorted values is
 disabled with the B<-n> option, or a C<#> appended to the tag name.  Other
 formatting options (eg. B<-d>) have no effect on the sorted values.  Note
-that the B<-fileOrder> option can have a large performance impact since it
-involves an additional processing pass of each file, but this impact may be
-reduced by specifying a I<NUM> for the B<-fast> level used during the
-metadata-extraction phase.  For example, B<-fileOrder4> may be used if
-I<TAG> is a pseudo System tag.  If multiple B<-fileOrder> options are used,
-the extraction is done at the lowest B<-fast> level.  Note that files are
-sorted across directory boundaries if multiple input directories are
-specified.
+that the B<-fileOrder> option can incur large performance penalty since it
+involves an additional initial processing pass of all files, but this impact
+may be reduced by specifying a I<NUM> to effectively set the B<-fast> level
+for the initial pass.  For example, B<-fileOrder4> may be used if I<TAG> is
+a pseudo System tag.  If multiple B<-fileOrder> options are used, the
+extraction is done at the lowest B<-fast> level.  Note that files are sorted
+across directory boundaries if multiple input directories are specified.
 
 =item B<-i> I<DIR> (B<-ignore>)
 
@@ -6256,12 +6261,13 @@ are some examples:
 
 When combined with B<-listx>, the B<-s> option shortens the output by
 omitting the descriptions and values (as in the last example above), and
-B<-f> adds a 'flags' attribute if applicable.  The flags are formatted as a
-comma-separated list of the following possible values:  Avoid, Binary, List,
-Mandatory, Permanent, Protected, Unknown and Unsafe (see the L<Tag Name
-documentation|Image::ExifTool::TagNames>).  For XMP List tags, the list type
-(Alt, Bag or Seq) is added to the flags, and flattened structure tags are
-indicated by a Flattened flag.
+B<-f> adds 'flags' and 'struct' attributes if applicable.  The flags are
+formatted as a comma-separated list of the following possible values: 
+Avoid, Binary, List, Mandatory, Permanent, Protected, Unknown and Unsafe
+(see the L<Tag Name documentation|Image::ExifTool::TagNames>).  For XMP List
+tags, the list type (Alt, Bag or Seq) is added to the flags, and flattened
+structure tags are indicated by a Flattened flag with 'struct' giving the ID
+of the parent structure.
 
 Note that none of the B<-list> options require an input I<FILE>.
 

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

@@ -35,7 +35,7 @@ use Image::ExifTool::Sony;
 use Image::ExifTool::Validate;
 use Image::ExifTool::MacOS;
 
-$VERSION = '3.49';
+$VERSION = '3.50';
 @ISA = qw(Exporter);
 
 sub NumbersFirst($$);
@@ -1291,16 +1291,19 @@ TagID:  foreach $tagID (@keys) {
                         $printConv = shift @printConvList;
                         $index = shift @indexList;
                     }
-                } elsif ($printConv and $printConv =~ /DecodeBits\(\$val,\s*(\{.*\})\s*\)/s) {
+                # look inside scalar PrintConv for a bit/byte conversion
+                # (see Photoshop:PrintFlags for use of "$byte" decoding)
+                } elsif ($printConv and $printConv =~ /DecodeBits\(\$(val|byte),\s*(\\\%[\w:]+|\{.*\})\s*\)/s) {
+                    my $type = $1 eq 'byte' ? 'Byte' : 'Bit';
                     $$self{Model} = '';   # needed for Nikon ShootingMode
-                    my $bits = eval $1;
+                    my $bits = eval $2;
                     delete $$self{Model};
                     if ($@) {
                         warn $@;
                     } else {
                         my @pk = sort { NumbersFirst($a,$b) } keys %$bits;
                         foreach (@pk) {
-                            push @values, "Bit $_ = " . $$bits{$_};
+                            push @values, "$type $_ = " . $$bits{$_};
                         }
                     }
                 }

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

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '4.62';
+$VERSION = '4.63';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -620,8 +620,9 @@ $VERSION = '4.62';
    '61182.40' => 'Canon RF 1200mm F8L IS USM', #42
    '61182.41' => 'Canon RF 1200mm F8L IS USM + RF1.4x', #42
    '61182.42' => 'Canon RF 1200mm F8L IS USM + RF2x', #42
+   '61182.43' => 'Canon RF 135mm F1.8 L IS USM', #42
     # we need the RFLensType values for the following...
-   '61182.43' => 'Canon RF 5.2mm F2.8L Dual Fisheye 3D VR', #PH (NC)
+   '61182.44' => 'Canon RF 5.2mm F2.8L Dual Fisheye 3D VR', #PH (NC)
     65535 => 'n/a',
 );
 
@@ -982,6 +983,7 @@ $VERSION = '4.62';
     0x80000465 => 'EOS R10', #42
     0x80000467 => 'PowerShot ZOOM',
     0x80000468 => 'EOS M50 Mark II / Kiss M2', #IB
+    0x80000481 => 'EOS R6 Mark II', #42
     0x80000520 => 'EOS D2000C', #IB
     0x80000560 => 'EOS D6000C', #PH (guess)
 );
@@ -1944,7 +1946,7 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
             SubDirectory => { TagTable => 'Image::ExifTool::Canon::ColorData10' },
         },
         {   # (int16u[3973]) - R3 ref IB
-            Condition => '$count == 3973',
+            Condition => '$count == 3973 or $count == 3778',
             Name => 'ColorData11',
             SubDirectory => { TagTable => 'Image::ExifTool::Canon::ColorData11' },
         },
@@ -6377,10 +6379,11 @@ my %ciMaxFocal = (
     1 => {
         Name => 'TimeZone',
         PrintConv => 'Image::ExifTool::TimeZoneString($val)',
-        PrintConvInv => sub {
-            my $val = shift;
-            $val =~ /^([-+]?)(\d{1,2}):?(\d{2})$/ or return undef;
-            return(($1 eq '-' ? -1 : 1) * ($2 * 60 + $3));
+        PrintConvInv => q{
+            $val =~ /Z$/ and return 0;
+            $val =~ /([-+])(\d{1,2}):?(\d{2})$/ and return $1 . ($2 * 60 + $3);
+            $val =~ /^(\d{2})(\d{2})$/ and return $1 * 60 + $2;
+            return undef;
         },
     },
     2 => {
@@ -6836,6 +6839,7 @@ my %ciMaxFocal = (
             299 => 'Canon RF 1200mm F8L IS USM + RF1.4x', #42
             300 => 'Canon RF 1200mm F8L IS USM + RF2x', #42
             302 => 'Canon RF 15-30mm F4.5-6.3 IS STM', #42
+            303 => 'Canon RF 135mm F1.8 L IS USM', #42
             # Note: add new RF lenses to %canonLensTypes with ID 61182
         },
     },
@@ -8333,7 +8337,7 @@ my %ciMaxFocal = (
 # Color data (MakerNotes tag 0x4001, count=3973, ref IB)
 %Image::ExifTool::Canon::ColorData11 = (
     %binaryDataAttrs,
-    NOTES => 'These tags are used by the EOS R3',
+    NOTES => 'These tags are used by the EOS R3, R7 and R6mkII',
     FORMAT => 'int16s',
     FIRST_ENTRY => 0,
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
@@ -8345,6 +8349,7 @@ my %ciMaxFocal = (
         RawConv => '$$self{ColorDataVersion} = $val',
         PrintConv => {
             34 => '34 (R3)', #IB
+            48 => '48 (R7, R10, R6 Mark II)', #IB
         },
     },
     0x69 => { Name => 'WB_RGGBLevelsAsShot',     Format => 'int16s[4]' },

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

@@ -1084,11 +1084,11 @@ my %opcodeInfo = (
         {
             Name => 'ThumbnailOffset',
             Notes => q{
-                ThumbnailOffset in IFD1 of JPEG and some TIFF-based images, IFD0 of MRW
-                images and AVI and MOV videos, and the SubIFD in IFD1 of SRW images;
-                PreviewImageStart in MakerNotes and IFD0 of ARW and SR2 images;
-                JpgFromRawStart in SubIFD of NEF images and IFD2 of PEF images; and
-                OtherImageStart in everything else
+                called JPEGInterchangeFormat in the specification, this is ThumbnailOffset
+                in IFD1 of JPEG and some TIFF-based images, IFD0 of MRW images and AVI and
+                MOV videos, and the SubIFD in IFD1 of SRW images; PreviewImageStart in
+                MakerNotes and IFD0 of ARW and SR2 images; JpgFromRawStart in SubIFD of NEF
+                images and IFD2 of PEF images; and OtherImageStart in everything else
             },
             # thumbnail is found in IFD1 of JPEG and TIFF images, and
             # IFD0 of EXIF information in FujiFilm AVI (RIFF) and MOV videos
@@ -1225,6 +1225,7 @@ my %opcodeInfo = (
         {
             Name => 'ThumbnailLength',
             Notes => q{
+                called JPEGInterchangeFormatLength in the specification, this is
                 ThumbnailLength in IFD1 of JPEG and some TIFF-based images, IFD0 of MRW
                 images and AVI and MOV videos, and the SubIFD in IFD1 of SRW images;
                 PreviewImageLength in MakerNotes and IFD0 of ARW and SR2 images;

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

@@ -558,7 +558,7 @@ DoneFix:    $isDate = 1;
         } elsif ($nmea eq 'RMC') {
             #  $GPRMC,092204.999,A,4250.5589,S,14718.5084,E,0.00,89.68,211200,,*25
             #  $GPRMC,093657.007,,3652.835020,N,01053.104094,E,1.642,,290913,,,A*0F
-            #  $GPRMC,hhmmss.sss,A/V,ddmm.mmmm,N/S,ddmmm.mmmm,E/W,spd(knots),dir(deg),DDMMYY,,*cs
+            #  $GPRMC,hhmmss.sss,A/V,ddmm.mmmm,N/S,dddmm.mmmm,E/W,spd(knots),dir(deg),DDMMYY,,*cs
             /^\$[A-Z]{2}RMC,(\d{2})(\d{2})(\d+(\.\d*)?),A?,(\d*?)(\d{1,2}\.\d+),([NS]),(\d*?)(\d{1,2}\.\d+),([EW]),(\d*\.?\d*),(\d*\.?\d*),(\d{2})(\d{2})(\d+)/ or next;
             next if $13 > 31 or $14 > 12 or $15 > 99;   # validate day/month/year
             $fix{lat} = (($5 || 0) + $6/60) * ($7 eq 'N' ? 1 : -1);

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

@@ -86,6 +86,8 @@ sub ProcessICO($$$)
     # verify this is a valid ICO/CUR file
     return 0 unless $raf->Read($buff, 6) == 6;
     return 0 unless $buff =~ /^\0\0([\x01\x02])\0[^0]\0/s;
+    # (note: have seen cursor files in the wild with an 0x01 here,
+    # but SetFileType will use the .cur extension to identify these)
     $et->SetFileType($1 eq "\x01" ? 'ICO' : 'CUR');
     SetByteOrder('II');
     my $tagTbl = GetTagTable('Image::ExifTool::ICO::Main');

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

@@ -15,7 +15,7 @@ use strict;
 use vars qw($VERSION $AUTOLOAD %iptcCharset);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.57';
+$VERSION = '1.58';
 
 %iptcCharset = (
     "\x1b%G"  => 'UTF8',
@@ -411,6 +411,7 @@ my %fileFormat = (
         Shift => 'Time',
         ValueConv => 'Image::ExifTool::Exif::ExifDate($val)',
         ValueConvInv => 'Image::ExifTool::IPTC::IptcDate($val)',
+        PrintConv => '$self->Options("DateFormat") ? $self->ConvertDateTime("$val 00:00:00") : $val',
         PrintConvInv => 'Image::ExifTool::IPTC::InverseDateOrTime($self,$val)',
     },
     60 => {
@@ -420,6 +421,7 @@ my %fileFormat = (
         Shift => 'Time',
         ValueConv => 'Image::ExifTool::Exif::ExifTime($val)',
         ValueConvInv => 'Image::ExifTool::IPTC::IptcTime($val)',
+        PrintConv => '$self->Options("DateFormat") ? $self->ConvertDateTime("1970:01:01 $val") : $val',
         PrintConvInv => 'Image::ExifTool::IPTC::InverseDateOrTime($self,$val)',
     },
     62 => {
@@ -429,6 +431,7 @@ my %fileFormat = (
         Shift => 'Time',
         ValueConv => 'Image::ExifTool::Exif::ExifDate($val)',
         ValueConvInv => 'Image::ExifTool::IPTC::IptcDate($val)',
+        PrintConv => '$self->Options("DateFormat") ? $self->ConvertDateTime("$val 00:00:00") : $val',
         PrintConvInv => 'Image::ExifTool::IPTC::InverseDateOrTime($self,$val)',
     },
     63 => {
@@ -438,6 +441,7 @@ my %fileFormat = (
         Shift => 'Time',
         ValueConv => 'Image::ExifTool::Exif::ExifTime($val)',
         ValueConvInv => 'Image::ExifTool::IPTC::IptcTime($val)',
+        PrintConv => '$self->Options("DateFormat") ? $self->ConvertDateTime("1970:01:01 $val") : $val',
         PrintConvInv => 'Image::ExifTool::IPTC::InverseDateOrTime($self,$val)',
     },
     65 => {

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

@@ -32,7 +32,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.22';
+$VERSION = '1.23';
 
 # program map table "stream_type" lookup (ref 6/1/9)
 my %streamType = (
@@ -415,6 +415,48 @@ sub ParsePID($$$$$)
                 }
             }
             $more = 1;
+        } elsif ($$dataPt =~ /\$GPRMC,/) {
+            # Jomise T860S-GM dashcam
+            # $GPRMC,hhmmss.ss,A,ddmm.mmmmm,N,dddmm.mmmmm,W,spd-kts,dir-dg,DDMMYY,,*cs
+            # $GPRMC,172255.00,A,:985.95194,N,17170.14674,W,029.678,170.68,240822,,,D*7B
+            # $GPRMC,172355.00,A,:984.76779,N,17170.00473,W,032.219,172.04,240822,,,D*7B
+            # ddmm.mmmm: from    4742.2568    12209.2028 (should be)
+            # to                 4741.7696    12209.1056
+            # stamped on video:  47.70428N, 122.15338W, 35mph (dd.ddddd)
+            # to                 47.69616N, 122.15176W, 37mph
+            my $tagTbl = GetTagTable('Image::ExifTool::QuickTime::Stream');
+            while ($$dataPt =~ /\$[A-Z]{2}RMC,(\d{2})(\d{2})(\d+(\.\d*)?),A?,(.{2})(\d{2}\.\d+),([NS]),(.{3})(\d{2}\.\d+),([EW]),(\d*\.?\d*),(\d*\.?\d*),(\d{2})(\d{2})(\d+)/g and
+                # do some basic sanity checks on the date
+                $13 <= 31 and $14 <= 12 and $15 <= 99)
+            {
+                $$et{DOC_NUM} = ++$$et{DOC_COUNT};
+                my $year = $15 + ($15 >= 70 ? 1900 : 2000);
+                $et->HandleTag($tagTbl, GPSDateTime => sprintf('%.4d:%.2d:%.2d %.2d:%.2d:%.2dZ', $year, $14, $13, $1, $2, $3));
+                #(not this simple)
+                #$et->HandleTag($tagTbl, GPSLatitude => (($5 || 0) + $6/60) * ($7 eq 'N' ? 1 : -1));
+                #$et->HandleTag($tagTbl, GPSLongitude => (($8 || 0) + $9/60) * ($10 eq 'E' ? 1 : -1));
+                $et->HandleTag($tagTbl, GPSSpeed => $11 * $knotsToKph) if length $11;
+                $et->HandleTag($tagTbl, GPSTrack => $12) if length $12;
+                # it looks like maybe the degrees are xor-ed with something,
+                # and the minutes have some scaling factor and offset?
+                # (the code below is approximately correct for my only sample)
+                my @chars = unpack('C*', $5 . $8);
+                my @xor = (0x0e,0x0e,0x00,0x05,0x03); # (empirical based on 1 sample; may be completely off base)
+                my $bad;
+                foreach (@chars) {
+                    $_ ^= shift(@xor);
+                    $bad = 1 if $_ < 0x30 or $_ > 0x39;
+                }
+                if ($bad) {
+                    $et->WarnOnce('Error decrypting GPS degrees');
+                } else {
+                    my $la = pack('C*', @chars[0,1]);
+                    my $lo = pack('C*', @chars[2,3,4]);
+                    $et->WarnOnce('Decryption of this GPS is highly experimental. More testing samples are required');
+                    $et->HandleTag($tagTbl, GPSLatitude  => (($la || 0) + (($6-85.95194)/2.43051724137931+42.2568)/60) * ($7 eq 'N' ? 1 : -1));
+                    $et->HandleTag($tagTbl, GPSLongitude => (($lo || 0) + (($9-70.14674)/1.460987654320988+9.2028)/60) * ($10 eq 'E' ? 1 : -1));
+                }
+            }
         } elsif ($$dataPt =~ /^.{44}A\0{3}.{4}([NS])\0{3}.{4}([EW])\0{3}/s and length($$dataPt) >= 84) {
             #forum11320
             SetByteOrder('II');
@@ -493,6 +535,7 @@ sub ProcessM2TS($$)
     my %gpsPID = (
         0x0300 => 1,    # Novatek INNOVV
         0x01e4 => 1,    # vsys a6l dashcam
+        0x0e1b => 1,    # Jomise T860S-GM dashcam
     );
     my $pEnd = 0;
 

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

@@ -385,7 +385,7 @@ sub ProcessKLV($$$)
 # Parse MISB metadata
 # Inputs: 0) ExifTool ref, 1) data ref, 2) tag table ref
 # Returns: 1 if something was extracted, 0 otherwise
-sub ParseMISB($$)
+sub ParseMISB($$$)
 {
     my ($et, $dataPt, $tagTablePtr) = @_;
     my $end = length $$dataPt;