exiftool_vendored 9.41.2 → 9.45.0

data/bin/{Image-ExifTool-9.41 → Image-ExifTool-9.45}/lib/Image/ExifTool/WriteXMP.pl

@@ -152,7 +152,7 @@ sub CheckXMP($$$)
         $warn and $$et{CHECK_WARN} = $warn;
         return $err;
     }
-    my $format = $tagInfo->{Writable};
+    my $format = $$tagInfo{Writable};
     # (if no format specified, value is a simple string)
     if (not $format or $format eq 'string' or $format eq 'lang-alt') {
         # convert value to UTF8 if necessary
@@ -377,10 +377,10 @@ sub SaveBlankInfo($$$;$)
                 $pre = "$pre/$prop";
             }
         }
-        $blankInfo->{Prop}->{$id}->{Pre}->{$pre} = 1;
+        $$blankInfo{Prop}{$id}{Pre}{$pre} = 1;
         if ((defined $post and length $post) or (defined $val and length $val)) {
             # save the property value and attributes for each unique path suffix
-            $blankInfo->{Prop}->{$id}->{Post}->{$post} = [ $val, $attrs, $propPath ];
+            $$blankInfo{Prop}{$id}{Post}{$post} = [ $val, $attrs, $propPath ];
         }
     }
 }
