exiftool-vendored.pl 12.39.0 → 12.40.0

package/bin/Changes

@@ -7,6 +7,28 @@ RSS feed: https://exiftool.org/rss.xml
 Note: The most recent production release is Version 12.30. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+Feb. 9, 2022 - Version 12.40
+
+  - Added a new Nikon LensID (thanks Wolfgang Exler)
+  - Added PageCount tag to return the number of pages in a multi-page TIFF
+  - Added a few more Sony LensTypes (thanks Jos Roost)
+  - Decode some new Canon tags (thanks Mark Reid)
+  - Decode another Nikon Z9 tag (thanks Warren Hatch)
+  - Decode Nikon NKSC GPSImgDirection (thanks Olaf)
+  - Improved handling of empty XMP structures in lists
+  - Tolerate leading UTF-8 BOM in -geotag log files
+  - Updated photoshop_paths.config to include WorkingPath
+  - Patched to allow writing of MP4 videos which have url tracks with a missing
+    sample description entry
+  - Fixed typo in the name of a new Nikon tag (thanks Herb)
+  - Fixed description of GPR (General Purpose RAW) file type
+  - Fixed potential deep recursion runtime error when writing nested XMP
+    structures
+  - Fixed warning which could be generated when writing new
+    Composite:GPSCoordinates tag
+  - Fixed deep recursion error when reading multi-page TIFF images with more
+    than 100 pages
+
 Jan. 13, 2022 - Version 12.39
 
   - Added a new Pentax LensType (thanks Christian Shulz)

package/bin/MANIFEST

@@ -194,6 +194,7 @@ html/idiosyncracies.html
 html/index.html
 html/install.html
 html/metafiles.html
+html/mistakes.html
 html/overview.png
 html/standards.html
 html/struct.html

package/bin/META.json

@@ -47,6 +47,6 @@
       }
    },
    "release_status" : "stable",
-   "version" : "12.39",
+   "version" : "12.40",
    "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.39
+version: 12.40
 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.39.tar.gz | tar -xf -
-  cd Image-ExifTool-12.39
+  gzip -dc Image-ExifTool-12.40.tar.gz | tar -xf -
+  cd Image-ExifTool-12.40
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 

package/bin/config_files/acdsee.config

