exiftool_vendored 10.58.0 → 10.65.0

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

@@ -12,7 +12,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.46';
+$VERSION = '1.47';
 
 my %coordConv = (
     ValueConv    => 'Image::ExifTool::GPS::ToDegrees($val)',
@@ -40,8 +40,8 @@ my %coordConv = (
         Writable => 'string',
         Notes => q{
             tags 0x0001-0x0006 used for camera location according to MWG 2.0. ExifTool
-            will also accept a number when writing GPSLatitude -- positive for north
-            latitudes, or negative for south
+            will also accept a number when writing GPSLatitudeRef, positive for north
+            latitudes or negative for south, or a string ending in N or S
         },
         Count => 2,
         PrintConv => {
@@ -69,8 +69,8 @@ my %coordConv = (
         Writable => 'string',
         Count => 2,
         Notes => q{
-            ExifTool will also accept a number when writing this tag -- positive for
-            east longitudes or negative for west
+            ExifTool will also accept a number when writing this tag, positive for east
+            longitudes or negative for west, or a string ending in E or W
         },
         PrintConv => {
             # extract E/W if written from Composite:GPSLongitude
@@ -386,7 +386,7 @@ my %coordConv = (
         ValueConv => q{
             my $alt = $val[0];
             $alt = $val[2] unless defined $alt;
-            return undef unless defined $alt;
+            return undef unless defined $alt and IsFloat($alt);
             return ($val[1] || $val[3]) ? -$alt : $alt;
         },
         PrintConv => q{

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

@@ -1076,7 +1076,7 @@ Category:       foreach $category (qw{pos track alt orient}) {
 # Returns: geosync hash:
 #           Offset = Offset in seconds for latest synchronization (GPS - image time)
 #           Points = hash of all sync offsets keyed by image times in seconds
-#           Times = sorted list of image synchronization times (keys in Points hash) 
+#           Times = sorted list of image synchronization times (keys in Points hash)
 # Notes: calling this routine with more than one geosync'd file causes time drift
 #        correction to be implemented
 sub ConvertGeosync($$)

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

@@ -521,6 +521,8 @@ my $parsePictureTiming; # flag to enable parsing of picture timing information (
     #       0x0345 - Panasonic HC-V7272
     #       0x0414 - Panasonic AG-AF100
     #       0x0591 - various Panasonic DMC models
+    #       0x0802 - Panasonic DMC-TZ60 with GPS information off
+    #       0x0803 - Panasonic DMC-TZ60 with GPS information on
     #       0x3001 - various Sony DSC, HDR, NEX and SLT models
     #       0x3003 - various Sony DSC models
     #       0x3100 - various Sony DSC, ILCE, NEX and SLT models

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

@@ -16,7 +16,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.47';
+$VERSION = '1.48';
 
 sub ProcessID3v2($$$);
 sub ProcessPrivate($$$);
@@ -1093,7 +1093,7 @@ sub ProcessID3v2($$$)
             }
         }
         # decode v2.3 and v2.4 flags
-        my %flags;
+        my (%flags, %extra);
         if ($flags) {
             if ($vers < 0x0400) {
                 # version 2.3 flags
@@ -1155,13 +1155,16 @@ sub ProcessID3v2($$$)
             $dataLen == length($val) or $et->Warn("Wrong length for $id frame"), next;
         }
         unless ($tagInfo) {
-            $verbose and $et->VerboseInfo($id, $tagInfo,
+            next unless $verbose;
+            %flags and $extra{Extra} = ', Flags=' . join(',', sort keys %flags);
+            $et->VerboseInfo($id, $tagInfo,
                 Table   => $tagTablePtr,
                 Value   => $val,
                 DataPt  => $dataPt,
                 DataPos => $$dirInfo{DataPos},
                 Size    => $len,
                 Start   => $offset,
+                %extra
             );
             next;
         }
@@ -1308,12 +1311,14 @@ sub ProcessID3v2($$$)
         if ($lang and $lang =~ /^[a-z]{3}$/i and $lang ne 'eng') {
             $tagInfo = Image::ExifTool::GetLangInfo($tagInfo, lc $lang);
         }
+        %flags and $extra{Extra} = ', Flags=' . join(',', sort keys %flags);
         $et->HandleTag($tagTablePtr, $id, $val,
             TagInfo => $tagInfo,
             DataPt  => $dataPt,
             DataPos => $$dirInfo{DataPos},
             Size    => $len,
             Start   => $offset,
+            %extra
         );
     }
 }

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

@@ -1074,7 +1074,7 @@ sub ProcessIPTC($$$)
                 $et->FoundTag('CurrentIPTCDigest', $md5);
             }
         } else {
-            if (($Image::ExifTool::MWG::strict or $et->Options('Validate')) and 
+            if (($Image::ExifTool::MWG::strict or $et->Options('Validate')) and
                 $$et{FILE_TYPE} =~ /^(JPEG|TIFF|PSD)$/)
             {
                 if ($Image::ExifTool::MWG::strict) {

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

@@ -12,7 +12,7 @@ require Exporter;
 
 use vars qw($VERSION @ISA @EXPORT_OK);
 
-$VERSION = '1.07';
+$VERSION = '1.08';
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(ReadCSV ReadJSON);
 
@@ -139,6 +139,9 @@ sub ReadJSONObject($;$)
         $pos = 0;
     }
 Tok: for (;;) {
+        # (didn't spend the time to understand how $pos could be undef, but
+        #  put a test here to be safe because one user reported this problem)
+        last unless defined $pos;
         if ($pos >= length $$buffPt or $readMore) {
             # read another 64kB and add to unparsed data
             my $offset = length($$buffPt) - $pos;

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

@@ -14,7 +14,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.04';
+$VERSION = '1.05';
 
 # map for writing metadata to InDesign files (currently only write XMP)
 my %indMap = (
@@ -145,14 +145,18 @@ sub ProcessIND($$)
                     Parent  => 'IND',
                     NoDelete => 1, # do not allow this to be deleted when writing
                 );
+                # validate xmp data length (should be same as length in header - 4)
+                my $xmpLen = unpack($streamInt32u, $lenWord);
+                unless ($xmpLen == $len) {
+                    if ($xmpLen < $len) {
+                        $dirInfo{DirLen} = $xmpLen;
+                    } else {
+                        $err = 'Truncated XMP stream (missing ' . ($xmpLen - $len) . ' bytes)';
+                    }
+                }
                 my $tagTablePtr = GetTagTable('Image::ExifTool::XMP::Main');
                 if ($outfile) {
-                    # validate xmp data length (should be same as length in header - 4)
-                    my $xmpLen = unpack($streamInt32u, $lenWord);
-                    unless ($xmpLen == $len) {
-                        $err = "Incorrect XMP stream length ($xmpLen should be $len)";
-                        last;
-                    }
+                    last if $err;
                     # make sure that XMP is writable
                     my $classID = Get32u(\$hdr, 20);
                     $classID & 0x40000000 or $err = 'XMP stream is not writable', last;

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

@@ -24,7 +24,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.41';
+$VERSION = '1.42';
 
 sub ProcessKodakIFD($$$);
 sub ProcessKodakText($$$);
@@ -189,6 +189,7 @@ sub WriteKodakIFD($$$);
             1 => 'Flash?',
             2 => 'Tungsten',
             3 => 'Daylight',
+            # 5 - seen this for "Auto" with a ProBack 645M
         },
     },
     0x5c => {
@@ -1527,12 +1528,14 @@ my %sceneModeUsed = (
     'Exposure Mode' => {
         Name => 'ExposureMode',
         PrintConv => {
+            OTHER => sub { shift }, # pass other values straight through
             'M' => 'Manual',
             'A' => 'Aperture Priority', #(NC -- I suppose this could be "Auto" too)
             'S' => 'Shutter Priority', #(NC)
             'P' => 'Program', #(NC)
             'B' => 'Bulb', #(NC)
             # have seen "Manual (M)" written by DCS760C - PH
+            # and "Aperture priority AE (Av)" written by a ProBack 645M
         },
     },
     'Firmware Version' => 'FirmwareVersion',

data/bin/lib/Image/ExifTool/Lang/de.pm

@@ -11,7 +11,7 @@ package Image::ExifTool::Lang::de;
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '1.32';
+$VERSION = '1.33';
 
 %Image::ExifTool::Lang::de::Translate = (
    'AEAperture' => 'AE-Blende',
@@ -1094,7 +1094,7 @@ $VERSION = '1.32';
     },
    'Artist' => 'Künstler',
    'ArtworkCreator' => 'Artwork Ersteller',
-   'AsShotICCProfile' => 'Aufnahme ICC-Profil',
+   'AsShotICCProfile' => 'Aufnahme Farbprofil',
    'AsShotNeutral' => 'Aufnahme Neutral',
    'AsShotPreProfileMatrix' => 'Aufnahme Pre Profil Matrix',
    'AsShotProfileName' => 'Aufnahme Pre Profilname',
@@ -2334,7 +2334,7 @@ $VERSION = '1.32';
    'Country' => 'Land',
    'Country-PrimaryLocationCode' => 'ISO-Ländercode',
    'Country-PrimaryLocationName' => 'Land',
-   'CountryCode' => 'Länderkennzeichen',
+   'CountryCode' => 'ISO-Ländercode',
    'Coverage' => 'Anwendungsbereich',
    'CreateDate' => 'Digitalisierungsdatum/-uhrzeit',
    'CreationDate' => 'Aufnahmedatum',
@@ -2376,8 +2376,8 @@ $VERSION = '1.32';
    'CreatorContactInfo' => 'Ersteller Kontaktinfo',
    'CreatorCountry' => 'Ersteller - Land',
    'CreatorPostalCode' => 'Ersteller - PLZ',
-   'CreatorRegion' => 'Ersteller - Staat/Provinz',
-   'CreatorTool' => 'Erzeugertool',
+   'CreatorRegion' => 'Ersteller - Bundesland/Kanton',
+   'CreatorTool' => 'Erstellertool',
    'CreatorWorkEmail' => 'Ersteller - E-Mail',
    'CreatorWorkTelephone' => 'Ersteller - Telefon',
    'CreatorWorkURL' => 'Ersteller - Webseite(n)',
@@ -3651,7 +3651,7 @@ $VERSION = '1.32';
    'FirmwareVersion' => 'Firmware-Version',
    'FixtureIdentifier' => 'Kennzeichnung',
    'Flash' => {
-      Description => 'Blitz',
+      Description => 'Blitzmodus',
       PrintConv => {
         'Auto, Did not fire' => 'Blitz wurde nicht ausgelöst, Automodus',
         'Auto, Did not fire, Red-eye reduction' => 'Blitz wurde nicht ausgelöst, Rote-Augen-Reduzierung',
@@ -4277,9 +4277,9 @@ $VERSION = '1.32';
     },
    'GEImageSize' => 'GE Bildgröße',
    'GIFVersion' => 'GIF-Version',
-   'GPSAltitude' => 'Höhe',
+   'GPSAltitude' => 'GPS Höhe',
    'GPSAltitudeRef' => {
-      Description => 'Bezugshöhe',
+      Description => 'GPS-Höhe Bezug',
       PrintConv => {
         'Above Sea Level' => 'Höhe über Normal-Null (Meeresspiegel)',
         'Below Sea Level' => 'Höhe unter Normal-Null (Meeresspiegel)',
@@ -4288,7 +4288,7 @@ $VERSION = '1.32';
    'GPSAreaInformation' => 'Name des GPS-Gebietes',
    'GPSDOP' => 'Messgenauigkeit',
    'GPSDateStamp' => 'GPS Datum',
-   'GPSDateTime' => 'GPS-Zeit (Atomuhr)',
+   'GPSDateTime' => 'GPS Zeitstempel',
    'GPSDestBearing' => 'Motivrichtung',
    'GPSDestBearingRef' => {
       Description => 'Referenz für Motivrichtung',
@@ -4297,9 +4297,9 @@ $VERSION = '1.32';
         'True North' => 'Geographische Ausrichtung',
       },
     },
-   'GPSDestDistance' => 'Distanz zum Ziel',
+   'GPSDestDistance' => 'GPS Zielentfernung',
    'GPSDestDistanceRef' => {
-      Description => 'Reference for distance to destination',
+      Description => 'GPS-Zielentfernung Maßeinheit',
       PrintConv => {
         'Kilometers' => 'Kilometer',
         'Miles' => 'Meilen',
@@ -4323,7 +4323,7 @@ $VERSION = '1.32';
       },
     },
    'GPSDifferential' => {
-      Description => 'GPS-Differentialkorrektur',
+      Description => 'GPS Differentialkorrektur',
       PrintConv => {
         'Differential Corrected' => 'Differentialkorrektur angewandt',
         'No Correction' => 'Messung ohne Differentialkorrektur',
@@ -4356,7 +4356,7 @@ $VERSION = '1.32';
     },
    'GPSMapDatum' => 'Geodätisches Datum',
    'GPSMeasureMode' => {
-      Description => 'GPS-Messverfahren',
+      Description => 'GPS Messverfahren',
       PrintConv => {
         '2-D' => '2-Dimensionale Messung',
         '2-Dimensional' => '2-Dimensionale Messung',
@@ -4378,13 +4378,13 @@ $VERSION = '1.32';
       },
     },
    'GPSStatus' => {
-      Description => 'GPS-Empfänger-Status',
+      Description => 'GPS-Empfänger Status',
       PrintConv => {
         'Measurement Active' => 'Messung aktiv',
         'Measurement Void' => 'Messung ungültig',
       },
     },
-   'GPSTimeStamp' => 'GPS-Zeit (Atomuhr)',
+   'GPSTimeStamp' => 'GPS-Zeit UTC',
    'GPSTrack' => 'Bewegungsrichtung',
    'GPSTrackRef' => {
       Description => 'Referenz für Bewegungsrichtung',
@@ -4468,7 +4468,7 @@ $VERSION = '1.32';
     },
    'Headline' => 'Überschrift',
    'HeightResolution' => 'Vertikale Bildauflösung',
-   'HierarchicalSubject' => 'Hierarchische Schlüsselworte',
+   'HierarchicalSubject' => 'Hierarchische Schlüsselwörter',
    'HighISONoiseReduction' => {
       Description => 'Rauschunterdrückung bei hoher Empfindlichkeit',
       PrintConv => {
@@ -4536,7 +4536,7 @@ $VERSION = '1.32';
    'HuffmanTable' => 'Huffman Tabelle',
    'HyperfocalDistance' => 'Hyperfokale Entfernung',
    'ICCProfile' => 'ICC-Profil',
-   'ICCProfileName' => 'Name des ICC-Profils',
+   'ICCProfileName' => 'ICC-Profil Name',
    'ICC_Profile' => 'ICC-Profil',
    'ID3Size' => 'ID3 Datenlänge',
    'IDCCreativeStyle' => {
@@ -4862,7 +4862,7 @@ $VERSION = '1.32';
       },
     },
    'Instructions' => 'Anweisungen',
-   'IntellectualGenre' => 'Genre',
+   'IntellectualGenre' => 'Intellektuelles Genre',
    'IntelligentAuto' => {
       PrintConv => {
         'Advanced' => 'Erweitert',
@@ -4954,7 +4954,7 @@ $VERSION = '1.32';
    'InternalName' => 'Interner Name',
    'InternalSerialNumber' => 'Interne Seriennummer',
    'InteropIndex' => {
-      Description => 'Interoperabilitäts-Identifikation',
+      Description => 'Interoperabilität Identifikation',
       PrintConv => {
         'R03 - DCF option file (Adobe RGB)' => 'R03: DCF Option-Format (Adobe RGB)',
         'R98 - DCF basic file (sRGB)' => 'R98: DCF Basic-Format (sRGB)',
@@ -4998,14 +4998,14 @@ $VERSION = '1.32';
     },
    'JPEGSize' => 'JPEG Größe',
    'JPEGTables' => 'JPEG Tabellen',
-   'JobID' => 'Job-ID',
+   'JobID' => 'Job-Kennung',
    'JpgFromRaw' => 'Jpg From Raw Bild',
    'JpgFromRawLength' => 'Jpg From Raw Datenlänge',
    'JpgFromRawStart' => 'Jpg From Raw Datenposition',
    'JpgRecordedPixels' => 'JPEG-Auflösung',
    'Key' => 'Schlüssel',
    'Keyword' => 'Schlüsselwort',
-   'Keywords' => 'Schlüsselwort',
+   'Keywords' => 'Schlüsselwörter',
    'KodakImageHeight' => 'Kodak-Bildhöhe',
    'KodakImageWidth' => 'Kodak-Bildbreite',
    'LC1' => 'Objektiv-Wert',
@@ -5054,7 +5054,7 @@ $VERSION = '1.32';
         'On' => 'Ein',
       },
     },
-   'Label' => 'Bezeichnung',
+   'Label' => 'Beschriftung',
    'Landmark' => 'Sehenswürdigkeit',
    'Language' => 'Sprache',
    'LanguageCode' => {
@@ -6051,7 +6051,7 @@ $VERSION = '1.32';
    'OriginalTHMFileType' => 'Original THM Dateityp',
    'OriginalTHMImage' => 'Original THM Bild',
    'OriginalTHMResource' => 'Original THM Basisdaten',
-   'OriginalTransmissionReference' => 'Jobkennung',
+   'OriginalTransmissionReference' => 'Anbietervermerk Verweis',
    'OriginatingProgram' => 'Erstellungsprogramm',
    'OtherImage' => 'Other Image Vorschaubild',
    'OtherImageLength' => 'OtherImage Datenlänge',
@@ -6511,7 +6511,7 @@ $VERSION = '1.32';
    'ProcessingInfo' => 'Verarbeitungsinformationen',
    'ProcessingSoftware' => 'Verarbeitungssoftware',
    'Producer' => 'Produzent',
-   'ProducerKeywords' => 'Hersteller Schlüsselwort',
+   'ProducerKeywords' => 'Hersteller Schlüsselwörter',
    'Producers' => 'Produzent',
    'ProductID' => 'Produkt-ID',
    'ProductionCode' => 'Herstellungskennzeichen',
@@ -6533,8 +6533,8 @@ $VERSION = '1.32';
    'ProfileCopyright' => 'Urheberrechtsvermerk',
    'ProfileCreator' => 'Profilersteller',
    'ProfileDateTime' => 'Profil-Erstellungszeit',
-   'ProfileDescription' => 'Profil-Beschreibung',
-   'ProfileDescriptionML' => 'Profil-Beschreibung ML',
+   'ProfileDescription' => 'Farbprofil Name',
+   'ProfileDescriptionML' => 'Farbprofil Name mehrsprachig',
    'ProfileFileSignature' => 'Profil-Datei-Signatur',
    'ProfileID' => 'Profile-ID',
    'ProfileSequenceDesc' => 'Profilsequenz-Beschreibung',
@@ -7722,9 +7722,9 @@ $VERSION = '1.32';
         'Monochrome' => 'Monochrom',
       },
     },
-   'Subject' => 'Thema',
+   'Subject' => 'Themen/Schlüsselwörter',
    'SubjectArea' => 'Hauptobjektposition',
-   'SubjectCode' => 'Themencode',
+   'SubjectCode' => 'IPTC Themencode',
    'SubjectDistance' => 'Objektentfernung',
    'SubjectDistanceRange' => {
       Description => 'Objektdistanzbereich',
@@ -8092,7 +8092,7 @@ $VERSION = '1.32';
         'Rotate 90 CW' => '90° im Uhrzeigersinn',
       },
     },
-   'TransmissionReference' => 'Übertragungsbezug',
+   'TransmissionReference' => 'Anbietervermerk',
    'Trapped' => {
       PrintConv => {
         'Unknown' => 'Unbekannt',
@@ -8198,7 +8198,7 @@ $VERSION = '1.32';
         'Enable' => 'Möglich',
       },
     },
-   'UsageTerms' => 'Verwendungsvorschriften',
+   'UsageTerms' => 'Nutzungsbedingungen',
    'UserComment' => 'Benutzerkommentar',
    'UserDef1PictureStyle' => {
       Description => 'Bildstil Benutzerdefiniert 1',
@@ -8632,7 +8632,7 @@ $VERSION = '1.32';
    'XMP' => 'XMP Metadaten',
    'XPAuthor' => 'XP Autor',
    'XPComment' => 'XP Kommentar',
-   'XPKeywords' => 'XP Schlüsselwort',
+   'XPKeywords' => 'XP Schlüsselwörter',
    'XPSubject' => 'XP Thema',
    'XPTitle' => 'XP Titel',
    'XResolution' => 'Horizontale Bildauflösung',

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

@@ -16,7 +16,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::XMP;
 
-$VERSION = '1.19';
+$VERSION = '1.21';
 
 sub RecoverTruncatedIPTC($$$);
 sub ListToString($);
@@ -130,7 +130,11 @@ my $mwgLoaded;  # flag set if we alreaded Load()ed the MWG tags
         },
         # must check for validity in RawConv to avoid hiding a same-named tag,
         # but IPTC dates use a ValueConv so we need to derive the value there
-        RawConv => '(defined $val[0] or defined $val[1] or defined $val[3]) ? $val : undef',
+        RawConv => q{
+            (defined $val[0] or defined $val[1] or defined $val[3] or
+            (defined $val[4] and (not defined $val[5] or not defined $val[6]
+            or $val[5] eq $val[6]))) ? $val : undef
+        },
         ValueConv => q{
             return $val[0] if defined $val[0] and $val[0] !~ /^[: ]*$/;
             return $val[1] if defined $val[1] and $val[1] !~ /^[: ]*$/;
@@ -166,7 +170,11 @@ my $mwgLoaded;  # flag set if we alreaded Load()ed the MWG tags
             5 => 'CurrentIPTCDigest',
             6 => 'IPTCDigest',
         },
-        RawConv => '(defined $val[0] or defined $val[1] or defined $val[3]) ? $val : undef',
+        RawConv => q{
+            (defined $val[0] or defined $val[1] or defined $val[3] or
+            (defined $val[4] and (not defined $val[5] or not defined $val[6]
+            or $val[5] eq $val[6]))) ? $val : undef
+        },
         ValueConv => q{
             return $val[0] if defined $val[0] and $val[0] !~ /^[: ]*$/;
             return $val[1] if defined $val[1] and $val[1] !~ /^[: ]*$/;
@@ -430,7 +438,7 @@ my %sRegionStruct = (
     Extensions  => { Struct => \%sExtensions },
     Rotation    => { # (observed in LR6 XMP)
         Writable => 'real',
-        Notes => 'RegionsRegionListRotation, not part of MWG 2.0 spec',
+        Notes => 'not part of MWG 2.0 spec',
     },
     seeAlso => { Namespace => 'rdfs', Resource => 1 },
 );

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

@@ -21,7 +21,7 @@ sub ProcessKodakPatch($$$);
 sub WriteUnknownOrPreview($$$);
 sub FixLeicaBase($$;$);
 
-$VERSION = '1.99';
+$VERSION = '2.00';
 
 my $debug;          # set to 1 to enable debugging code
 
@@ -608,7 +608,7 @@ my $debug;          # set to 1 to enable debugging code
         # (T (Typ 701) starts with "LEICA\0\0x6", Make is "LEICA CAMERA AG")
         # (X (Typ 113) starts with "LEICA\0\0x7", Make is "LEICA CAMERA AG")
         # (X-U (Typ 113) starts with "LEICA\0\x10\0", Make is "LEICA CAMERA AG")
-        Condition => '$$valPt =~ /^LEICA\0[\x01\x04\x05\x06\x07\x10]\0/',
+        Condition => '$$valPt =~ /^LEICA\0[\x01\x04\x05\x06\x07\x10\x1a]\0/',
         SubDirectory => {
             TagTable => 'Image::ExifTool::Panasonic::Leica5',
             Start => '$valuePtr + 8',
@@ -752,7 +752,7 @@ my $debug;          # set to 1 to enable debugging code
     {
         Name => 'MakerNotePentax5',
         # (starts with "PENTAX \0")
-        # used by cameras such as the Q, Optio  S1, RS1500 and WG-1
+        # used by cameras such as the Q, Optio S1, RS1500 and WG-1
         Condition => '$$valPt=~/^PENTAX \0/',
         SubDirectory => {
             TagTable => 'Image::ExifTool::Pentax::Main',

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

@@ -14,7 +14,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.08';
+$VERSION = '1.09';
 
 my %noYes = ( 0 => 'No', 1 => 'Yes' );
 
@@ -659,6 +659,7 @@ my %noYes = ( 0 => 'No', 1 => 'Yes' );
             0 => 'Rectangular',
             1 => 'Equirectangular',
             2 => 'Cubemap',
+            3 => 'Mesh',
         },
     },
     0x7672 => [{

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

@@ -16,7 +16,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::XMP;
 
-$VERSION = '1.18';
+$VERSION = '1.19';
 
 sub ProcessXtra($$$);
 
@@ -88,8 +88,8 @@ sub ProcessXtra($$$);
     Rating => {
         Name => 'RatingPercent',
         Notes => q{
-            called Rating by the spec.  XMP-xmp:Rating values of 1,2,3,4 and 5 stars
-            correspond to RatingPercent values of 1,25,50,75 and 99 respectively
+            XMP-xmp:Rating values of 1,2,3,4 and 5 stars correspond to RatingPercent
+            values of 1,25,50,75 and 99 respectively
         },
     },
     CreatorAppId             => { Name => 'CreatorAppID' },