exiftool_vendored 11.92.0 → 11.93.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 50d7a703ae28929445285054d73951ac9a76832b
-  data.tar.gz: 916debf0b2973fe88b1083a6c52a2862292da3b6
+  metadata.gz: 35973dd75b32b6d82a5a536d999a230d6de7d4ea
+  data.tar.gz: 32dfaf005408997c53a45689ad2f43be57f6e7fa
 SHA512:
-  metadata.gz: 7a4a420e897349e219725639b9a0665101e74f8fb39b9f437bbd4e6adf48acba1d2991f555b1e6e682c3f58bbf229b6e90d7fbea30aeb630010ccda3a5ca53f5
-  data.tar.gz: 6219a3fa63e1c8c4bed6217a54b6a450f6bb9e9dce6b1a3b65ad1458cf0543547f9600275a9d472f50306ab74d1ace86830c71050c1054e0d7d6d59ec1a38c91
+  metadata.gz: 9cf45bb1c1a72a24e13039cc127b6f1df3252281b0fede8e4544fa64be18373a90445b0813622b9dc6cf4b7718a2f31915b39381189f20bc3dfae5b9c03af5f2
+  data.tar.gz: 0f4deebac460423820bb9d5fd22e652153676031ec720e1b20a1f24288116364ffc801ac6cfb31d958b1acd7aa0c02a72d0d221eeff5e4bd287ad42e03379f14

data/bin/Changes

@@ -7,11 +7,30 @@ RSS feed: https://exiftool.org/rss.xml
 Note: The most recent production release is Version 11.85. (Other versions are
 considered development releases, and are not uploaded to CPAN.)
 
+Apr. 3, 2020 - Version 11.93
+
+  - Added new config file to the distribution for writing Pix4D XMP-Camera tags
+    (config_files/pix4d.config)
+  - Added support for the DOSCyrillic (cp866) character set
+  - Added IO::String to the Windows EXE version
+  - Improved identification of Canon RF lenses (thanks LibRaw)
+  - Enhanced -htmlDump output to add "File offset" entry for EXIF tags and
+    ability lock highlighted selection by clicking the mouse
+  - Enhanced -srcfile option to generate OriginalFileName and OriginalDirectory
+    UserParam tags
+  - Patched HEIC writer to add missing pitm box if necessary
+  - Fixed problem adding back EXIF after deleting it from HEIC file
+  - Fixed minor problem with incorrect number of bytes being reported for
+    invalid header in corrupt files
+  - API Changes:
+      - Enhanced UserParam  option to allow parameters to be extracted as if
+        they were a normal tag
+
 Mar. 19, 2020 - Version 11.92
 
   - Added a new Nikon LensID (thanks Wolfgang Exler)
   - Decode a few new Leica tags (thanks Tim Gray)
-  - Decode CameraAngles from Samsung Gear 360 videos
+  - Decode AccelerometerData from Samsung Gear 360 videos
   - Fixed a couple of problems decoding timed GPS metadata from NextBase dashcam
     videos
   - Fixed problem where -X option could produce invalid XML when reading

data/bin/MANIFEST

@@ -26,6 +26,7 @@ config_files/gps2utm.config
 config_files/nksc.config
 config_files/photoshop_paths.config
 config_files/picasa_faces.config
+config_files/pix4d.config
 config_files/rotate_regions.config
 config_files/tiff_version.config
 config_files/time_zone.config
@@ -220,6 +221,7 @@ lib/Image/ExifTool/Charset.pm
 lib/Image/ExifTool/Charset/Arabic.pm
 lib/Image/ExifTool/Charset/Baltic.pm
 lib/Image/ExifTool/Charset/Cyrillic.pm
+lib/Image/ExifTool/Charset/DOSCyrillic.pm
 lib/Image/ExifTool/Charset/DOSLatin1.pm
 lib/Image/ExifTool/Charset/DOSLatinUS.pm
 lib/Image/ExifTool/Charset/Greek.pm

data/bin/META.json

@@ -47,5 +47,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "11.92"
+   "version" : "11.93"
 }

data/bin/META.yml

@@ -28,4 +28,4 @@ recommends:
   Time::HiRes: 0
 requires:
   perl: 5.004
-version: 11.92
+version: 11.93

data/bin/README

@@ -105,8 +105,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-11.92.tar.gz | tar -xf -
-  cd Image-ExifTool-11.92
+  gzip -dc Image-ExifTool-11.93.tar.gz | tar -xf -
+  cd Image-ExifTool-11.93
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 

data/bin/config_files/pix4d.config

