exiftool_vendored 13.42.0 → 13.45.0

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

@@ -876,7 +876,7 @@ my %faceCategories = (
     0x144a => { Name => 'WBRed',      Writable => 'int16u' },
     0x144b => { Name => 'WBGreen',    Writable => 'int16u' },
     0x144c => { Name => 'WBBlue',     Writable => 'int16u' },
-    
+
     0x144d => { Name => 'RollAngle',  Writable => 'rational64s' }, #forum14319
     0x3803 => { #forum10037
         Name => 'VideoRecordingMode',
@@ -1942,7 +1942,7 @@ sub ProcessRAF($$)
     $et->SetFileType() unless $$et{DOC_NUM};
     my $tbl = GetTagTable('Image::ExifTool::FujiFilm::RAFHeader');
     $et->ProcessDirectory({ DataPt => \$buff, DirName => 'RAFHeader', Base => $base }, $tbl);
-    
+
     # extract information from embedded JPEG
     my %dirInfo = (
         Parent => 'RAF',

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

@@ -12,7 +12,7 @@
 # Notes:        Set $Image::ExifTool::Geolocation::geoDir to override the
 #               default directory containing the database file Geolocation.dat
 #               and the GeoLang directory with the alternate language files.
-#               If set, this directory is 
+#               If set, this directory is
 #
 #               AltNames.dat may be loaded from a different directory by
 #               specifying $Image::ExifTool::Geolocation::altDir.  This

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

@@ -35,7 +35,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:Public);
 use Image::ExifTool::GPS;
 
-$VERSION = '1.83';
+$VERSION = '1.84';
 
 sub JITTER() { return 2 }       # maximum time jitter
 
@@ -1269,7 +1269,7 @@ Category:       foreach $category (qw{pos track alt orient atemp err dop}) {
             my $tag = ($$nvHash{WantGroup} ? "$$nvHash{WantGroup}:" : '') . 'Geolocate';
             # pass along any regular expressions to qualify geolocation search
             my $parms = join ',', grep m(/), split /\s*,\s*/, $geoloc;
-            $parms and $parms = ",$parms,both"; 
+            $parms and $parms = ",$parms,both";
             $et->SetNewValue($tag => "$$fix{lat},$$fix{lon}$parms");
             # (the Geolocate tag will be restored to its original value
             # by RestoreNewValues before the next file in batch processing)
@@ -1530,7 +1530,7 @@ sub PrintFixTime($)
 {
     my $time = $_[0] + 0.0005;  # round off to nearest ms
     my $fsec = int(($time - int($time)) * 1000);
-    return sprintf('%s.%.3d UTC', Image::ExifTool::ConvertUnixTime($time), $fsec);
+    return Image::ExifTool::ConvertUnixTime($time, undef, 3) . ' UTC';
 }
 
 #------------------------------------------------------------------------------

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

@@ -47,7 +47,7 @@ my %sEarthPose = (
     NAMESPACE => { EarthPose => 'http://ns.google.com/photos/dd/1.0/earthpose/' },
     Latitude  => {
         Writable => 'real',
-        Groups => { 2 => 'Location' }, 
+        Groups => { 2 => 'Location' },
         ValueConv    => 'Image::ExifTool::GPS::ToDegrees($val, 1)',
         ValueConvInv => '$val',
         PrintConv    => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "N")',
@@ -512,7 +512,7 @@ my %sAppInfo = (
     GROUPS => { 0 => 'MakerNotes', 2 => 'Image' },
     TAG_PREFIX => 'HDRPlusMakerNote',
     PROCESS_PROC => \&ProcessHDRP,
-    VARS => {   
+    VARS => {
         ID_FMT => 'str',
         SORT_PROC => sub {
             my ($a,$b) = @_;

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

@@ -370,7 +370,6 @@ my %manuSig = ( #6
         Groups => { 2 => 'Time' },
         PrintConv => '$self->ConvertDateTime($val)',
     },
-    
     targ => {
         Name => 'CharTarget',
         ValueConv => '$val=~s/\0.*//; length $val > 128 ? \$val : $val',

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

@@ -335,7 +335,7 @@ Read CSV or JSON file into a database hash.
 
 1) Hash reference for database object.
 
-2) Optional string used to represent an undefined (missing) tag value. 
+2) Optional string used to represent an undefined (missing) tag value.
 (Used for deleting tags.)
 
 3) For ReadCSV this gives the delimiter for CSV entries, with a default of

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

@@ -11,7 +11,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.39';
+$VERSION = '1.40';
 
 sub ProcessOcad($$$);
 sub ProcessJPEG_HDR($$$);
@@ -212,6 +212,10 @@ sub ProcessJPEG_HDR($$$);
         Name => 'Pentax',
         Condition => '$$valPt =~ /^PENTAX \0/',
         SubDirectory => { TagTable => 'Image::ExifTool::Pentax::Main' },
+      }, {
+        Name => 'Ricoh',
+        Condition => '$$valPt =~ /^RICOH\0/',
+        SubDirectory => { TagTable => 'Image::ExifTool::Pentax::Main' },
       }, {
         Name => 'Huawei',
         Condition => '$$valPt =~ /^HUAWEI\0\0/',

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

@@ -132,7 +132,7 @@ my %j2cMarker = (
     NOTES => q{
         The tags below are found in JPEG 2000 images and the C2PA CAI JUMBF metadata
         in various file types (see below).  Note that ExifTool currently writes only
-        EXIF, IPTC and XMP tags in Jpeg2000 images, and EXIF and XMP in JXL images. 
+        EXIF, IPTC and XMP tags in Jpeg2000 images, and EXIF and XMP in JXL images.
         ExifTool will read/write Brotli-compressed EXIF and XMP in JXL images, but
         the API L<Compress|../ExifTool.html#Compress> option must be set to create new EXIF and XMP in compressed
         format.

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

@@ -0,0 +1,399 @@
+#------------------------------------------------------------------------------
+# File:         Kandao.pm
+#
+# Description:  Read Kandao MP4 metadata
+#
+# Revisions:    2025-12-10 - P. Harvey Created
+#
+# Notes:        Tested with videos from the Kandao QooCam 3 Ultra
+#------------------------------------------------------------------------------
+
+package Image::ExifTool::Kandao;
+
+use strict;
+use vars qw($VERSION);
+use Image::ExifTool qw(:DataAccess :Utils);
+
+$VERSION = '1.00';
+
+sub ProcessKandao($$$);
+sub ProcessKVAR($$);
+
+# Kandao format codes
+my %format = (
+    CHAR => 'string',
+    BOOL => 'int8u',
+    U8   => 'int8u',
+    U16  => 'int16u',
+    U32  => 'int32u',
+    U64  => 'int64u',
+    S8   => 'int8s',
+    S16  => 'int16s',
+    S32  => 'int32s',
+    S64  => 'int64s',
+    FLOAT => 'float',
+    DOUBLE => 'double',
+);
+
+# Kandao 'kvar' and 'kfix' information
+%Image::ExifTool::Kandao::Main = (
+    GROUPS => { 0 => 'Kandao', 1 => 'KVAR', 2 => 'Camera' },
+    VARS => { NO_LOOKUP => 1 },
+    NOTES => q{
+        Tags extracted from Kandao KVAR files and the 'kvar', 'kfix' and 'kstb'
+        atoms in Kandao MP4 videos, with a family 1 group name of KVAR, KFIX or KSTB
+        depending on their location.
+    },
+    PROCESS_PROC => \&ProcessKandao,
+#
+# 'kvar' tags
+#
+    CPU_TEMP => { Name => 'CPUTemperature', ValueConv => '$val / 10' }, # U32[1]
+    BAT_TEMP => 'BatteryTemperature', # U32[1]
+    PTS_UNIT => { # U32[1]
+        Name => 'TimeStampUnit',
+        PrintConv => { 0 => 'ms', 1 => 'Subtle', 2 => 'ns' },
+    },
+    TOTAL_FRAME => 'TotalFrames', # U32[1]
+    TOTAL_TIME_MS => { # U32[1]
+        Name => 'TotalTime',
+        ValueConv => '$val / 1000',
+    },
+    LENS => 'LensData', # CHAR[534]
+    DASHBOARD => 'Dashboard', # U8[1]
+    PROJECTION   => 'Projection', # CHAR[16]
+    CENTER_SHIFT => 'CenterShift', # DOUBLE[1]
+    DISTORTION   => 'Distortion', # DOUBLE[1]
+    INFO => 'Info', # CHAR[239]
+    PTS => {
+        Name => 'PresentationTimeStamp',
+        Notes => 'TimeStamp for each frame',
+        Format => 'undef', # U64[x]
+        Binary => 1,
+    },
+    LENS_SN0 => 'Lens0SerialNumber', # CHAR[15]
+    LENS_SN1 => 'Lens1SerialNumber', # CHAR[15]
+    LENS_OTP_ID0 => 'Lens0OTP_ID', # U8[1]
+    LENS_OTP_ID1 => 'Lens1OTP_ID', # U8[1]
+    IMU => {
+        RecordSize => 20,
+        SubDirectory => { TagTable => 'Image::ExifTool::Kandao::IMU' },
+    },
+    GPS => [{
+        Condition => '$$valPt =~ /^\xff{4}/',
+        RecordSize => 28,
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kandao::GPS',
+            Start => 4,
+        },
+    },{
+        RecordSize => 20,
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Kandao::GPS',
+        },
+    }],
+    GPSX => {
+        RecordSize => 36,
+        SubDirectory => { TagTable => 'Image::ExifTool::Kandao::GPSX' },
+    },
+    EXP => { # U8[x]
+        # actually int64u - monotonically increasing
+        Name => 'Exp',
+    },
+    # (ISP = Image Signal Processor)
+    ISP => 'ISP', # U8 - 46-byte records (not very interesting looking)
+    FRAME_ISP => {
+        # U8 - 12-byte records: int32u-ts, float, float
+        RecordSize => 12,
+        SubDirectory => { TagTable => 'Image::ExifTool::Kandao::FrameISP' },
+    },
+    GAINMAP0 => 'GainMap0',
+    GAINMAP1 => 'GainMap1',
+#
+# 'kfix' tags
+#
+    PRODUCT => 'Model',
+    PROJECT => 'Project',
+    SN => 'SerialNumber',
+    PR_VER => 'ProductVersion',
+    SW_VER => 'SoftwareVersion',
+    HW_VER => 'HardwareVersion',
+    VIDEO_CAPTIME => {
+        Name => 'VideoCaptureTime',
+        Notes => 'local camera time',
+        Groups => { 2 => 'Time' },
+        ValueConv => '$val =~ s/^(\d{4})-(\d{2})-/$1:$2:/; $val',
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    GPS_CAPTIME => {
+        Name => 'GPSCaptureTime',
+        Groups => { 2 => 'Time' },
+        ValueConv => 'ConvertUnixTime($val/1000, 0, 3) . "Z"',
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    LENS_INDEX => { Name => 'LensIndex', Format => 'int16u' },
+    NEED_LSC => 'NeedLDSC',
+    # (also in 'kvar') CPU_TEMP => { Name => 'CPUTemperature', ValueConv => '$val / 10' },
+    # (also in 'kvar') BAT_TEMP => 'BatteryTemperature',
+    INPUT_INSERT => 'InputInsert',
+    VIDEO_RESOLUTION => 'VideoResolution',
+    VIDEO_CODECTYPE => 'VideoCodec',
+    VIDEO_BITRATE => { Name => 'VideoBitrate', PrintConv => '($val / 1e6) . " Mbps"' },
+    VIDEO_FORMAT => 'VideoFormat',
+    OUTPUT_INSERT => 'OutputInsert',
+    DYNAMIC_RANGE => 'DynamicRange',
+    AWB_CCT => 'AWB_CCT',
+    EV => 'EV',
+    ISO => 'ISO',
+    SHUTTER => 'Shutter',
+    IMAGE_STYLE => 'ImageStyle',
+    AE_METERING => 'AEMetering',
+    CAPTURE_MODE => 'CaptureMode',
+    HDR => 'HDR',
+    STITCHED => 'Stitched',
+    COVER_MODE => 'CoverMode',
+    STEREO => 'Stereo',
+    FOV => 'FOV',
+    AE_MODE => 'AEMode',
+    AF_FN => 'AF_FN',
+    AWB_MODE => 'AWBMode',
+    AUDIO_GAIN => 'AudioGain',
+    INTERVAL => 'Interval',
+    ISP_VER => 'ISPVersion',
+    YAW => 'Yaw',
+    FAN_LEVEL => 'FanLevel',
+    FAN_MODE => 'FanMode',
+    CUSTOMIZED => 'Customized',
+);
+
+%Image::ExifTool::Kandao::GPS = (
+    GROUPS => { 0 => 'Kandao', 1 => 'KVAR', 2 => 'Location' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    NOTES => q{
+        These tags are in the family 1 KVAR group instead of a GPS group to allow
+        them to be distinguished from the duplicate GPS tags in the GPSX table.
+    },
+    0 => { Name => 'TimeStamp', Format => 'int32u' },
+    4 => {
+        Name => 'GPSLatitude',
+        Format => 'double',
+        ValueConv => 'Image::ExifTool::GPS::ToDegrees($val, 1)',
+        PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "N")',
+    },
+    12 => {
+        Name => 'GPSLongitude',
+        Format => 'double',
+        ValueConv => 'Image::ExifTool::GPS::ToDegrees($val, 1)',
+        PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "E")',
+    },
+    20 => { # (optional)
+        Name => 'GPSAltitude',
+        Format => 'double',
+        PrintConv => '$_ = sprintf("%.6f", $val); s/\.?0+$//; "$_ m"',
+    },
+);
+
+%Image::ExifTool::Kandao::GPSX = (
+    GROUPS => { 0 => 'Kandao', 1 => 'GPS', 2 => 'Location' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    NOTES => q(
+        These tags are in the family 1 GPS group.  They are duplicates of the tags
+        in the Kandao GPS table with the addition of GPSDateTime.
+    ),
+    0 => { Name => 'TimeStamp', Format => 'int32u' },
+    4 => {
+        Name => 'GPSDateTime',
+        Description => 'GPS Date/Time',
+        Groups => { 2 => 'Time' },
+        Format => 'int64u',
+        ValueConv => 'ConvertUnixTime($val/1000, 0, 3) . "Z"',
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    12 => {
+        Name => 'GPSLatitude',
+        Format => 'double',
+        ValueConv => 'Image::ExifTool::GPS::ToDegrees($val, 1)',
+        PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "N")',
+    },
+    20 => {
+        Name => 'GPSLongitude',
+        Format => 'double',
+        ValueConv => 'Image::ExifTool::GPS::ToDegrees($val, 1)',
+        PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "E")',
+    },
+    28 => {
+        Name => 'GPSAltitude',
+        Format => 'double',
+        PrintConv => '$_ = sprintf("%.6f", $val); s/\.?0+$//; "$_ m"',
+    },
+);
+
+# IMU gyroscope data
+%Image::ExifTool::Kandao::IMU = (
+    GROUPS => { 0 => 'Kandao', 1 => 'KVAR', 2 => 'Location' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    0 => { Name => 'TimeStamp',     Format => 'int64u' },
+    8 => { Name => 'Gyroscope',     Format => 'int16s[3]' }, # 2G max range
+    14=> { Name => 'Accelerometer', Format => 'int16s[3]' }, # 2000 deg/sec max range
+    # (Kandao docs mention optional 6-byte Magnetometer data here, but
+    #  with no way to determine if it exists, and it isn't in my samples)
+);
+
+# (ISP = Image Signal Processor?)
+%Image::ExifTool::Kandao::FrameISP = (
+    GROUPS => { 0 => 'Kandao', 1 => 'KVAR', 2 => 'Other' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    0 => { Name => 'TimeStamp',  Format => 'int32u',   Unknown => 1 },
+    4 => { Name => 'FrameISP_4', Format => 'float[2]', Unknown => 1 },
+);
+
+#------------------------------------------------------------------------------
+# Extract information from a Kandao 'kfix' and 'kvar' atoms
+# Inputs: 0) ExifTool ref, 1) dirInfo reference, 2) tag table ref
+# Returns: 1 on success
+sub ProcessKandao($$$)
+{
+    my ($et, $dirInfo, $tagTbl) = @_;
+    my $raf = $$dirInfo{RAF};
+    $raf or $raf = File::RandomAccess->new($$dirInfo{DataPt});
+    my $dirName = $$dirInfo{DirName};
+    my $dataPos = ($$dirInfo{DataPos} || 0) + ($$dirInfo{Base} || 0);
+    my $verbose = $et->Options('Verbose');
+    my $ee = $et->Options('ExtractEmbedded');
+    # extract as a block from MP4 if specified
+    if ($$dirInfo{BlockInfo}) {
+        my $blockName = $$dirInfo{BlockInfo}{Name};
+        my $blockExtract = $et->Options('BlockExtract');
+        if (($blockExtract or $$et{REQ_TAG_LOOKUP}{lc $blockName} or
+            ($$et{TAGS_FROM_FILE} and not $$et{EXCL_TAG_LOOKUP}{lc $blockName})))
+        {
+            $et->FoundTag($$dirInfo{BlockInfo}, $$dirInfo{DataPt});
+            return 1 if $blockExtract and $blockExtract > 1;
+        }
+    }
+    my ($buff, $err, $i, $tag, $fmt);
+    SetByteOrder('II');
+    $raf->Read($buff, 4) == 4 or return 0;
+    my $n = Get32u(\$buff, 0);
+    $et->VerboseDir($dirName, $n);
+    for ($i=0; $i<$n; ++$i) {
+        $raf->Read($buff, 0x2c) == 0x2c or $err = '', last;
+        ($tag = substr($buff, 0, 0x20)) =~ s/\0+$//;
+        ($fmt = substr($buff, 0x20, 8)) =~ s/\0+$//;
+        my $format = $format{$fmt};
+        $format or $err = "Unknown Kandao format '${fmt}'", last;
+        my $num = Get32u(\$buff, 0x28);
+        my $size = $num * Image::ExifTool::FormatSize($format);
+        my %parms = (
+            DataPt  => \$buff,
+            DataPos => $dataPos + $raf->Tell(),
+            Index   => $i,
+            Format  => $format,
+        );
+        $raf->Read($buff, $size) == $size or $err = '', last;
+        my $tagInfo = $et->GetTagInfo($tagTbl, $tag, \$buff);
+        unless ($tagInfo) {
+            my $name = ucfirst lc $tag;
+            $name =~ s/_([a-z])/_\u$1/g;
+            $name = Image::ExifTool::MakeTagName($name);
+            $et->VPrint(0, "$$et{INDENT}\[adding $dirName '${tag}']\n");
+            $tagInfo = AddTagToTable($tagTbl, $tag, { Name => $name });
+        }
+        my $recLen = $$tagInfo{RecordSize};
+        if ($recLen) {
+            $verbose and $et->VerboseInfo($tag, $tagInfo, %parms);
+            my $tbl = GetTagTable($$tagInfo{SubDirectory}{TagTable});
+            my $pt = $$tagInfo{SubDirectory}{Start} || 0;
+            my %dirInfo = (
+                DataPt  => \$buff,,
+                DataPos => $parms{DataPos},
+                DirLen  => $recLen,
+                DirName => $tag,
+            );
+            my $nLimit = 10000;
+            my $sizeLimit = $size;
+            if ($ee and int(($size - $pt) / $recLen) > $nLimit and
+                $et->Warn("Extracting only the first $nLimit $$tagInfo{Name} records", 2))
+            {
+                $sizeLimit = $pt + $recLen * $nLimit;
+            }
+            while ($pt+$recLen <= $sizeLimit) {
+                $$et{DOC_NUM} = ++$$et{DOC_COUNT};
+                $dirInfo{DirStart} = $pt;
+                $et->ProcessDirectory(\%dirInfo, $tbl);
+                $ee or $et->Warn('Use the ExtractEmbedded option to extract all timed metadata',7), last;
+                $pt += $recLen;
+            }
+            delete $$et{DOC_NUM};
+        } else {
+            my $val;
+            if ($fmt eq 'U8' and $num > 1 and not $$tagInfo{Format}) {
+                $val = \$buff;
+            } else {
+                # override format if necessary
+                if ($$tagInfo{Format}) {
+                    $format = $$tagInfo{Format};
+                    $parms{Format} .= " read as $format";
+                    $num = int($size / Image::ExifTool::FormatSize($format));
+                }
+                $val = ReadValue(\$buff, 0, $format, $num, $size);
+            }
+            my $key = $et->HandleTag($tagTbl, $tag, $val, %parms);
+            $et->SetGroup($key, $dirName) if $dirName ne 'KVAR';
+        }
+    }
+    $et->Warn($err || "Truncated $dirName record") if defined $err;
+    return 1;
+}
+
+#------------------------------------------------------------------------------
+# Process Kandao KVAR file
+# Inputs: 0) ExifTool ref, 1) dirInfo reference
+# Returns: 1 on success, 0 if this wasn't a valid KVAR file
+sub ProcessKVAR($$)
+{
+    my ($et, $dirInfo) = @_;
+    my $raf = $$dirInfo{RAF};
+    my ($buff, $tagTablePtr);
+
+    # verify this is a valid KVAR file
+    return 0 unless $raf->Read($buff, 44) == 44;
+    return 0 unless $buff =~ /^.{2}\0\0[A-Z].{31}(CHAR|BOOL|[US](8|16|32|64)|FLOAT|DOUBLE)\0/s;
+    $et->SetFileType('KVAR', 'application/x-kandaostudio');
+    $raf->Seek(0,0) or $et->Warn('Seek error'), return 1;
+    $$dirInfo{DirName} = 'KVAR';
+    $tagTablePtr = GetTagTable('Image::ExifTool::Kandao::Main');
+    return $et->ProcessDirectory($dirInfo, $tagTablePtr);
+}
+
+1;  # end
+
+__END__
+
+=head1 NAME
+
+Image::ExifTool::Kandao - Read Kandao MP4 metadata
+
+=head1 SYNOPSIS
+
+This module is used by Image::ExifTool
+
+=head1 DESCRIPTION
+
+This module contains code to extract metadata from Kandao 'kfix' and 'kvar'
+atoms in MP4 videos as shot by the Kandao QOOCAM 3 ULTRA.
+
+=head1 AUTHOR
+
+Copyright 2003-2025, Phil Harvey (philharvey66 at gmail.com)
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<Image::ExifTool::TagNames/Kandao Tags>,
+L<Image::ExifTool(3pm)|Image::ExifTool>
+
+=cut
+

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

@@ -596,7 +596,7 @@ sub ProcessLinkInfo($$$)
         $off = Get32u($dataPt, 0x14);
         if ($off and $off + 0x14 <= $dataLen) {
             my $siz = Get32u($dataPt, $off);
-            return 0 if $off + $siz > $dataLen; 
+            return 0 if $off + $siz > $dataLen;
             $pos = Get32u($dataPt, $off + 0x08);
             if ($pos > 0x14 and $siz >= 0x18) {
                 $pos = Get32u($dataPt, $off + 0x14);

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

@@ -22,7 +22,7 @@ $VERSION = '1.00';
 
 my %bool = (
     Format => 'int8u',
-    PrintConv => { 0 => 'No', 1 => 'Yes' } 
+    PrintConv => { 0 => 'No', 1 => 'Yes' }
 );
 
 %Image::ExifTool::MRC::Main = (
@@ -31,7 +31,7 @@ my %bool = (
     VARS => { NO_LOOKUP => 1 }, # omit tags from lookup
     FORMAT => 'int32u',
     NOTES => q{
-        Tags extracted from Medical Research Council (MRC) format imaging files. 
+        Tags extracted from Medical Research Council (MRC) format imaging files.
         See L<https://www.ccpem.ac.uk/mrc_format/mrc2014.php> for the specification.
     },
     0 => 'ImageWidth',
@@ -104,7 +104,7 @@ my %bool = (
     },
     12 => {
         Name => 'TimeStamp',
-        Format => 'double', 
+        Format => 'double',
         Condition => '$$self{BitM} & 0x01',
         Groups => { 2 => 'Time'},
         # shift from days since Dec 30, 1899 to Unix epoch of Jan 1, 1970
@@ -269,7 +269,7 @@ sub ProcessMRC($$)
     # (I don't have any samples with extended headers for testing, so these are not yet decoded)
     if ($$et{ExtendedHeaderSize} and $$et{ExtendedHeaderType} =~ /^FEI[12]/) {
         unless ($raf->Read($buff,4)==4 and $raf->Seek(-4,1)) { # read metadata size
-            $et->Warn('Error reading extended header'); 
+            $et->Warn('Error reading extended header');
             return 1;
         }
         my $size = Get32u(\$buff, 0);

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

@@ -487,7 +487,7 @@ my %sKeywordStruct;
     GROUPS => { 0 => 'XMP', 1 => 'XMP-mwg-kw', 2 => 'Image' },
     NAMESPACE => 'mwg-kw',
     NOTES => q{
-        Hierarchical keywords metadata defined by the MWG 2.0 specification. 
+        Hierarchical keywords metadata defined by the MWG 2.0 specification.
         ExifTool unrolls keyword structures to an arbitrary depth of 6 to allow
         individual levels to be accessed with different tag names, and to avoid
         infinite recursion.  See

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

@@ -528,7 +528,6 @@ sub ExtractMDItemTags($$)
     $$et{INDENT} =~ s/\| $//;
 }
 
-        
 #------------------------------------------------------------------------------
 # Read MacOS XAttr value
 # Inputs: 0) ExifTool object ref, 1) file name
@@ -732,7 +731,7 @@ This module is used by Image::ExifTool
 This module contains definitions required by Image::ExifTool to extract
 MDItem* and XAttr* tags on MacOS systems using the "mdls" and "xattr"
 utilities respectively.  It also reads metadata directly from the MacOS "_."
-sidecar files that are used on some filesystems to store file attributes. 
+sidecar files that are used on some filesystems to store file attributes.
 Writable tags use "xattr", "setfile" or "osascript" for writing.
 
 =head1 AUTHOR