exiftool_vendored 11.43.0 → 11.44.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 5d9cae7b421ad7b8045375770a24b04c65218a75
-  data.tar.gz: 7650bc1a2f5a306e93f8ce7d6c371038d5360ca6
+  metadata.gz: 8821d7513aaf314f339b7a91ac998b1899cfa3a3
+  data.tar.gz: c460b841e3635d239c4f729c80d35189735f10d2
 SHA512:
-  metadata.gz: 32cf511bae70f63dcb621baa662cbf72a6e55d48d4f8d840a9ebb33e76e7592da6111bc688f105981f4b96d13f45fa03f202125204882f8b0349932197319458
-  data.tar.gz: 965bf2086cfbee87bae6185f982ceec402a938c3227ed2c232fa5f875f2e03c5e313b55f7e4e1735e7f0a020c4b4d35b0e52f55fe5659163dd0432433553d502
+  metadata.gz: 7977e9ee35fd78efaf300f0c62c3ed916bb9be1e2fb5b79d453675677c1f04f5a9d80b4bc0469be95fda9bc8d30b6c2592613341b72aba976539f2471717bcc4
+  data.tar.gz: 13b09672b1bb4ee71951b5e9fb64170589f4fea3b5ad3fee065d92973ab25f002917eaddafd8c223ba45a31c9f822b7d52dce211b986cc314045b4c3293e2c99

data/bin/Changes

@@ -7,6 +7,14 @@ RSS feed: http://owl.phy.queensu.ca/~phil/exiftool/rss.xml
 Note: The most recent production release is Version 11.30. (Other versions are
 considered development releases, and are not uploaded to CPAN.)
 
+May 21, 2019 - Version 11.44
+
+  - Added ability to extract XMP as a block from XMP files
+  - Prevent ExifIFD from being deleted from any RAW file type
+  - Fixed problem where some Canon tags couldn't be written in CR3 files
+  - Fixed problem reading QuickTime Keys tags with a space in the tag ID
+  - Fixed incorrect family 1 group when reading some QuickTime Keys tags
+
 May 17, 2019 - Version 11.43 - "Write HEIC and CR3"
 
   - Added ability to write/create EXIF and write ICC_Profile in HEIC images
@@ -21,7 +29,7 @@ May 17, 2019 - Version 11.43 - "Write HEIC and CR3"
   - Fixed writing of XMP in HEIC files to conform with the HEIC specification
     (obviously, Apple couldn't put this XMP in the same place as any other
     QuickTime-based file format, because Apple is, after all, king of "Let's
-    re-invent the wheel!")
+    reinvent the wheel!")
   - Fixed problem where API WriteMode option wouldn't always prevent groups from
     being created when group creation was disabled
 

data/bin/META.json

@@ -47,5 +47,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "11.43"
+   "version" : "11.44"
 }

data/bin/META.yml

@@ -28,4 +28,4 @@ recommends:
   Time::HiRes: 0
 requires:
   perl: 5.004
-version: 11.43
+version: 11.44

data/bin/README

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

data/bin/exiftool

@@ -12,7 +12,7 @@
 use strict;
 require 5.004;
 
-my $version = '11.43';
+my $version = '11.44';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
 my $exeDir;
@@ -5119,7 +5119,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 11.43 --
+    -- Generated by ExifTool 11.44 --
     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

data/bin/lib/Image/ExifTool.pm

@@ -27,7 +27,7 @@ use vars qw($VERSION $RELEASE @ISA @EXPORT_OK %EXPORT_TAGS $AUTOLOAD @fileTypes
             %mimeType $swapBytes $swapWords $currentByteOrder %unpackStd
             %jpegMarker %specialTags %fileTypeLookup);
 
-$VERSION = '11.43';
+$VERSION = '11.44';
 $RELEASE = '';
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (
@@ -6907,6 +6907,8 @@ sub DoProcessTIFF($$;$)
     my $ifdName = ($$dirInfo{DirName} and $$dirInfo{DirName} =~ /^(ExifIFD|GPS)$/) ? $1 : 'IFD0';
     if (not $tagTablePtr or $$tagTablePtr{GROUPS}{0} eq 'EXIF') {
         $self->FoundTag('ExifByteOrder', $byteOrder) unless $outfile;
+    } elsif ($$tagTablePtr{GROUPS}{0} eq 'MakerNotes') { # (for writing CR3 maker notes)
+        $ifdName = $$tagTablePtr{GROUPS}{0};
     } else {
         $ifdName = $$tagTablePtr{GROUPS}{1};
     }

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

@@ -42,7 +42,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 
-$VERSION = '2.27';
+$VERSION = '2.28';
 
 sub ProcessMOV($$;$);
 sub ProcessKeys($$$);
@@ -7577,6 +7577,7 @@ sub HandleItemInfo($)
 
     # extract information from EXIF/XMP metadata items
     if ($items and $raf) {
+        push @{$$et{PATH}}, 'ItemInformation';
         my $curPos = $raf->Tell();
         my $primary = $$et{PrimaryItem};
         my $id;
@@ -7675,6 +7676,7 @@ sub HandleItemInfo($)
             delete $$et{DOC_NUM};
         }
         $raf->Seek($curPos, 0);     # seek back to original position
+        pop @{$$et{PATH}};
     }
     # process the item properties now that we should know their associations and document numbers
     if ($$et{ItemPropertyContainer}) {
@@ -7965,11 +7967,15 @@ sub ProcessKeys($$$)
             my $groups = $$tagInfo{Groups};
             $$newInfo{Groups} = $groups ? { %$groups } : { };
             $$newInfo{Groups}{$_} or $$newInfo{Groups}{$_} = $$tagTablePtr{GROUPS}{$_} foreach 0..2;
-        } elsif ($tag =~ /^[-\w.]+$/) {
+            $$newInfo{Groups}{1} = 'Keys';
+        } elsif ($tag =~ /^[-\w. ]+$/) {
             # create info for tags with reasonable id's
-            my $name = $tag;
-            $name =~ s/\.(.)/\U$1/g;
-            $newInfo = { Name => ucfirst($name) };
+            my $name = ucfirst $tag;
+            $name =~ s/[. ]+(.?)/\U$1/g;
+            $name =~ s/_([a-z])/_\U$1/g;
+            $name =~ s/([a-z])_([A-Z])/$1$2/g;
+            $name = "Tag_$name" if length $name < 2;
+            $newInfo = { Name => $name, Groups => { 1 => 'Keys' } };
             $msg = ' (Unknown)';
         }
         # substitute this tag in the ItemList table with the given index

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