@@ -0,0 +1,99 @@
+#------------------------------------------------------------------------------
+# File:         pix4d.config
+#
+# Description:  This config file contains tag definitions needed to be able
+#               to write Pix4D XMP-Camera tags
+#
+# Usage:        exiftool -config pix4d.config -XMP-camera:TAG=VAL ...
+#
+# Requires:     ExifTool version 7.00 or later
+#
+# References:   1) https://support.pix4d.com/hc/en-us/articles/360016450032-Specifications-of-xmpcamera-tags
+#
+# Revisions:    2017/12/08 - P. Harvey Created
+#               2020/04/02 - PH Updated to current specification
+#------------------------------------------------------------------------------
+
+%Image::ExifTool::UserDefined = (
+    'Image::ExifTool::XMP::Main' => {
+        Camera => { 
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::UserDefined::Camera',
+            },
+        },
+    },
+); 
+
+%Image::ExifTool::UserDefined::Camera = (
+    GROUPS => { 0 => 'XMP', 1 => 'XMP-Camera', 2 => 'Camera' },
+    NAMESPACE => { 'Camera' => 'http://pix4d.com/camera/1.0/'  },
+    WRITABLE => 'string',
+    Yaw             => { Writable => 'real' },
+    Pitch           => { Writable => 'real' },
+    Roll            => { Writable => 'real' },
+    IMUSampleSize   => { Writable => 'integer' },
+    IMUTimeOffset   => { Writable => 'integer' },
+    LineReadoutTime => { Writable => 'integer' },
+    IMUFrequency    => { Writable => 'real' },
+    PrincipalPoint  => { },
+    ModelType       => { },
+    PerspectiveFocalLength => { Writable => 'real' },
+    PerspectiveDistortion  => { },
+    IMULinearVelocity => { },
+    GPSXYAccuracy   => { Writable => 'real' },
+    GPSZAccuracy    => { Writable => 'real' },
+    FlightUUID      => { },
+    CentralWaveLength => { },
+    BandName        => { List => 'Seq' },
+    RigName         => { },
+    RigCameraIndex  => { Writable => 'integer' },
+    BandName        => { List => 'Seq' },
+    IMUAngularVelocity => {
+        Binary => 1,
+        ValueConv => 'Image::ExifTool::XMP::DecodeBase64($val)',
+        ValueConvInv => 'Image::ExifTool::XMP::EncodeBase64($val)',
+    },
+    # added 2020/04/02 (ref 1)
+    FisheyeAffineMatrix     => { },
+    FisheyeAffineSymmetric  => { },
+    FisheyePolynomial       => { },
+    RigRelatives            => { },
+    PerspectiveFocalLengthUnits => { },
+    CaptureUUID             => { },
+    CentralWavelength       => { List => 'Seq' },
+    WavelengthFWHM          => { List => 'Seq' },
+    BlackCurrent            => { List => 'Seq' },
+    BandSensitivity         => { List => 'Seq' },
+    SunSensor               => { List => 'Seq' },
+    SunSensorExposureTime   => { List => 'Seq' },
+    SunSensorSensitivity    => { List => 'Seq' },
+    InvalidPixel            => { List => 'Seq' },
+    VignettingPolynomial    => { List => 'Seq' },
+    VignettingCenter        => { List => 'Seq' },
+    VignettingPolynomial2DName => { List => 'Seq' },
+    VignettingPolynomial2D  => { List => 'Seq' },
+    ColorTransform          => { List => 'Seq' },
+    IsNormalized            => { },
+    Albedo                  => { List => 'Seq' },
+    ReflectArea             => { List => 'Seq' },
+    CalibrationPicture      => { Writable => 'integer' },
+    GyroRate                => { Writable => 'real' },
+    IMUPitchAccuracy        => { Writable => 'real' },
+    IMURollAccuracy         => { Writable => 'real' },
+    IMUYawAccuracy          => { Writable => 'real' },
+    NominalCameraDistance   => { Writable => 'real' },
+    AboveGroundAltitude     => { Writable => 'real' },
+    SunSensorYaw            => { Writable => 'real' },
+    SunSensorPitch          => { Writable => 'real' },
+    SunSensorRoll           => { Writable => 'real' },
+    SunSensorRelativeRotation => { Writable => 'real', List => 'Seq' },
+    TransformAlpha          => { List => 'Seq' },
+    TransformBeta           => { List => 'Seq' },
+    TransformGamma          => { List => 'Seq' },
+    SensorBitDepth          => { Writable => 'integer' },
+    SensorTemperature       => { Writable => 'real' },
+    # (ref https://community.pix4d.com/t/camera-sun-irradiance-and-sun-angle-in-red-text/3290)
+    IrradianceRelativeRotation => { },
+);
+
+1;  #end

data/bin/exiftool

@@ -10,7 +10,7 @@
 use strict;
 require 5.004;
 
-my $version = '11.92';
+my $version = '11.93';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
 my $exeDir;
@@ -1887,6 +1887,9 @@ sub GetImageInfo($$)
             $first = $file unless defined $first;
         }
         $file = $first if defined $first;
+        my ($d, $f) = Image::ExifTool::SplitFileName($orig);
+        $et->Options(UserParam => "OriginalDirectory#=$d");
+        $et->Options(UserParam => "OriginalFileName#=$f");
     } else {
         $file = $orig;
     }
@@ -4867,6 +4870,7 @@ available character sets is returned.  Valid I<CHARSET> values are:
     Thai        cp874            Windows Thai
     DOSLatinUS  cp437            DOS Latin US
     DOSLatin1   cp850            DOS Latin1
+    DOSCyrillic cp866            DOS Cyrillic
     MacRoman    cp10000, Roman   Macintosh Roman
     MacLatin2   cp10029          Macintosh Latin2 (Central Europe)
     MacCyrillic cp10007          Macintosh Cyrillic
@@ -5206,7 +5210,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 11.92 --
+    -- Generated by ExifTool 11.93 --
     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
@@ -6178,6 +6182,10 @@ A I<FMT> of C<@> may be used to represent the original I<FILE>, which may be
 useful when specifying multiple B<-srcfile> options (eg. to fall back to
 processing the original I<FILE> if no sidecar exists).
 
+When this option is used, two special UserParam tags (OriginalFileName and
+OriginalDirectory) are generated to allow access to the original I<FILE>
+name and directory.
+
 =item B<-stay_open> I<FLAG>
 
 If I<FLAG> is C<1> or C<True>, causes exiftool keep reading from the B<-@>
@@ -6227,15 +6235,15 @@ necessary when using this technique.)
 
 =item B<-userParam> I<PARAM[[^]=[VAL]]>
 
