exiftool_vendored 12.36.0 → 12.37.0

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
@@ -1418,9 +1418,15 @@ sub WriteXMP($$;$)
1418
1418
  unless ($uri) {
1419
1419
  $uri = $nsURI{$1}; # we must have added a namespace
1420
1420
  unless ($uri) {
1421
- # (namespace may be empty if trying to write empty XMP structure, forum12384)
1422
- $xmpErr = "Undefined XMP namespace: $1" if length $uri;
1423
- next;
1421
+ # (namespace prefix may be empty if trying to write empty XMP structure, forum12384)
1422
+ if (length $1) {
1423
+ my $err = "Undefined XMP namespace: $1";
1424
+ if (not $xmpErr or $err ne $xmpErr) {
1425
+ $xmpFile ? $et->Error($err) : $et->Warn($err);
1426
+ $xmpErr = $err;
1427
+ }
1428
+ }
1429
+ next;
1424
1430
  }
1425
1431
  }
1426
1432
  $nsNew{$1} = $uri;
@@ -1586,14 +1592,7 @@ sub WriteXMP($$;$)
1586
1592
  unless (%capture or $xmpFile or $$dirInfo{InPlace} or $$dirInfo{NoDelete}) {
1587
1593
  $long[-2] = '';
1588
1594
  }
1589
- if ($xmpErr) {
1590
- if ($xmpFile) {
1591
- $et->Error($xmpErr);
1592
- return -1;
1593
- }
1594
- $et->Warn($xmpErr);
1595
- return undef;
1596
- }
1595
+ return($xmpFile ? -1 : undef) if $xmpErr;
1597
1596
  $$et{CHANGED} += $changed;
1598
1597
  $debug > 1 and $long[-2] and print $long[-2],"\n";
1599
1598
  return $long[-2] unless $xmpFile;
@@ -1400,7 +1400,10 @@ sub SetNewValuesFromFile($$;@)
1400
1400
  }
1401
1401
  }
1402
1402
  # validate tag name(s)
1403
- $$opts{EXPR} or ValidTagName($tag) or $self->Warn("Invalid tag name '${tag}'"), next;
1403
+ unless ($$opts{EXPR} or ValidTagName($tag)) {
1404
+ $self->Warn("Invalid tag name '${tag}'. Use '=' not '<' to assign a tag value");
1405
+ next;
1406
+ }
1404
1407
  ValidTagName($dstTag) or $self->Warn("Invalid tag name '${dstTag}'"), next;
1405
1408
  # translate '+' and '-' to appropriate SetNewValue option