@@ -396,19 +396,19 @@ sub ProcessBlankInfo($$$;$)
     my ($id, $pre, $post);
     # handle each nodeID separately
     foreach $id (sort keys %{$$blankInfo{Prop}}) {
-        my $path = $blankInfo->{Prop}->{$id};
+        my $path = $$blankInfo{Prop}{$id};
         # flag all resource names so we can warn later if some are unused
         my %unused;
-        foreach $post (keys %{$path->{Post}}) {
+        foreach $post (keys %{$$path{Post}}) {
             $unused{$post} = 1;
         }
         # combine property paths for all possible paths through this node
-        foreach $pre (sort keys %{$path->{Pre}}) {
+        foreach $pre (sort keys %{$$path{Pre}}) {
             # there will be no description for the object of a blank node
             next unless $pre =~ m{/$rdfDesc/};
-            foreach $post (sort keys %{$path->{Post}}) {
+            foreach $post (sort keys %{$$path{Post}}) {
                 my @propList = split m{/}, "$pre$post";
-                my ($val, $attrs) = @{$path->{Post}->{$post}};
+                my ($val, $attrs) = @{$$path{Post}{$post}};
                 if ($isWriting) {
                     CaptureXMP($et, \@propList, $val, $attrs);
                 } else {
@@ -421,7 +421,7 @@ sub ProcessBlankInfo($$$;$)
         if (%unused) {
             $et->Options('Verbose') and $et->Warn('An XMP resource is about nothing');
             foreach $post (sort keys %unused) {
-                my ($val, $attrs, $propPath) = @{$path->{Post}->{$post}};
+                my ($val, $attrs, $propPath) = @{$$path{Post}{$post}};
                 my @propList = split m{/}, $propPath;
                 if ($isWriting) {
                     CaptureXMP($et, \@propList, $val, $attrs);

data/bin/{Image-ExifTool-9.41 → Image-ExifTool-9.45}/lib/Image/ExifTool/Writer.pl

@@ -297,11 +297,11 @@ sub SetNewValue($;$$%)
         foreach (split /:/, $wantGroup) {
             /^(\d+)?(.+)/ or next;  # separate family number and group name
             my ($f, $g) = ($1, lc $2);
-            # save group/family unless 'all' or '*'
+            # save group/family unless '*' or 'all'
             push @wantGroup, [ $f, $g ] unless $g eq '*' or $g eq 'all';
             if (defined $f) {
-                $f > 2 and return 0;
-                $family2 = 1 if $f == 2;    # set flag indicating family 2 was used
+                $f > 2 and return 0;      # only allow family 0, 1 or 2
+                $family2 = 1 if $f == 2;  # set flag indicating family 2 was used
             } else {
                 $family2 = 1 if $family2groups{$g};
             }
@@ -314,7 +314,7 @@ sub SetNewValue($;$$%)
 #
 # handle group delete
 #
-    while ($tag eq '*' and not defined $value and not $family2) {
+    while ($tag eq '*' and not defined $value and not $family2 and @wantGroup < 2) {
         # set groups to delete
         my (@del, $grp);
         my $remove = ($options{Replace} and $options{Replace} > 1);

data/bin/{Image-ExifTool-9.41 → Image-ExifTool-9.45}/lib/Image/ExifTool/XMP.pm

@@ -47,7 +47,7 @@ use Image::ExifTool qw(:Utils);
 use Image::ExifTool::Exif;
 require Exporter;
 
-$VERSION = '2.69';
+$VERSION = '2.70';
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(EscapeXML UnescapeXML);
 
@@ -2457,10 +2457,10 @@ sub GetXMPTagID($;$$)
                 my $xlatNS = $$xlatNamespace{$ns} || $ns;
                 my $info = $Image::ExifTool::XMP::Main{$xlatNS};
                 my $table;
-                if (ref $info eq 'HASH' and $info->{SubDirectory}) {
-                    $table = GetTagTable($info->{SubDirectory}{TagTable});
+                if (ref $info eq 'HASH' and $$info{SubDirectory}) {
+                    $table = GetTagTable($$info{SubDirectory}{TagTable});
                 }
-                unless ($table and $table->{$nm}) {
+                unless ($table and $$table{$nm}) {
                     $nm = lc($nm);
                     $nm =~ s/_([a-z])/\u$1/g;
                 }
@@ -2824,10 +2824,10 @@ sub FoundXMP($$$$;$)
 
     # translate namespace if necessary
     $ns = $$xlatNamespace{$ns} if $$xlatNamespace{$ns};
-    my $info = $tagTablePtr->{$ns};
+    my $info = $$tagTablePtr{$ns};
     my ($table, $added, $xns, $tagID);
     if ($info) {
-        $table = $info->{SubDirectory}{TagTable} or warn "Missing TagTable for $tag!\n";
+        $table = $$info{SubDirectory}{TagTable} or warn "Missing TagTable for $tag!\n";
     } elsif ($$props[0] eq 'svg:svg') {
         if (not $ns) {
             # disambiguate MetadataID by adding back the 'metadata' we ignored
@@ -3044,7 +3044,7 @@ NoLoop:
     }
     if ($ns and not $$tagInfo{StaticGroup1}) {
         # set group1 dynamically according to the namespace
-        $et->SetGroup($key, "$tagTablePtr->{GROUPS}{0}-$ns");
+        $et->SetGroup($key, "$$tagTablePtr{GROUPS}{0}-$ns");
     }
     if ($$et{OPTIONS}{Verbose}) {
         if ($added) {

data/bin/{Image-ExifTool-9.41 → Image-ExifTool-9.45}/lib/Image/ExifTool/XMP2.pl

@@ -901,7 +901,7 @@ my %sSubVersion = (
     author     => { Avoid => 1, Groups => { 2 => 'Author' } },
     caption    => { Avoid => 1 },
     categories => { Avoid => 1 },
-    datetime   => { Avoid => 1, Groups => { 2 => 'Time' }, %dateTimeInfo },
+    datetime   => { Name => 'DateTime', Avoid => 1, Groups => { 2 => 'Time' }, %dateTimeInfo },
     keywords   => { Avoid => 1, List => 'Bag' },
     notes      => { Avoid => 1 },
     rating     => { Avoid => 1, Writable => 'real' }, # integer?

data/bin/{Image-ExifTool-9.41 → Image-ExifTool-9.45}/perl-Image-ExifTool.spec

@@ -1,6 +1,6 @@
 Summary: perl module for image data extraction
 Name: perl-Image-ExifTool
-Version: 9.41
+Version: 9.45
 Release: 1
 License: Artistic/GPL
 Group: Development/Libraries/Perl