-Set user parameter.  I<PARAM> is an arbitrary user parameter name.  This
-is an interface to the API UserParam option (see the
+Set user parameter.  I<PARAM> is an arbitrary user parameter name.  This is
+an interface to the API UserParam option (see the
 L<Image::ExifTool Options|Image::ExifTool/Options> documentation), and
-provides a method to access user-defined parameters from inside tag name
-expressions (as if it were any other tag, see example below), and from
-PrintConv/ValueConv logic (via the ExifTool Options function).  Similar to
-the B<-api> option, the parameter value is set to 1 if I<=VAL> is omitted,
-undef if just I<VAL> is omitted with C<=>, or an empty string if
-I<VAL> is omitted with C<^=>.
+provides a method to access user-defined parameters in arguments to the
+B<-if> and B<-p> options as if they were any other tag.  Appending a hash
+tag (C<#>) to I<PARAM> also causes the parameter to be extracted as a normal
+tag (in the UserParam group).  Similar to the B<-api> option, the parameter
+value is set to 1 if I<=VAL> is omitted, undef if just I<VAL> is omitted
+with C<=>, or an empty string if I<VAL> is omitted with C<^=>.
 
     exiftool -p '$test from $filename' -userparam test=Hello FILE
 

data/bin/lib/Image/ExifTool.pm

@@ -28,7 +28,7 @@ use vars qw($VERSION $RELEASE @ISA @EXPORT_OK %EXPORT_TAGS $AUTOLOAD @fileTypes
             %mimeType $swapBytes $swapWords $currentByteOrder %unpackStd
             %jpegMarker %specialTags %fileTypeLookup $testLen $exePath);
 
-$VERSION = '11.92';
+$VERSION = '11.93';
 $RELEASE = '';
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (
@@ -118,6 +118,7 @@ sub NewGUID();
 sub MakeTiffHeader($$$$;$$);
 
 # other subroutine definitions
+sub SplitFileName($);
 sub EncodeFileName($$;$);
 sub Open($*$;$);
 sub Exists($$);
@@ -982,6 +983,7 @@ my %xmpShorthandOpt = ( 0 => 'None', 1 => 'Shorthand', 2 => ['Shorthand','OneDes
     thai        => 'Thai',        cp874   => 'Thai',
     doslatinus  => 'DOSLatinUS',  cp437   => 'DOSLatinUS',
     doslatin1   => 'DOSLatin1',   cp850   => 'DOSLatin1',
+    doscyrillic => 'DOSCyrillic', cp866   => 'DOSCyrillic',
     macroman    => 'MacRoman',    cp10000 => 'MacRoman', mac => 'MacRoman', roman => 'MacRoman',
     maclatin2   => 'MacLatin2',   cp10029 => 'MacLatin2',
     maccyrillic => 'MacCyrillic', cp10007 => 'MacCyrillic',
@@ -1723,6 +1725,12 @@ my %systemTagsNotes = (
     },
 );
 
+# tags defined by UserParam option (added at runtime)
+%Image::ExifTool::UserParam = (
+    GROUPS => { 0 => 'UserParam', 1 => 'UserParam', 2 => 'Other' },
+    PRIORITY => 0,
+);
+
 # YCbCrSubSampling values (used by JPEG SOF, EXIF and XMP)
 %Image::ExifTool::JPEG::yCbCrSubSampling = (
     '1 1' => 'YCbCr4:4:4 (1 1)', #PH
@@ -2063,31 +2071,45 @@ sub Options($$;@)
         } elsif ($param eq 'UserParam') {
             # clear options if $newVal is undef
             defined $newVal or $$options{$param} = {}, next;
+            my $table = GetTagTable('Image::ExifTool::UserParam');
             # allow initialization of entire UserParam hash
             if (ref $newVal eq 'HASH') {
                 my %newParams;
-                $newParams{lc $_} = $$newVal{$_} foreach sort keys %$newVal;
+                foreach (sort keys %$newVal) {
+                    my $lcTag = lc $_;
+                    $newParams{$lcTag} = $$newVal{$_};
+                    delete $$table{$lcTag};
+                    AddTagToTable($table, $lcTag, $_);
+                }
                 $$options{$param} = \%newParams;
                 next;
             }
-            my $force;
+            my ($force, $paramName);
             # set/reset single UserParam parameter
             if ($newVal =~ /(.*?)=(.*)/s) {
-                $param = lc $1;
+                $paramName = $1;
                 $newVal = $2;
-                $force = 1 if $param =~ s/\^$//;
+                $force = 1 if $paramName =~ s/\^$//;
+                $paramName =~ tr/-_a-zA-Z0-9#//dc;
+                $param = lc $paramName;
             } else {
-                $param = lc $newVal;
+                ($param = lc $newVal) =~ tr/-_a-zA-Z0-9#//dc;
                 undef $newVal;
             }
+            delete $$table{$param};
             $oldVal = $$options{UserParam}{$param};
             if (defined $newVal) {
                 if (length $newVal or $force) {
                     $$options{UserParam}{$param} = $newVal;
+                    AddTagToTable($table, $param, $paramName);
                 } else {
                     delete $$options{UserParam}{$param};
                 }
             }
+            # remove alternate version of tag
+            $param .= '#' unless $param =~ s/#$//;
+            delete $$table{$param};
+            delete $$options{UserParam}{$param};
         } elsif ($param eq 'RequestTags') {
             if (defined $newVal) {
                 # parse list from delimited string if necessary
@@ -2244,7 +2266,7 @@ sub ClearOptions($)
         TextOut     => \*STDOUT,# file for Verbose/HtmlDump output
         TimeZone    => undef,   # local time zone
         Unknown     => 0,       # flag to get values of unknown tags (0-2)
-        UserParam   => { },     # user parameters for InsertTagValues()
+        UserParam   => { },     # user parameters for additional user-defined tag values
         Validate    => undef,   # perform additional validation
         Verbose     => 0,       # print verbose messages (0-5, higher # = more verbose)
         WriteMode   => 'wcg',   # enable all write modes by default
@@ -2350,15 +2372,7 @@ sub ExtractInfo($;@)
             unless ($filename eq '-') {
                 # extract file name from pipe if necessary
                 $realname =~ /\|$/ and $realname =~ s/^.*?"(.*?)".*/$1/s;
-                my ($dir, $name);
-                if (eval { require File::Basename }) {
-                    $dir = File::Basename::dirname($realname);
-                    $name = File::Basename::basename($realname);
-                } else {
-                    ($name = $realname) =~ tr/\\/\//;
-                    # remove path
-                    $dir = length($1) ? $1 : '/' if $name =~ s/(.*)\///;
-                }
+                my ($dir, $name) = SplitFileName($realname);
                 $self->FoundTag('FileName', $name);
                 $self->FoundTag('Directory', $dir) if defined $dir and length $dir;
                 if ($$req{filepath} or
@@ -2591,7 +2605,7 @@ sub ExtractInfo($;@)
                     if ($$self{OPTIONS}{FastScan}) {
                         $err = 'File header is all';
                     } else {
-                        my $num = length $buff;
+                        my $num = 0;
                         for (;;) {
                             $raf->Read($buff, 65536) or undef($num), last;
                             $buff =~ /[^\Q$ch\E]/g and $num += pos($buff) - 1, last;
@@ -2679,6 +2693,15 @@ sub ExtractInfo($;@)
 
     @startTime and $self->FoundTag('ProcessingTime', Time::HiRes::tv_interval(\@startTime));
 
+    # add user-defined parameters that ended with '!'
+    if (%{$$options{UserParam}}) {
+        $self->VPrint(0, "UserParam tags:\n");
+        my $table = GetTagTable('Image::ExifTool::UserParam');
+        foreach (sort keys %{$$options{UserParam}}) {
+            $self->HandleTag($table, $_, $$options{UserParam}{$_}) if /#$/;
+        }
+    }
+
     # restore original options
     %saveOptions and $$self{OPTIONS} = \%saveOptions;
 
@@ -3854,6 +3877,25 @@ sub NextTagKey($$)
     return undef;
 }
 
+#------------------------------------------------------------------------------
+# Split file name into directory and name parts
+# Inptus: 0) file name
+# Returns: 0) directory, 1) filename
+sub SplitFileName($)
+{
+    my $file = shift;
+    my ($dir, $name);
+    if (eval { require File::Basename }) {
+        $dir = File::Basename::dirname($file);
+        $name = File::Basename::basename($file);
+    } else {
+        ($name = $file) =~ tr/\\/\//;
+        # remove path
+        $dir = length($1) ? $1 : '/' if $name =~ s/(.*)\///;
+    }
+    return ($dir, $name);
+}
+
 #------------------------------------------------------------------------------
 # Encode file name for calls to system i/o routines
 # Inputs: 0) ExifTool ref, 1) file name in CharSetFileName, 2) flag to force conversion
@@ -7629,7 +7671,7 @@ sub GetTagInfo($$$;$$$)
 # Returns: tagInfo ref
 # Notes: - will not override existing entry in table
 # - info need contain no entries when this routine is called
-# - tag name is made valid if necessary
+# - tag name is cleaned if necessary
 sub AddTagToTable($$;$$)
 {
     my ($tagTablePtr, $tagID, $tagInfo, $noPrefix) = @_;

data/bin/lib/Image/ExifTool.pod

@@ -468,6 +468,7 @@ below, case is not significant:
   Thai         cp874            Windows Thai
   DOSLatinUS   cp437            DOS Latin US
   DOSLatin1    cp850            DOS Latin1
+  DOSCyrillic  cp866            DOS Cyrillic
   MacRoman     cp10000, Roman   Macintosh Roman
   MacLatin2    cp10029          Macintosh Latin2 (Central Europe)
   MacCyrillic  cp10007          Macintosh Cyrillic
@@ -971,9 +972,11 @@ Where I<PARAM> is the user-defined parameter name (case insensitive).
 
 User-defined parameters may be accessed in tag name expressions by prefixing
 the parameter name with a dollar sign just like normal tags, or via the API
-by calling C<Options('UserParam','PARAM')>.  If called without no additional
-arguments, C<Options('UserParam')> returns a reference to the hash of all
-user parameters (with lower-case names).
+by calling C<Options('UserParam','PARAM')>.  Appending a hash tag (C<#>) to
+the parameter name also causes the parameter to be extracted as a normal tag
+(in the UserParam group).  If called without additional arguments,
+C<Options('UserParam')> returns a reference to the hash of all user
+parameters (with lower-case names).
 
 =item Validate
 
@@ -2590,7 +2593,7 @@ character references are converted.  When writing, ExifTool always encodes
 XMP as UTF-8, converting the following 5 characters to XML character
 references: E<amp> E<lt> E<gt> E<39> E<quot>.  By default no further
 conversion is performed, however if the L</Charset> option is other than
-'UTF8' then text is converted to/from a specified character set when
+'UTF8' then text is converted to/from the specified character set when
 reading/writing.
 
 =head2 PNG

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

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '4.35';
+$VERSION = '4.36';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -6676,6 +6676,24 @@ my %ciMaxFocal = (
         Name => 'FlashExposureLock',
         PrintConv => \%offOn,
     },
+    0x3d => { #IB
+        Name => 'RFLensType',
+        Format => 'int16u',
+        PrintConv => {
+            0 => 'n/a',
+            257 => 'Canon RF 50mm F1.2L USM',
+            258 => 'Canon RF 24-105mm F4L IS USM',
+            259 => 'Canon RF 28-70mm F2L USM',
+            260 => 'Canon RF 35mm F1.8 MACRO IS STM',
+            261 => 'Canon RF 85mm F1.2L USM',
+            262 => 'Canon RF 85mm F1.2L USM DS',
+            263 => 'Canon RF 24-70mm F2.8L IS USM',
+            264 => 'Canon RF 15-35mm F2.8L IS USM',
+            265 => 'Canon RF 24-240mm F4-6.3 IS USM',
+            266 => 'Canon RF 70-200mm F2.8L IS USM',
+            274 => 'Canon RF 24-105mm F4-7.1 IS STM',
+        },
+    },
 );
 
 # Internal serial number information (MakerNotes tag 0x96) (ref PH)

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

@@ -59,6 +59,7 @@ my %unicode2byte = (
     Latin2       => 0x101,
     DOSLatinUS   => 0x101,
     DOSLatin1    => 0x101,
+    DOSCyrillic  => 0x101,
     MacCroatian  => 0x101,
     MacCyrillic  => 0x101,
     MacGreek     => 0x101,
@@ -407,11 +408,11 @@ This module contains routines used by ExifTool to translate special
 character sets.  Currently, the following character sets are supported:
 
   UTF8, UTF16, UCS2, UCS4, Arabic, Baltic, Cyrillic, Greek, Hebrew, JIS,
-  Latin, Latin2, DOSLatinUS, DOSLatin1, MacArabic, MacChineseCN,
-  MacChineseTW, MacCroatian, MacCyrillic, MacGreek, MacHebrew, MacIceland,
-  MacJapanese, MacKorean, MacLatin2, MacRSymbol, MacRoman, MacRomanian,
-  MacThai, MacTurkish, PDFDoc, RSymbol, ShiftJIS, Symbol, Thai, Turkish,
-  Vietnam
+  Latin, Latin2, DOSLatinUS, DOSLatin1, DOSCyrillic, MacArabic,
+  MacChineseCN, MacChineseTW, MacCroatian, MacCyrillic, MacGreek, MacHebrew,
+  MacIceland, MacJapanese, MacKorean, MacLatin2, MacRSymbol, MacRoman,
+  MacRomanian, MacThai, MacTurkish, PDFDoc, RSymbol, ShiftJIS, Symbol, Thai,
+  Turkish, Vietnam
 
 However, only some of these character sets are available to the user via
 ExifTool options -- the multi-byte character sets are used only internally

data/bin/lib/Image/ExifTool/Charset/DOSCyrillic.pm

@@ -0,0 +1,49 @@
+#------------------------------------------------------------------------------
+# File:         DOSCyrillic.pm
+#
+# Description:  cp866 to Unicode
+#
+# Revisions:    2020/03/23 - P. Harvey created
+#
+# References:   1) https://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/PC/CP866.TXT
+#
+# Notes:        The table omits 1-byte characters with the same values as Unicode
+#------------------------------------------------------------------------------
+use strict;
+
+%Image::ExifTool::Charset::DOSCyrillic = (
+  0x80 => 0x0410, 0x81 => 0x0411, 0x82 => 0x0412, 0x83 => 0x0413,
+  0x84 => 0x0414, 0x85 => 0x0415, 0x86 => 0x0416, 0x87 => 0x0417,
+  0x88 => 0x0418, 0x89 => 0x0419, 0x8a => 0x041a, 0x8b => 0x041b,
+  0x8c => 0x041c, 0x8d => 0x041d, 0x8e => 0x041e, 0x8f => 0x041f,
+  0x90 => 0x0420, 0x91 => 0x0421, 0x92 => 0x0422, 0x93 => 0x0423,
+  0x94 => 0x0424, 0x95 => 0x0425, 0x96 => 0x0426, 0x97 => 0x0427,
+  0x98 => 0x0428, 0x99 => 0x0429, 0x9a => 0x042a, 0x9b => 0x042b,
+  0x9c => 0x042c, 0x9d => 0x042d, 0x9e => 0x042e, 0x9f => 0x042f,
+  0xa0 => 0x0430, 0xa1 => 0x0431, 0xa2 => 0x0432, 0xa3 => 0x0433,
+  0xa4 => 0x0434, 0xa5 => 0x0435, 0xa6 => 0x0436, 0xa7 => 0x0437,
+  0xa8 => 0x0438, 0xa9 => 0x0439, 0xaa => 0x043a, 0xab => 0x043b,
+  0xac => 0x043c, 0xad => 0x043d, 0xae => 0x043e, 0xaf => 0x043f,
+  0xb0 => 0x2591, 0xb1 => 0x2592, 0xb2 => 0x2593, 0xb3 => 0x2502,
+  0xb4 => 0x2524, 0xb5 => 0x2561, 0xb6 => 0x2562, 0xb7 => 0x2556,
+  0xb8 => 0x2555, 0xb9 => 0x2563, 0xba => 0x2551, 0xbb => 0x2557,
+  0xbc => 0x255d, 0xbd => 0x255c, 0xbe => 0x255b, 0xbf => 0x2510,
+  0xc0 => 0x2514, 0xc1 => 0x2534, 0xc2 => 0x252c, 0xc3 => 0x251c,
+  0xc4 => 0x2500, 0xc5 => 0x253c, 0xc6 => 0x255e, 0xc7 => 0x255f,
+  0xc8 => 0x255a, 0xc9 => 0x2554, 0xca => 0x2569, 0xcb => 0x2566,
+  0xcc => 0x2560, 0xcd => 0x2550, 0xce => 0x256c, 0xcf => 0x2567,
+  0xd0 => 0x2568, 0xd1 => 0x2564, 0xd2 => 0x2565, 0xd3 => 0x2559,
+  0xd4 => 0x2558, 0xd5 => 0x2552, 0xd6 => 0x2553, 0xd7 => 0x256b,
+  0xd8 => 0x256a, 0xd9 => 0x2518, 0xda => 0x250c, 0xdb => 0x2588,
+  0xdc => 0x2584, 0xdd => 0x258c, 0xde => 0x2590, 0xdf => 0x2580,
+  0xe0 => 0x0440, 0xe1 => 0x0441, 0xe2 => 0x0442, 0xe3 => 0x0443,
+  0xe4 => 0x0444, 0xe5 => 0x0445, 0xe6 => 0x0446, 0xe7 => 0x0447,
+  0xe8 => 0x0448, 0xe9 => 0x0449, 0xea => 0x044a, 0xeb => 0x044b,
+  0xec => 0x044c, 0xed => 0x044d, 0xee => 0x044e, 0xef => 0x044f,
+  0xf0 => 0x0401, 0xf1 => 0x0451, 0xf2 => 0x0404, 0xf3 => 0x0454,
+  0xf4 => 0x0407, 0xf5 => 0x0457, 0xf6 => 0x040e, 0xf7 => 0x045e,
+  0xf8 => 0x00b0, 0xf9 => 0x2219, 0xfa => 0x00b7, 0xfb => 0x221a,
+  0xfc => 0x2116, 0xfd => 0x00a4, 0xfe => 0x25a0, 0xff => 0x00a0,
+);
+
+1; # end

data/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.29';
+$VERSION = '4.30';
 
 sub ProcessExif($$$);
 sub WriteExif($$$);
@@ -4728,6 +4728,7 @@ my %subSecConv = (
             9 => 'LensType2',
             10 => 'LensType3',
             11 => 'LensFocalLength', # (for Pentax to check for converter)
+            12 => 'RFLensType',
         },
         Notes => q{
             attempt to identify the actual lens from all lenses with a given LensType.
@@ -4756,6 +4757,12 @@ my %subSecConv = (
                 }
                 $pcv = $$self{TAG_INFO}{LensType2}{PrintConv};
             }
+            # use Canon RFLensType if available
+            if ($val[12]) {
+                $val[0] = $val[12];
+                $prt[0] = $prt[12];
+                $pcv = $$self{TAG_INFO}{RFLensType}{PrintConv};
+            }
             my $lens = Image::ExifTool::Exif::PrintLensID($self, $prt[0], $pcv, $prt[8], @val);
             # check for use of lens converter (Pentax K-3)
             if ($val[11] and $val[1] and $lens) {
@@ -6163,6 +6170,9 @@ sub ProcessExif($$$)
                         $tip .= sprintf("Offset base: ${sign}0x%.4x\n", abs($actPt - $offPt));
                         $style = 'F' if $style eq 'H';  # purple for different offsets
                     }
+                    if ($$et{EXIF_POS} and not $$et{BASE_FUDGE}) {
+                        $tip .= sprintf("File offset:   0x%.4x\n", $actPt + $$et{EXIF_POS})
+                    }
                     $colName = "<span class=$style>$tagName</span>";
                     $colName .= ' <span class=V>(odd)</span>' if $offPt & 0x01;
                 } else {

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

@@ -97,7 +97,8 @@ var YTOP = 20;  // y offset when above cursor
 var safari1 = navigator.userAgent.indexOf("Safari/312.6") >= 0;
 var ie6 = navigator.userAgent.toLowerCase().indexOf('msie 6') >= 0;
 var mspan = new Array;
-var hlist, tt, tb;
+var clicked = 0;
+var hlist, tt, tb, firstOutEvt, lastInEvt;
 
 function GetElementsByClass(classname, tagname) {
   var found = new Array();
@@ -115,6 +116,18 @@ function GetElementsByClass(classname, tagname) {
   return found;
 }
 
+// click mouse
+function doClick(e)
+{
+  clicked ^= 1;
+  if (clicked) {
+    firstOutEvt = lastInEvt = undefined;
+  } else {
+    if (firstOutEvt) high(firstOutEvt, 0);
+    if (lastInEvt) high(lastInEvt, 1);
+  }
+}
+
 // move tooltip
 function move(e)
 {
@@ -162,6 +175,12 @@ function move(e)
 
 // highlight/unhighlight text
 function high(e,on) {
+  if (on) {
+    lastInEvt = e;
+  } else {
+    if (!firstOutEvt) firstOutEvt = e;
+  }
+  if (clicked) return;
   var targ;
   if (e.target) targ = e.target;
   else if (e.srcElement) targ = e.srcElement;
@@ -226,7 +245,7 @@ Enable JavaScript for active highlighting and information tool tips!
 <table class=dump cellspacing=0 cellpadding=2>
 <tr><td valign='top'><pre>];
 
-my $preMouse = q(<pre onmouseover="high(event,1)" onmouseout="high(event,0)" onmousemove="move(event)">);
+my $preMouse = q(<pre onmouseover="high(event,1)" onmouseout="high(event,0)" onmousemove="move(event)" onmousedown="doClick(event)">);
 
 #------------------------------------------------------------------------------
 # New - create new HtmlDump object

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

@@ -5056,6 +5056,7 @@ my %tagLookup = (
 	'reverseshutterspeedaperture' => { 273 => '5.3' },
 	'revision' => { 466 => 'revision' },
 	'rflensmffocusringsensitivity' => { 81 => 0x714 },
+	'rflenstype' => { 55 => 0x3d },
 	'rgbcurvelimits' => { 105 => 0x238 },
 	'rgbcurvepoints' => { 104 => 0x7, 105 => 0x20e },
 	'richtextcomment' => { 471 => 'RichTextComment' },

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 23357 tags, with 15304 unique tag names.
+They contain a total of 23358 tags, with 15305 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
@@ -6895,6 +6895,7 @@ WB tags for the Canon G9.
      20    FocusDistanceUpper                   int16u
      21    FocusDistanceLower                   int16u
      25    FlashExposureLock                    int16s
+     61    RFLensType                           int16u
 
 =head3 Canon SerialInfo Tags
 
@@ -34380,6 +34381,7 @@ values, may created via the ExifTool configuration file.
                        LensType2
                        LensType3
                        LensFocalLength
+                       RFLensType
   LensID               Nikon:LensIDNumber       no
                        LensFStops
                        MinFocalLength

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

@@ -457,94 +457,98 @@ sub WriteItemInfo($$$)
     return () unless $items and $raf;
 
     # extract information from EXIF/XMP metadata items
-    if ($items and $raf) {
-        my $curPos = $raf->Tell();
-        my $primary = $$et{PrimaryItem} || 0;
-        my $id;
-        foreach $id (sort { $a <=> $b } keys %$items) {
-            my $item = $$items{$id};
-            # only edit primary EXIF/XMP metadata
-            next unless $$item{RefersTo} and $$item{RefersTo}{$primary};
-            my $type = $$item{ContentType} || $$item{Type} || next;
-            # get ExifTool name for this item
-            $name = { Exif => 'EXIF', 'application/rdf+xml' => 'XMP' }->{$type};
-            next unless $name;  # only care about EXIF and XMP
-            next unless $$et{EDIT_DIRS}{$name};
-            $did{$name} = 1;    # set flag to prevent creating this metadata
-            my ($warn, $extent, $buff, @edit);
-            $warn = 'Missing iloc box' unless $$boxPos{iloc};
-            $warn = "No Extents for $type item" unless $$item{Extents} and @{$$item{Extents}};
-            $warn = "Can't currently decode encoded $type metadata" if $$item{ContentEncoding};
-            $warn = "Can't currently decode protected $type metadata" if $$item{ProtectionIndex};
-            $warn = "Can't currently extract $type with construction method $$item{ConstructionMethod}" if $$item{ConstructionMethod};
-            $warn = "$type metadata is not this file" if $$item{DataReferenceIndex};
-            $warn and $et->Warn($warn), next;
-            my $base = $$item{BaseOffset} || 0;
-            my $val = '';
-            foreach $extent (@{$$item{Extents}}) {
-                $val .= $buff if defined $buff;
-                my $pos = $$extent[1] + $base;
-                if ($$extent[2]) {
-                    $raf->Seek($pos, 0) or last;
-                    $raf->Read($buff, $$extent[2]) or last;
-                } else {
-                    $buff = '';
-                }
-                push @edit, [ $pos, $pos + $$extent[2] ];   # replace or delete this if changed
+    my $primary = $$et{PrimaryItem};
+    my $curPos = $raf->Tell();
+    my $id;
+    foreach $id (sort { $a <=> $b } keys %$items) {
+        $primary = $id unless defined $primary; # assume primary is lowest-number item if pitm missing
+        my $item = $$items{$id};
+        # only edit primary EXIF/XMP metadata
+        next unless $$item{RefersTo} and $$item{RefersTo}{$primary};
+        my $type = $$item{ContentType} || $$item{Type} || next;
+        # get ExifTool name for this item
+        $name = { Exif => 'EXIF', 'application/rdf+xml' => 'XMP' }->{$type};
+        next unless $name;  # only care about EXIF and XMP
+        next unless $$et{EDIT_DIRS}{$name};
+        $did{$name} = 1;    # set flag to prevent creating this metadata
+        my ($warn, $extent, $buff, @edit);
+        $warn = 'Missing iloc box' unless $$boxPos{iloc};
+        $warn = "No Extents for $type item" unless $$item{Extents} and @{$$item{Extents}};
+        $warn = "Can't currently decode encoded $type metadata" if $$item{ContentEncoding};
+        $warn = "Can't currently decode protected $type metadata" if $$item{ProtectionIndex};
+        $warn = "Can't currently extract $type with construction method $$item{ConstructionMethod}" if $$item{ConstructionMethod};
+        $warn = "$type metadata is not this file" if $$item{DataReferenceIndex};
+        $warn and $et->Warn($warn), next;
+        my $base = $$item{BaseOffset} || 0;
+        my $val = '';
+        foreach $extent (@{$$item{Extents}}) {
+            $val .= $buff if defined $buff;
+            my $pos = $$extent[1] + $base;
+            if ($$extent[2]) {
+                $raf->Seek($pos, 0) or last;
+                $raf->Read($buff, $$extent[2]) or last;
+            } else {
+                $buff = '';
             }
-            next unless defined $buff;
-            $buff = $val . $buff if length $val;
-            my ($hdr, $subTable, $proc);
-            if ($name eq 'EXIF') {
-                if (length($buff) < 4 or length($buff) < 4 + unpack('N',$buff)) {
-                    $et->Warn('Invalid Exif header');
-                    next;
-                }
+            push @edit, [ $pos, $pos + $$extent[2] ];   # replace or delete this if changed
+        }
+        next unless defined $buff;
+        $buff = $val . $buff if length $val;
+        my ($hdr, $subTable, $proc);
+        if ($name eq 'EXIF') {
+            if (not length $buff) {
+                # create EXIF from scratch
+                $hdr = "\0\0\0\x06Exif\0\0";
+            } elsif (length($buff) >= 4 and length($buff) >= 4 + unpack('N',$buff)) {
                 $hdr = substr($buff, 0, 4 + unpack('N',$buff));
-                $subTable = GetTagTable('Image::ExifTool::Exif::Main');
-                $proc = \&Image::ExifTool::WriteTIFF;
             } else {
-                $hdr = '';
-                $subTable = GetTagTable('Image::ExifTool::XMP::Main');
+                $et->Warn('Invalid Exif header');
+                next;
             }
-            my %dirInfo = (
-                DataPt   => \$buff,
-                DataLen  => length $buff,
-                DirStart => length $hdr,
-                DirLen   => length($buff) - length $hdr,
-            );
-            my $changed = $$et{CHANGED};
-            my $newVal = $et->WriteDirectory(\%dirInfo, $subTable, $proc);
-            if (defined $newVal and $changed ne $$et{CHANGED} and
-                # nothing changed if deleting an empty directory
-                ($dirInfo{DirLen} or length $newVal))
-            {
-                $newVal = $hdr . $newVal if length $hdr and length $newVal;
-                $edit[0][2] = \$newVal;     # replace the old chunk with the new data
-                $edit[0][3] = $id;          # mark this chunk with the item ID
-                push @mdatEdit, @edit;
-                # update item extent_length
-                my $n = length $newVal;
-                foreach $extent (@{$$item{Extents}}) {
-                    my ($nlen, $lenPt) = @$extent[3,4];
-                    if ($nlen == 8) {
-                        Set64u($n, $outfile, $$boxPos{iloc}[0] + 8 + $lenPt);
-                    } elsif ($n <= 0xffffffff) {
-                        Set32u($n, $outfile, $$boxPos{iloc}[0] + 8 + $lenPt);
-                    } else {
-                        $et->Error("Can't yet promote iloc length to 64 bits");
-                        return ();
-                    }
-                    $n = 0;
-                }
-                if (@{$$item{Extents}} != 1) {
-                    $et->Error("Can't yet handle $name in multiple parts. Please submit sample for testing");
+            $subTable = GetTagTable('Image::ExifTool::Exif::Main');
+            $proc = \&Image::ExifTool::WriteTIFF;
+        } else {
+            $hdr = '';
+            $subTable = GetTagTable('Image::ExifTool::XMP::Main');
+        }
+        my %dirInfo = (
+            DataPt   => \$buff,
+            DataLen  => length $buff,
+            DirStart => length $hdr,
+            DirLen   => length($buff) - length $hdr,
+        );
+        my $changed = $$et{CHANGED};
+        my $newVal = $et->WriteDirectory(\%dirInfo, $subTable, $proc);
+        if (defined $newVal and $changed ne $$et{CHANGED} and
+            # nothing changed if deleting an empty directory
+            ($dirInfo{DirLen} or length $newVal))
+        {
+            $newVal = $hdr . $newVal if length $hdr and length $newVal;
+            $edit[0][2] = \$newVal;     # replace the old chunk with the new data
+            $edit[0][3] = $id;          # mark this chunk with the item ID
+            push @mdatEdit, @edit;
+            # update item extent_length
+            my $n = length $newVal;
+            foreach $extent (@{$$item{Extents}}) {
+                my ($nlen, $lenPt) = @$extent[3,4];
+                if ($nlen == 8) {
+                    Set64u($n, $outfile, $$boxPos{iloc}[0] + 8 + $lenPt);
+                } elsif ($n <= 0xffffffff) {
+                    Set32u($n, $outfile, $$boxPos{iloc}[0] + 8 + $lenPt);
+                } else {
+                    $et->Error("Can't yet promote iloc length to 64 bits");
+                    return ();
                 }
+                $n = 0;
+            }
+            if (@{$$item{Extents}} != 1) {
+                $et->Error("Can't yet handle $name in multiple parts. Please submit sample for testing");
             }
-            $$et{CHANGED} = $changed;   # (will set this later if successful in editing mdat)
         }
-        $raf->Seek($curPos, 0);     # seek back to original position
+        $$et{CHANGED} = $changed;   # (will set this later if successful in editing mdat)
     }
+    $raf->Seek($curPos, 0);     # seek back to original position
+
     # add necessary metadata types if they didn't already exist
     my ($countNew, %add, %usedID);
     foreach $name ('EXIF','XMP') {
@@ -556,10 +560,18 @@ sub WriteItemInfo($$$)
             $et->Warn("Can't create $name. Missing expected $str");
             last;
         }
-        my $primary = $$et{PrimaryItem};
-        unless (defined $primary) {
-            $et->Warn("Can't create $name. No primary item reference");
-            last;
+        unless (defined $$et{PrimaryItem}) {
+            unless (defined $primary) {
+                $et->Warn("Can't create $name. No items to reference");
+                last;
+            }
+            # add new primary item reference box after hdrl box
+            if ($primary < 0x10000) {
+                $add{hdlr} = pack('Na4Nn', 14, 'pitm', 0, $primary);
+            } else {
+                $add{hdlr} = pack('Na4CCCCN', 16, 'pitm', 1, 0, 0, 0, $primary);
+            }
+            $et->Warn("Added missing PrimaryItemReference (for item $primary)", 1);
         }
         my $buff = '';
         my ($hdr, $subTable, $proc);
@@ -585,7 +597,7 @@ sub WriteItemInfo($$$)
                 $irefVer = Get8u($outfile, $$boxPos{iref}[0] + 8);
             } else {
                 # create iref box after end of iinf box (and save version in boxPos list)
-                $irefVer = ($primary > 0xffff ? 1 : 0);
+                $irefVer = ($primary < 0x10000 ? 0 : 1);
                 $$boxPos{iref} = [ $$boxPos{iinf}[0] + $$boxPos{iinf}[1], 0, $irefVer ];
             }
             $newVal = $hdr . $newVal if length $hdr;
@@ -672,7 +684,8 @@ sub WriteItemInfo($$$)
         }
     }
     if ($countNew) {
-        # insert new entries into iinf, iref and iloc boxes
+        # insert new entries into iinf, iref and iloc boxes,
+        # and add new pitm box after hdlr if necessary
         my $added = 0;
         my $tag;
         foreach $tag (sort { $$boxPos{$a}[0] <=> $$boxPos{$b}[0] } keys %$boxPos) {
@@ -683,7 +696,7 @@ sub WriteItemInfo($$$)
                 # create new iref box
                 $add{$tag} = Set32u(12 + length $add{$tag}) . $tag .
                              Set8u($$boxPos{$tag}[2]) . "\0\0\0" . $add{$tag};
-            } else {
+            } elsif ($tag ne 'hdlr') {
                 my $n = Get32u($outfile, $pos);
                 Set32u($n + length($add{$tag}), $outfile, $pos);    # increase box size
             }
@@ -711,10 +724,10 @@ sub WriteItemInfo($$$)
                 if ($added) {
                     $$_[1] += $added foreach @{$$dirInfo{ChunkOffset}};
                 }
-            } else {
+            } elsif ($tag ne 'hdlr') {
                 next;
             }
-            # add new entries to this box
+            # add new entries to this box (or add pitm after hdlr)
             substr($$outfile, $pos + $$boxPos{$tag}[1], 0) = $add{$tag};
             $added += length $add{$tag};    # positions are shifted by length of new entries
         }

data/bin/perl-Image-ExifTool.spec

@@ -1,6 +1,6 @@
 Summary: perl module for image data extraction
 Name: perl-Image-ExifTool
-Version: 11.92
+Version: 11.93
 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('11.92.0')
+  VERSION = Gem::Version.new('11.93.0')
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: exiftool_vendored
 version: !ruby/object:Gem::Version
-  version: 11.92.0
+  version: 11.93.0
 platform: ruby
 authors:
 - Matthew McEachen
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2020-03-19 00:00:00.000000000 Z
+date: 2020-04-03 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: exiftool
@@ -201,6 +201,7 @@ files:
 - bin/config_files/nksc.config
 - bin/config_files/photoshop_paths.config
 - bin/config_files/picasa_faces.config
+- bin/config_files/pix4d.config
 - bin/config_files/rotate_regions.config
 - bin/config_files/tiff_version.config
 - bin/config_files/time_zone.config
@@ -236,6 +237,7 @@ files:
 - bin/lib/Image/ExifTool/Charset/Arabic.pm
 - bin/lib/Image/ExifTool/Charset/Baltic.pm
 - bin/lib/Image/ExifTool/Charset/Cyrillic.pm
+- bin/lib/Image/ExifTool/Charset/DOSCyrillic.pm
 - bin/lib/Image/ExifTool/Charset/DOSLatin1.pm
 - bin/lib/Image/ExifTool/Charset/DOSLatinUS.pm
 - bin/lib/Image/ExifTool/Charset/Greek.pm