1406
1409
  if ($opt) {
@@ -4775,7 +4778,7 @@ sub InverseDateTime($$;$$)
4775
4778
  my ($rtnVal, $tz);
4776
4779
  my $fmt = $$self{OPTIONS}{DateFormat};
4777
4780
  # strip off timezone first if it exists
4778
- if (not $fmt and $val =~ s/([+-])(\d{1,2}):?(\d{2})\s*(DST)?$//i) {
4781
+ if (not $fmt and $val =~ s/([-+])(\d{1,2}):?(\d{2})\s*(DST)?$//i) {
4779
4782
  $tz = sprintf("$1%.2d:$3", $2);
4780
4783
  } elsif (not $fmt and $val =~ s/Z$//i) {
4781
4784
  $tz = 'Z';
@@ -50,7 +50,7 @@ use Image::ExifTool::Exif;
50
50
  use Image::ExifTool::GPS;
51
51
  require Exporter;
52
52
 
53
- $VERSION = '3.48';
53
+ $VERSION = '3.49';
54
54
  @ISA = qw(Exporter);
55
55
  @EXPORT_OK = qw(EscapeXML UnescapeXML);
56
56
 
@@ -439,12 +439,13 @@ my %sOECF = (
439
439
  my %sAreaModels = (
440
440
  STRUCT_NAME => 'AreaModels',
441
441
  NAMESPACE => 'crs',
442
- ColorRangeMaskAreaSampleInfo => { },
443
- AreaComponents => { List => 'Seq' },
442
+ ColorRangeMaskAreaSampleInfo => { FlatName => 'ColorSampleInfo' },
443
+ AreaComponents => { FlatName => 'Components', List => 'Seq' },
444
444
  );
445
- my %sCorrectionRangeMask = (
446
- STRUCT_NAME => 'CorrectionRangeMask',
445
+ my %sCorrRangeMask = (
446
+ STRUCT_NAME => 'CorrRangeMask',
447
447
  NAMESPACE => 'crs',
448
+ NOTES => 'Called CorrectionRangeMask by the spec.',
448
449
  Version => { },
449
450
  Type => { },
450
451
  ColorAmount => { Writable => 'real' },
@@ -515,7 +516,12 @@ my %sCorrectionMask;
515
516
  WholeImageArea => { List => 0 },
516
517
  Origin => { List => 0 },
517
518
  Masks => { Struct => \%sCorrectionMask, NoSubStruct => 1 },
518
- CorrectionRangeMask => { Struct => \%sCorrectionRangeMask },
519
+ CorrectionRangeMask => {
520
+ Name => 'CorrRangeMask',
521
+ Notes => 'called CorrectionRangeMask by the spec',
522
+ FlatName => 'Range',
523
+ Struct => \%sCorrRangeMask,
524
+ },
519
525
  );
520
526
  my %sCorrection = (
521
527
  STRUCT_NAME => 'Correction',
@@ -529,8 +535,8 @@ my %sCorrection = (
529
535
  LocalClarity => { FlatName => 'Clarity', Writable => 'real', List => 0 },
530
536
  LocalSharpness => { FlatName => 'Sharpness', Writable => 'real', List => 0 },
531
537
  LocalBrightness => { FlatName => 'Brightness', Writable => 'real', List => 0 },
532
- LocalToningHue => { FlatName => 'Hue', Writable => 'real', List => 0 },
533
- LocalToningSaturation => { FlatName => 'Saturation', Writable => 'real', List => 0 },
538
+ LocalToningHue => { FlatName => 'ToningHue', Writable => 'real', List => 0 },
539
+ LocalToningSaturation => { FlatName => 'ToningSaturation', Writable => 'real', List => 0 },
534
540
  LocalExposure2012 => { FlatName => 'Exposure2012', Writable => 'real', List => 0 },
535
541
  LocalContrast2012 => { FlatName => 'Contrast2012', Writable => 'real', List => 0 },
536
542
  LocalHighlights2012 => { FlatName => 'Highlights2012', Writable => 'real', List => 0 },
@@ -548,8 +554,10 @@ my %sCorrection = (
548
554
  LocalTexture => { FlatName => 'Texture', Writable => 'real', List => 0 },
549
555
  # new in LR 11.0
550
556
  CorrectionRangeMask => {
557
+ Name => 'CorrRangeMask',
558
+ Notes => 'called CorrectionRangeMask by the spec',
551
559
  FlatName => 'RangeMask',
552
- Struct => \%sCorrectionRangeMask,
560
+ Struct => \%sCorrRangeMask,
553
561
  },
554
562
  CorrectionMasks => {
555
563
  FlatName => 'Mask',
@@ -1737,7 +1745,7 @@ my %sPantryItem = (
1737
1745
  Software => { },
1738
1746
  Artist => { Groups => { 2 => 'Author' } },
1739
1747
  Copyright => { Groups => { 2 => 'Author' }, Writable => 'lang-alt' },
1740
- NativeDigest => { }, #PH
1748
+ NativeDigest => { Avoid => 1 }, #PH
1741
1749
  );
1742
1750
 
1743
1751
  # Exif namespace properties (exif)
@@ -29,7 +29,7 @@ use vars qw($VERSION $RELEASE @ISA @EXPORT_OK %EXPORT_TAGS $AUTOLOAD @fileTypes
29
29
  %jpegMarker %specialTags %fileTypeLookup $testLen $exeDir
30
30
  %static_vars);
31
31
 
32
- $VERSION = '12.36';
32
+ $VERSION = '12.37';
33
33
  $RELEASE = '';
34
34
  @ISA = qw(Exporter);
35
35
  %EXPORT_TAGS = (
@@ -1211,10 +1211,10 @@ my %systemTagsNotes = (
1211
1211
  ZoneIdentifier => {
1212
1212
  Groups => { 1 => 'System', 2 => 'Other' },
1213
1213
  Notes => q{
1214
- Windows only. Used to indicate that a file has a Zone.Identifier alternate
1215
- data stream, which is used by some Windows browsers to mark downloaded files
1216
- as possibly unsafe to run. May be deleted to remove this stream. Requires
1217
- Win32API::File
1214
+ Windows only. Existence indicates that the file has a Zone.Identifier
1215
+ alternate data stream, which is used by some Windows browsers to mark
1216
+ downloaded files as possibly unsafe to run. May be deleted to remove this
1217
+ stream. Requires Win32API::File
1218
1218
  },
1219
1219
  Writable => 1,
1220
1220
  WritePseudo => 1,
@@ -1,6 +1,6 @@
1
1
  Summary: perl module for image data extraction
2
2
  Name: perl-Image-ExifTool
3
- Version: 12.36
3
+ Version: 12.37
4
4
  Release: 1
5
5
  License: Artistic/GPL
6
6
  Group: Development/Libraries/Perl
@@ -1,5 +1,5 @@
1
1
  # frozen_string_literal: true
2
2
 
3
3
  module ExiftoolVendored
4
- VERSION = Gem::Version.new('12.36.0')
4
+ VERSION = Gem::Version.new('12.37.0')
5
5
  end
metadata CHANGED
@@ -1,7 +1,7 @@
1
1
  --- !ruby/object:Gem::Specification
2
2
  name: exiftool_vendored
3
3
  version: !ruby/object:Gem::Version
4
- version: 12.36.0
4
+ version: 12.37.0
5
5
  platform: ruby
6
6
  authors:
7
7
  - Matthew McEachen
@@ -9,7 +9,7 @@ authors:
9
9
  autorequire:
10
10
  bindir: bin
11
11
  cert_chain: []
12
- date: 2021-11-17 00:00:00.000000000 Z
12
+ date: 2021-12-09 00:00:00.000000000 Z
13
13
  dependencies:
14
14
  - !ruby/object:Gem::Dependency
15
15
  name: exiftool