@@ -97,8 +97,8 @@ my %sACDSeeRegionStruct = (
     # new XMP namespaces for ACDSee regions
     'Image::ExifTool::XMP::Main' => {
         'acdsee-rs' => { # <-- must be the same as the NAMESPACE prefix
-            SubDirectory => { 
-                TagTable => 'Image::ExifTool::UserDefined::ACDSeeRegions' 
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::UserDefined::ACDSeeRegions'
             },
         },
     },
@@ -147,7 +147,7 @@ my %sACDSeeRegionStruct = (
             },
             ValueConv => q{
                 my ($rgn, @newRgns);
-                my $rgns = ref $val[0] eq 'ARRAY' ? $val[0] : [ $val[0] ]; 
+                my $rgns = ref $val[0] eq 'ARRAY' ? $val[0] : [ $val[0] ];
                 foreach $rgn (@$rgns) {
                     my %newRgn = ( Type => 'Face' );
                     if ($$rgn{RegionBoundary} and $$rgn{RegionBoundary}{RbShape} eq 'rectangle') {
@@ -220,13 +220,13 @@ my %sACDSeeRegionStruct = (
         # the "Struct" entry defines the structure fields
         Struct => {
             # optional structure name (used for warning messages only)
-            STRUCT_NAME => 'ACDSee RegionInfo',        
+            STRUCT_NAME => 'ACDSee RegionInfo',
             RegionList => {
                 FlatName => 'Region',
                 Struct => \%sACDSeeRegionStruct,
                 List => 'Bag',
             },
-            AppliedToDimensions => { 
+            AppliedToDimensions => {
             FlatName => 'RegionAppliedToDimensions',Struct => \%sACDSeeDimensions },
         },
     },
@@ -239,7 +239,7 @@ my %sACDSeeRegionStruct = (
     RegionInfoACDSeeAppliedToDimensionsW        => 'ACDSeeRegionAppliedToDimensionsW',
     RegionInfoACDSeeRegionListDLYAreaH          => 'ACDSeeRegionDLYAreaH',
     RegionInfoACDSeeRegionListDLYAreaW          => 'ACDSeeRegionDLYAreaW',
-    RegionInfoACDSeeRegionListDLYAreaX          => 'ACDSeeRegionDLYAreaX',  
+    RegionInfoACDSeeRegionListDLYAreaX          => 'ACDSeeRegionDLYAreaX',
     RegionInfoACDSeeRegionListDLYAreaY          => 'ACDSeeRegionDLYAreaY',
     RegionInfoACDSeeRegionListALGAreaH          => 'ACDSeeRegionALGAreaH',
     RegionInfoACDSeeRegionListALGAreaW          => 'ACDSeeRegionALGAreaW',

package/bin/config_files/photoshop_paths.config

@@ -34,15 +34,15 @@
 # Usage:
 #
 #   1) Extract Photoshop path names:
-# 
+#
 #      exiftool -config photoshop_paths.config -allpaths FILE
 #
 #   2) Extract Photoshop path names and anchor points:
-# 
+#
 #      exiftool -config photoshop_paths.config -userparam anchor -allpaths FILE
 #
 #   3) Extract Photoshop path anchor points only:
-# 
+#
 #      exiftool -config photoshop_paths.config -userparam anchoronly -allpaths FILE
 #
 #   4) Copy all Photoshop paths from one file (SRC) to another (DST):
@@ -68,6 +68,7 @@
 #                               subpath respectively
 #               2017/06/03 - PH Added TotalPathPoints
 #               2017/07/17 - PH Added UniquePathPoints
+#               2022/02/03 - PH Added WorkingPath and WorkingPathPix
 #
 # References:   https://exiftool.org/forum/index.php/topic,1621.0.html
 #               https://exiftool.org/forum/index.php/topic,3910.0.html
@@ -77,10 +78,11 @@
 # Print Photoshop path name and/or anchor points
 # Inputs: 0) reference to Photoshop path data, 1) ExifTool object reference
 #         2-3) optional image width/height to convert anchor points to pixels
+#         4) optional path name
 # Returns: String with name and/or Bezier knot anchor points
-sub PrintPath($$;$$)
+sub PrintPath($$;$$$)
 {
-    my ($val, $et, $w, $h) = @_;
+    my ($val, $et, $w, $h, $nm) = @_;
     my ($pos, $name, @rtn);
     my $len = length($$val) - 26;
 
@@ -88,8 +90,9 @@ sub PrintPath($$;$$)
     if ($$val =~ m{.*/#(.{0,255})#/$}s) {
         $name = $1;
         $len -= length($1) + 4;
+        $name = $nm if defined $nm and not length $name;
     } else {
-        $name = '<none>';
+        $name = defined $nm ? $nm : '<none>';
     }
     my $anchorOnly = $et->Options(UserParam => 'AnchorOnly');
     push @rtn, $name unless $anchorOnly;
@@ -118,7 +121,7 @@ sub PrintPath($$;$$)
 }
 
 %Image::ExifTool::Shortcuts::UserDefined = (
-    # create "AllPaths" shortcut for all Photoshop path tags
+    # create "AllPaths" shortcut for all Photoshop path tags (except WorkingPath)
     AllPaths => [
         map { sprintf "Path%x", $_ } (0x7d0 .. 0xbb5),
     ],
@@ -133,6 +136,14 @@ sub PrintPath($$;$$)
             Name => 'OriginPathInfo',
             Flags => [ qw(Writable Protected Binary SetResourceName) ],
         },
+        0x401 => {
+            Name => 'WorkingPath',
+            Flags => [ qw(Writable Protected Binary ConvertBinary SetResourceName) ],
+            PrintConv => sub {
+                my ($val, $et) = @_;
+                PrintPath($val, $et, undef, undef, 'Work Path');
+            },
+        },
         # generate tags for each of the 998 possible Photoshop paths
         map { $_ => {
             Name => sprintf('Path%x', $_),
@@ -143,6 +154,7 @@ sub PrintPath($$;$$)
     },
     'Image::ExifTool::Composite' => {
         PathCount => {
+            # (PathCount statistics do not include WorkingPath)
             Desire => {
                 map { $_-0x7d0 => sprintf('Path%x', $_) } (0x7d0 .. 0xbb5),
             },
@@ -180,6 +192,17 @@ sub PrintPath($$;$$)
             Require => 'PathCount',
             ValueConv => '$$self{TotalPathPoints}',
         },
+        WorkingPathPix => {
+            Require => {
+                0 => 'ImageWidth',
+                1 => 'ImageHeight',
+                2 => 'WorkingPath',
+            },
+            ValueConv => sub {
+                my ($val, $et) = @_;
+                PrintPath($$val[2], $et, $$val[0], $$val[1], 'Work Path');
+            },
+        },
         map { sprintf('PathPix%x', $_) => {
             Require => {
                 0 => 'ImageWidth',

package/bin/config_files/picasa_faces.config

@@ -63,7 +63,7 @@
 #               2015/05/12 - PH Minor code tweaks
 #               2015/10/26 - BKW Round off area sizes to 7 decimal places
 #               2016/01/18 - BKW Improved rounding algorithm
-#               2016/05/14 - BKW Increased rounding to 9 decimal places (Max Picasa accepts), 
+#               2016/05/14 - BKW Increased rounding to 9 decimal places (Max Picasa accepts),
 #                            moved rounding operation to subroutine
 #
 # References:   https://exiftool.org/forum/index.php/topic,6354.0.html

package/bin/config_files/pix4d.config

@@ -16,13 +16,13 @@
 
 %Image::ExifTool::UserDefined = (
     'Image::ExifTool::XMP::Main' => {
-        Camera => { 
+        Camera => {
             SubDirectory => {
                 TagTable => 'Image::ExifTool::UserDefined::Camera',
             },
         },
     },
-); 
+);
 
 %Image::ExifTool::UserDefined::Camera = (
     GROUPS => { 0 => 'XMP', 1 => 'XMP-Camera', 2 => 'Camera' },

package/bin/config_files/tiff_version.config

@@ -68,9 +68,9 @@ sub has_defined {
                 35 => 'EXIF:TransferRange',             # TransferRange (342/0x0156)
                 36 => 'EXIF:YCbCrCoefficients',         # YCbCrCoefficients (529/0x0211)
                 37 => 'EXIF:YCbCrPositioning',          # YCbCrPositioning (531/0x0213)
-                38 => 'EXIF:YCbCrSubSampling',          # YCbCrSubSampling (530/0x0212) 
+                38 => 'EXIF:YCbCrSubSampling',          # YCbCrSubSampling (530/0x0212)
             # Other tags to check
-                39 => 'EXIF:PhotometricInterpretation', # PhotometricInterpretation (262/0x0106) 
+                39 => 'EXIF:PhotometricInterpretation', # PhotometricInterpretation (262/0x0106)
                 40 => 'EXIF:Compression',               # Compression (259/0x0103)
             },
             ValueConv => q{

package/bin/exiftool

@@ -10,7 +10,7 @@
 use strict;
 require 5.004;
 
-my $version = '12.39';
+my $version = '12.40';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
 BEGIN {
@@ -5436,7 +5436,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 12.39 --
+    -- Generated by ExifTool 12.40 --
     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

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

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '4.55';
+$VERSION = '4.56';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -970,8 +970,8 @@ my %canonQuality = (
     4 => 'RAW',
     5 => 'Superfine',
     7 => 'CRAW', #42
-    130 => 'Normal Movie', #22
-    131 => 'Movie (2)', #PH (7DmkII 1920x1080)
+    130 => 'Light (RAW)', #github#119
+    131 => 'Standard (RAW)', #github#119
 );
 my %canonImageSize = (
    -1 => 'n/a',
@@ -2053,6 +2053,13 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
             TagTable => 'Image::ExifTool::Canon::HDRInfo',
         }
     },
+    0x4026 => { #github#119
+        Name => 'LogInfo',
+        SubDirectory => {
+            Validate => 'Image::ExifTool::Canon::Validate($dirData,$subdirStart,$size)',
+            TagTable => 'Image::ExifTool::Canon::LogInfo',
+        }
+    },
     0x4028 => { #PH
         Name => 'AFConfig', # (AFTabInfo)
         SubDirectory => {
@@ -8701,6 +8708,65 @@ my %filterConv = (
     # 3 - maybe related to AutoImageAlign?
 );
 
+# More color information (MakerNotes tag 0x4026) (ref github issue #119)
+%Image::ExifTool::Canon::LogInfo = (
+    %binaryDataAttrs,
+    FORMAT => 'int32s',
+    FIRST_ENTRY => 1,
+    PRIORITY => 0,
+    4 => {
+        Name => 'CompressionFormat',
+        PrintConv => {
+             0 => 'Editing (ALL-I)',
+             1 => 'Standard (IPB)',
+             2 => 'Light (IPB)',
+             3 => 'Motion JPEG',
+             4 => 'RAW', # either Standard or Light, depending on Quality
+        },
+    },
+    6 => {  # 0 to 7
+        Name => 'Sharpness',
+        RawConv => '$val == 0x7fffffff ? undef : $val',
+    },
+    7 => {  # -4 to 4
+        Name => 'Saturation', 
+        RawConv => '$val == 0x7fffffff ? undef : $val',
+        %Image::ExifTool::Exif::printParameter,
+    },
+    8 => {  # -4 to 4
+        Name => 'ColorTone',
+        RawConv => '$val == 0x7fffffff ? undef : $val',
+        %Image::ExifTool::Exif::printParameter,
+    },
+    9 => {
+        Name => 'ColorSpace2',
+        RawConv => '$val == 0x7fffffff ? undef : $val',
+        PrintConv => {
+            0 => 'BT.709',
+            1 => 'BT.2020',
+            2 => 'CinemaGamut',
+        },
+    },
+    10 => {
+        Name => 'ColorMatrix',
+        RawConv => '$val == 0x7fffffff ? undef : $val',
+        PrintConv => {
+            0 => 'EOS Original',
+            1 => 'Neutral',
+        },
+    },
+    11 => {
+        Name => 'CanonLogVersion', # (increases dynamic range of sensor data)
+        RawConv => '$val == 0x7fffffff ? undef : $val',
+        PrintConv => {
+            0 => 'OFF',
+            1 => 'CLogV1',
+            2 => 'CLogV2', # (NC)
+            3 => 'CLogV3',
+        },
+    },
+);
+
 # AF configuration info (MakerNotes tag 0x4028) (ref PH)
 %Image::ExifTool::Canon::AFConfig = (
     %binaryDataAttrs,

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

@@ -56,7 +56,7 @@ use vars qw($VERSION $AUTOLOAD @formatSize @formatName %formatNumber %intFormat
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::MakerNotes;
 
-$VERSION = '4.38';
+$VERSION = '4.39';
 
 sub ProcessExif($$$);
 sub WriteExif($$$);
@@ -415,7 +415,14 @@ my %opcodeInfo = (
         WriteGroup => 'IFD0',
         # set priority directory if this is the full resolution image
         DataMember => 'SubfileType',
-        RawConv => '$self->SetPriorityDir() if $val eq "0"; $$self{SubfileType} = $val',
+        RawConv => q{
+            if ($val == ($val & 0x02)) {
+                $self->SetPriorityDir() if $val == 0;
+                $$self{PageCount} = ($$self{PageCount} || 0) + 1;
+                $$self{MultiPage} = 1 if $val == 2 or $$self{PageCount} > 1;
+            }
+            $$self{SubfileType} = $val;
+        },
         PrintConv => \%subfileType,
     },
     0xff => {
@@ -425,7 +432,14 @@ my %opcodeInfo = (
         Writable => 'int16u',
         WriteGroup => 'IFD0',
         # set priority directory if this is the full resolution image
-        RawConv => '$self->SetPriorityDir() if $val eq "1"; $val',
+        RawConv => q{
+            if ($val == 1 or $val == 3) {
+                $self->SetPriorityDir() if $val == 1;
+                $$self{PageCount} = ($$self{PageCount} || 0) + 1;
+                $$self{MultiPage} = 1 if $val == 3 or $$self{PageCount} > 1;
+            }
+            $val;
+        },
         PrintConv => {
             1 => 'Full-resolution image',
             2 => 'Reduced-resolution image',
@@ -2144,7 +2158,7 @@ my %opcodeInfo = (
         Notes => 'displayed in seconds, but stored as an APEX value',
         Format => 'rational64s', # Leica M8 patch (incorrectly written as rational64u)
         Writable => 'rational64s',
-        ValueConv => 'abs($val)<100 ? 2**(-$val) : 0',
+        ValueConv => 'IsFloat($val) && abs($val)<100 ? 2**(-$val) : 0',
         ValueConvInv => '$val>0 ? -log($val)/log(2) : -100',
         PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
         PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)',
@@ -4827,6 +4841,7 @@ my %subSecConv = (
         PrintConvInv => q{
             return undef unless $val =~ /(.*? ?[NS]?), ?(.*? ?[EW]?)$/;
             my ($lat, $lon) = ($1, $2);
+            require Image::ExifTool::GPS;
             $lat = Image::ExifTool::GPS::ToDegrees($lat, 1, "lat");
             $lon = Image::ExifTool::GPS::ToDegrees($lon, 1, "lon");
             return "$lat, $lon";
@@ -5248,6 +5263,7 @@ sub RedBlueBalance($@)
 sub PrintExposureTime($)
 {
     my $secs = shift;
+    return $secs unless Image::ExifTool::IsFloat($secs);
     if ($secs < 0.25001 and $secs > 0) {
         return sprintf("1/%d",int(0.5 + 1/$secs));
     }
@@ -5853,7 +5869,7 @@ sub ProcessExif($$$)
         unless ($path =~ /^(JPEG-APP1-IFD0|TIFF-IFD0|PSD-EXIFInfo-IFD0)$/) {
             if ($Image::ExifTool::MWG::strict) {
                 $et->Warn("Ignored non-standard EXIF at $path");
-                return 1;
+                return 0;
             } else {
                 $et->Warn("Non-standard EXIF at $path", 1);
             }
@@ -5896,10 +5912,6 @@ sub ProcessExif($$$)
                 # also read next IFD pointer if available
                 if ($raf->Read($buf2, $len+4) >= $len) {
                     $buff .= $buf2;
-                    # make copy of dirInfo since we're going to modify it
-                    my %newDirInfo = %$dirInfo;
-                    $dirInfo = \%newDirInfo;
-                    # update directory parameters for the newly loaded IFD
                     $dataPt = $$dirInfo{DataPt} = \$buff;
                     $dataPos = $$dirInfo{DataPos} = $offset;
                     $dataLen = $$dirInfo{DataLen} = length $buff;
@@ -6706,28 +6718,40 @@ sub ProcessExif($$$)
 
     # scan for subsequent IFD's if specified
     if ($$dirInfo{Multi} and $bytesFromEnd >= 4) {
-        my $offset = Get32u($dataPt, $dirEnd);
-        if ($offset) {
-            my $subdirStart = $offset - $dataPos;
-            # use same directory information for trailing directory,
-            # but change the start location (ProcessDirectory will
-            # test to make sure we don't reprocess the same dir twice)
-            my %newDirInfo = %$dirInfo;
-            $newDirInfo{DirStart} = $subdirStart;
+        # use same directory information for trailing directory,
+        # but change the start location (ProcessDirectory will
+        # test to make sure we don't reprocess the same dir twice)
+        my %newDirInfo = %$dirInfo;
+        $newDirInfo{Multi} = 0;  # prevent recursion
+        $newDirInfo{OffsetName} = $nextOffName;
+        $$et{INDENT} =~ s/..$//; # keep indent the same
+        for (;;) {
+            my $offset = Get32u($dataPt, $dirEnd) or last;
+            $newDirInfo{DirStart} = $offset - $dataPos;
             # increment IFD number
             my $ifdNum = $newDirInfo{DirName} =~ s/(\d+)$// ? $1 : 0;
             $newDirInfo{DirName} .= $ifdNum + 1;
-            $newDirInfo{OffsetName} = $nextOffName;
             # must validate SubIFD1 because the nextIFD pointer is invalid for some RAW formats
             if ($newDirInfo{DirName} ne 'SubIFD1' or ValidateIFD(\%newDirInfo)) {
-                $$et{INDENT} =~ s/..$//; # keep indent the same
                 my $cur = pop @{$$et{PATH}};
                 $et->ProcessDirectory(\%newDirInfo, $tagTablePtr) or $success = 0;
                 push @{$$et{PATH}}, $cur;
+                if ($success and $newDirInfo{BytesFromEnd} >= 4) {
+                    $dataPt = $newDirInfo{DataPt};
+                    $dataPos = $newDirInfo{DataPos};
+                    $dirEnd = $newDirInfo{DirEnd};
+                    next;
+                }
             } elsif ($verbose or $$et{TIFF_TYPE} eq 'TIFF') {
                 $et->Warn('Ignored bad IFD linked from SubIFD');
             }
+            last;
         }
+    } elsif (defined $$dirInfo{Multi}) {
+        # return necessary parameters for parsing next IFD
+        $$dirInfo{DirEnd} = $dirEnd;
+        $$dirInfo{OffsetName} = $nextOffName;
+        $$dirInfo{BytesFromEnd} = $bytesFromEnd;
     }
     return $success;
 }

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

@@ -28,7 +28,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:Public);
 use Image::ExifTool::GPS;
 
-$VERSION = '1.65';
+$VERSION = '1.66';
 
 sub JITTER() { return 2 }       # maximum time jitter
 
@@ -210,13 +210,14 @@ sub LoadTrackLog($$;$)
         $raf->ReadLine($_) or last;
         # determine file format
         if (not $format) {
+            s/^\xef\xbb\xbf//;          # remove leading BOM if it exists
             if (/^<(\?xml|gpx)[\s>]/) { # look for XML or GPX header
                 $format = 'XML';
             # check for NMEA sentence
             # (must ONLY start with ones that have timestamps! eg. not GSA or PTNTHPR!)
             } elsif (/^.*\$([A-Z]{2}(RMC|GGA|GLL|ZDA)|PMGNTRK),/) {
                 $format = 'NMEA';
-                $nmeaStart = $2 || $1;    # save type of first sentence
+                $nmeaStart = $2 || $1;  # save type of first sentence
             } elsif (/^A(FLA|XSY|FIL)/) {
                 # (don't set format yet because we want to read HFDTE first)
                 $nmeaStart = 'B' ;

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

@@ -63,7 +63,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 use Image::ExifTool::XMP;
 
-$VERSION = '4.04';
+$VERSION = '4.05';
 
 sub LensIDConv($$$);
 sub ProcessNikonAVI($$$);
@@ -495,6 +495,7 @@ sub GetAFPointGrid($$;$);
     '7A 48 5C 80 24 24 4B 06' => 'Sigma 70-200mm F2.8 EX APO DG Macro HSM II',
     'EE 48 5C 80 24 24 4B 06' => 'Sigma 70-200mm F2.8 EX APO DG Macro HSM II', #JD
     '9C 48 5C 80 24 24 4B 0E' => 'Sigma 70-200mm F2.8 EX DG OS HSM', #Rolando Ruzic
+    'BB 48 5C 80 24 24 4B 4E' => 'Sigma 70-200mm F2.8 DG OS HSM | S', #forum13207
     '02 46 5C 82 25 25 02 00' => 'Sigma 70-210mm F2.8 APO', #JD
     '02 40 5C 82 2C 35 02 00' => 'Sigma APO 70-210mm F3.5-4.5',
     '26 3C 5C 82 30 3C 1C 02' => 'Sigma 70-210mm F4-5.6 UC-II',
@@ -1220,6 +1221,16 @@ my %binaryDataAttrs = (
 my %base64bin = ( ValueConv => 'Image::ExifTool::XMP::DecodeBase64($val)' );
 my %base64int32u = ( ValueConv => 'my $val=Image::ExifTool::XMP::DecodeBase64($val); unpack("V",$$val)' );
 my %base64bytes = ( ValueConv => 'my $val=Image::ExifTool::XMP::DecodeBase64($val); join(".",unpack("C*",$$val))' );
+my %base64double = (
+    ValueConv => q{
+        my $val=Image::ExifTool::XMP::DecodeBase64($val);
+        my $saveOrder = GetByteOrder();
+        SetByteOrder('II');
+        $val = GetDouble($val,0);
+        SetByteOrder($saveOrder);
+        return $val;
+    },
+);
 my %base64coord = (
     ValueConv => q{
         my $val=Image::ExifTool::XMP::DecodeBase64($val);
@@ -4180,7 +4191,7 @@ my %base64coord = (
         Format => 'int16u',
     },
     0x43 => {
-        Name => 'FocusPositionHoriontal',
+        Name => 'FocusPositionHorizontal',
         PrintConv => sub { my ($val) = @_; PrintAFPointsLeftRight($val, 29 ); },    #493 focus points for Z9 fall in a 30x18 grid (some coordinates are not accessible)
     },
     0x45 => {
@@ -8565,7 +8576,17 @@ my %nikonFocalConversions = (
     444 => { Name => 'FlashRemoteControl',  PrintConv => \%flashRemoteControlZ7, Unknown => 1},
     456 => { Name => 'FlashWirelessOption', PrintConv => \%flashWirelessOptionZ7, Unknown => 1},
     #526 FocusMode
-    #528 AFAreaMode
+    528 => {
+        Name => 'AFAreaMode',
+        PrintConv => {
+            1 => 'Single',
+            2 => 'Dynamic',
+            3 => 'Wide (S)',
+            4 => 'Wide (L)',
+            5 => '3D',
+            6 => 'Auto',
+        },
+    },
     530 => { Name => 'VRMode',   PrintConv => \%vRModeZ9},
     534 => {
         Name => 'BracketSet',
@@ -11055,17 +11076,22 @@ my %nikonFocalConversions = (
     },
     GPSAltitude => {
         Groups => { 2 => 'Location' },
-        ValueConv => q{
-            my $val=Image::ExifTool::XMP::DecodeBase64($val);
-            my $saveOrder = GetByteOrder();
-            SetByteOrder('II');
-            $val = GetDouble($val,0);
-            SetByteOrder($saveOrder);
-            return $val;
-        },
+        %base64double,
         PrintConv => '"$val m"',
     },
-    GPSMapDatum => { },
+    GPSMapDatum => { Groups => { 2 => 'Location' } },
+    GPSImgDirection => {
+        Groups => { 2 => 'Location' },
+        %base64double,
+        PrintConv => 'sprintf("%.2f", $val)',
+    },
+    GPSImgDirectionRef => {
+        Groups => { 2 => 'Location' },
+        PrintConv => {
+            M => 'Magnetic North',
+            T => 'True North',
+        },
+    },
 );
 %Image::ExifTool::Nikon::sdc = (
     GROUPS => { 0 => 'XMP', 1 => 'XMP-sdc', 2 => 'Image' },