diff options
Diffstat (limited to 'lib/Image/ExifTool/MIE.pm')
| -rw-r--r-- | lib/Image/ExifTool/MIE.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/Image/ExifTool/MIE.pm b/lib/Image/ExifTool/MIE.pm index e6af0314..c6e72042 100644 --- a/lib/Image/ExifTool/MIE.pm +++ b/lib/Image/ExifTool/MIE.pm @@ -14,7 +14,7 @@ use Image::ExifTool qw(:DataAccess :Utils); use Image::ExifTool::Exif; use Image::ExifTool::GPS; -$VERSION = '1.46'; +$VERSION = '1.47'; sub ProcessMIE($$); sub ProcessMIEGroup($$$); @@ -152,6 +152,9 @@ my %offOn = ( 0 => 'Off', 1 => 'On' ); (eg. C<55(mi/h)>). If no units are specified, the default units are written. + 4) ExifTool writes compressed metadata to MIE files if the Compress (-z) + option is used and Compress::Zlib is available. + See L<http://owl.phy.queensu.ca/~phil/exiftool/MIE1.1-20070121.pdf> for the official MIE specification. }, @@ -1122,6 +1125,7 @@ sub WriteMIEGroup($$$) eval { require Compress::Zlib }) { $subdirInfo{Compact} = 1; + $subdirInfo{ReadOnly} = 1; # because XMP is not writable in place } } $subdirInfo{Parent} = $dirName; @@ -1603,7 +1607,7 @@ sub ProcessMIEGroup($$$) } $et->VerboseInfo($lastTag, $tagInfo, DataPt => \$value, - DataPos => $raf->Tell() - $valLen, + DataPos => $wasCompressed ? undef : $raf->Tell() - $valLen, Size => $valLen, Format => $formatStr, Value => $val, |