@@ -521,7 +521,7 @@ sub WriteCRW($$)
 
     if ($$et{DEL_GROUP}{MakerNotes}) {
         if ($type eq 'CCDR') {
-            $et->Error("Can't delete MakerNotes group in CRW file");
+            $et->Error("Can't delete MakerNotes from CRW");
             return 0;
         } else {
             ++$$et{CHANGED};

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

@@ -1349,7 +1349,7 @@ NoOverwrite:            next if $isNew > 0;
                        ($$et{DEL_GROUP}{MakerNotes} != 2 or $isNew <= 0))
                     {
                         if ($et->IsRawType()) {
-                            $et->WarnOnce("Can't delete MakerNotes from $$et{FileType} file",1);
+                            $et->WarnOnce("Can't delete MakerNotes from $$et{FileType}",1);
                         } else {
                             if ($isNew <= 0) {
                                 ++$$et{CHANGED};

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

@@ -775,6 +775,7 @@ sub WriteQuickTime($$$)
                 my %subdirInfo = (
                     Parent   => $dirName,
                     DirName  => $subName,
+                    Name     => $$tagInfo{Name},
                     DirID    => $tag,
                     DataPt   => \$buff,
                     DataLen  => $size,

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

@@ -3919,8 +3919,10 @@ sub WriteDirectory($$$;$)
         $delFlag = ($$delGroup{$grp0} or $$delGroup{$grp1}) unless $permanentDir{$grp0};
         # (never delete an entire QuickTime group)
         if ($delFlag) {
-            if (($grp0 eq 'MakerNotes' or $grp1 eq 'MakerNotes') and $self->IsRawType()) {
-                $self->WarnOnce("Can't delete MakerNotes from $$self{FileType} file",1);
+            if (($grp0 =~ /^(MakerNotes)$/ or $grp1 =~ /^(IFD0|ExifIFD|MakerNotes)$/) and
+                $self->IsRawType())
+            {
+                $self->WarnOnce("Can't delete $1 from $$self{FileType}",1);
                 undef $grp1;
             } elsif (not $blockExifTypes{$$self{FILE_TYPE}}) {
                 # restrict delete logic to prevent entire tiff image from being killed
@@ -4015,7 +4017,7 @@ sub WriteDirectory($$$;$)
             return '' unless $dataPt or $$dirInfo{RAF}; # nothing to do if block never existed
             # don't allow MakerNotes to be removed from RAW files
             if ($blockName eq 'MakerNotes' and $rawType{$$self{FileType}}) {
-                $self->Warn("Can't delete MakerNotes from $$self{VALUE}{FileType} file",1);
+                $self->Warn("Can't delete MakerNotes from $$self{VALUE}{FileType}",1);
                 return undef;
             }
             $verb = 'Deleting';

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

@@ -3877,8 +3877,8 @@ sub ProcessXMP($$;$)
     # extract XMP as a block if specified
     my $blockName = $$dirInfo{BlockInfo} ? $$dirInfo{BlockInfo}{Name} : 'XMP';
     if (($$et{REQ_TAG_LOOKUP}{lc $blockName} or ($$et{TAGS_FROM_FILE} and
-        not $$et{EXCL_TAG_LOOKUP}{lc $blockName})) and
-        ($$dirInfo{DirName} and $$dirInfo{DirName} eq 'XMP'))
+        not $$et{EXCL_TAG_LOOKUP}{lc $blockName})) and ($$et{FileType} eq 'XMP' or
+        ($$dirInfo{DirName} and $$dirInfo{DirName} eq 'XMP')))
     {
         $et->FoundTag($$dirInfo{BlockInfo} || 'XMP', substr($$dataPt, $dirStart, $dirLen));
     }

data/bin/perl-Image-ExifTool.spec

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

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: exiftool_vendored
 version: !ruby/object:Gem::Version
-  version: 11.43.0
+  version: 11.44.0
 platform: ruby
 authors:
 - Matthew McEachen
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2019-05-17 00:00:00.000000000 Z
+date: 2019-05-21 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: exiftool