exiftool_vendored 11.70.0 → 11.71.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 99342b0e056690256fd202039dbf7b678e57e74f
-  data.tar.gz: abc9d3a16667124e8920041f816acc514d004b1f
+  metadata.gz: ce624bdef4aad73c9c56b430ff0e1255939af9d9
+  data.tar.gz: afdff939c321d4107142ed5f3c733ec9c767be2f
 SHA512:
-  metadata.gz: 4cedd4a547029020891081d81be3a9e0356f06fad6bca85df5e0a799ef9eba06e0ea48345e921c066b8c1e74bc1caf7fff084e95da64f2deb23210ee4a29ccf3
-  data.tar.gz: 591846ec033b7e216d05037ee6c503d291e55b67c36255c48c4b32d2835475ef15c12c3dbc328ec9a9f9ce3b10207d8ed4b4c42e3e3d90e955385fc47ba165e1
+  metadata.gz: df4961b2ed295f015c1402ba7dd015d3b5df96d4afcf633a92856343b319f9f909aa473eaf1ae9acda771e27036bcc8dd765d36bb56d34c24e30de2751de8046
+  data.tar.gz: 1bad26d4b4a399c4989e8ee6030878c01aa02bc084d221d39296494c42c2c4f9f8fe8f631ae896612f48132b8c2ab074173990f72cc58a6b9f63fa724097c90e

data/bin/Changes

@@ -7,6 +7,17 @@ RSS feed: http://owl.phy.queensu.ca/~phil/exiftool/rss.xml
 Note: The most recent production release is Version 11.70. (Other versions are
 considered development releases, and are not uploaded to CPAN.)
 
+Oct. 16, 2019 - Version 11.71
+
+  - Added a new Sony LensType (thanks Jos Roost)
+  - Added a few new Nikon Z LensID's
+  - Added a simple print conversion for DNG OpcodeList tags (note that due to
+    this, these tags must now be copied using the -n option)
+  - Fixed problems determining some video parameters for DV files
+  - Changed behaviour of -sep option when writing empty list items
+  - API Changes:
+      - Changed ListSplit option to preserve empty list items
+
 Oct. 10, 2019 - Version 11.70 (production release)
 
   - Added a new CanonModelID (thanks Laurent Clevy)

data/bin/MANIFEST

@@ -843,6 +843,7 @@ t/Writer_54.out
 t/Writer_55.out
 t/Writer_56.out
 t/Writer_58.out
+t/Writer_59.out
 t/Writer_6.out
 t/Writer_7.out
 t/Writer_9.out

data/bin/META.json

@@ -47,6 +47,6 @@
       }
    },
    "release_status" : "stable",
-   "version" : "11.70",
+   "version" : "11.71",
    "x_serialization_backend" : "JSON::PP version 4.02"
 }

data/bin/META.yml

@@ -28,5 +28,5 @@ recommends:
   Time::HiRes: '0'
 requires:
   perl: '5.004'
-version: '11.70'
+version: '11.71'
 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

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.70.tar.gz | tar -xf -
-  cd Image-ExifTool-11.70
+  gzip -dc Image-ExifTool-11.71.tar.gz | tar -xf -
+  cd Image-ExifTool-11.71
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 

data/bin/exiftool

@@ -10,7 +10,7 @@
 use strict;
 require 5.004;
 
-my $version = '11.70';
+my $version = '11.71';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
 my $exeDir;
@@ -5173,7 +5173,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 11.70 --
+    -- Generated by ExifTool 11.71 --
     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.70';
+$VERSION = '11.71';
 $RELEASE = '';
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (

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

@@ -35,7 +35,7 @@ use Image::ExifTool::Sony;
 use Image::ExifTool::Validate;
 use Image::ExifTool::MacOS;
 
-$VERSION = '3.30';
+$VERSION = '3.31';
 @ISA = qw(Exporter);
 
 sub NumbersFirst($$);
@@ -263,7 +263,7 @@ other tags which are not part of the EXIF specification, but may co-exist
 with EXIF tags in some images.  Tags which are part of the EXIF 2.32
 specification have an underlined B<Tag Name> in the HTML version of this
 documentation.  See
-L<http://www.cipa.jp/std/documents/e/DC-008-Translation-2019-E.pdf> for the
+L<http://www.cipa.jp/std/documents/download_e.html?DC-008-Translation-2019-E> for the
 official EXIF 2.32 specification.
 },
     GPS => q{

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

@@ -15,7 +15,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.01';
+$VERSION = '1.02';
 
 # DV profiles (ref 1)
 my @dvProfiles = (
@@ -24,7 +24,6 @@ my @dvProfiles = (
         VideoSType => 0x0,
         FrameSize => 120000,
         VideoFormat => 'IEC 61834, SMPTE-314M - 525/60 (NTSC)',
-        VideoScanType => 'Progressive',
         Colorimetry => '4:1:1',
         FrameRate => 30000/1001,
         ImageHeight => 480,
@@ -34,7 +33,6 @@ my @dvProfiles = (
         VideoSType => 0x0,
         FrameSize => 144000,
         VideoFormat => 'IEC 61834 - 625/50 (PAL)',
-        VideoScanType => 'Progressive',
         Colorimetry => '4:2:0',
         FrameRate => 25/1,
         ImageHeight => 576,
@@ -44,7 +42,6 @@ my @dvProfiles = (
         VideoSType => 0x0,
         FrameSize => 144000,
         VideoFormat => 'SMPTE-314M - 625/50 (PAL)',
-        VideoScanType => 'Progressive',
         Colorimetry => '4:1:1',
         FrameRate => 25/1,
         ImageHeight => 576,
@@ -54,7 +51,6 @@ my @dvProfiles = (
         VideoSType => 0x4,
         FrameSize => 240000,
         VideoFormat => 'DVCPRO50: SMPTE-314M - 525/60 (NTSC) 50 Mbps',
-        VideoScanType => 'Progressive',
         Colorimetry => '4:2:2',
         FrameRate => 30000/1001,
         ImageHeight => 480,
@@ -64,7 +60,6 @@ my @dvProfiles = (
         VideoSType => 0x4,
         FrameSize => 288000,
         VideoFormat => 'DVCPRO50: SMPTE-314M - 625/50 (PAL) 50 Mbps',
-        VideoScanType => 'Progressive',
         Colorimetry => '4:2:2',
         FrameRate => 25/1,
         ImageHeight => 576,
@@ -74,7 +69,6 @@ my @dvProfiles = (
         VideoSType => 0x14,
         FrameSize => 480000,
         VideoFormat => 'DVCPRO HD: SMPTE-370M - 1080i60 100 Mbps',
-        VideoScanType => 'Interlaced',
         Colorimetry => '4:2:2',
         FrameRate => 30000/1001,
         ImageHeight => 1080,
@@ -84,7 +78,6 @@ my @dvProfiles = (
         VideoSType => 0x14,
         FrameSize => 576000,
         VideoFormat => 'DVCPRO HD: SMPTE-370M - 1080i50 100 Mbps',
-        VideoScanType => 'Interlaced',
         Colorimetry => '4:2:2',
         FrameRate => 25/1,
         ImageHeight => 1080,
@@ -94,7 +87,6 @@ my @dvProfiles = (
         VideoSType => 0x18,
         FrameSize => 240000,
         VideoFormat => 'DVCPRO HD: SMPTE-370M - 720p60 100 Mbps',
-        VideoScanType => 'Progressive',
         Colorimetry => '4:2:2',
         FrameRate => 60000/1001,
         ImageHeight => 720,
@@ -104,7 +96,6 @@ my @dvProfiles = (
         VideoSType => 0x18,
         FrameSize => 288000,
         VideoFormat => 'DVCPRO HD: SMPTE-370M - 720p50 100 Mbps',
-        VideoScanType => 'Progressive',
         Colorimetry => '4:2:2',
         FrameRate => 50/1,
         ImageHeight => 720,
@@ -114,7 +105,6 @@ my @dvProfiles = (
         VideoSType => 0x1,
         FrameSize => 144000,
         VideoFormat => 'IEC 61883-5 - 625/50 (PAL)',
-        VideoScanType => 'Progressive',
         Colorimetry => '4:2:0',
         FrameRate => 25/1,
         ImageHeight => 576,
@@ -183,7 +173,7 @@ sub ProcessDV($$)
     $et->SetFileType();
 
     my $pos = $start;
-    my $dsf = Get8u(\$buff, $pos + 3) & 0x80 >> 7;
+    my $dsf = (Get8u(\$buff, $pos + 3) & 0x80) >> 7;
     my $stype = Get8u(\$buff, $pos + 80*5 + 48 + 3) & 0x1f;
 
     # 576i50 25Mbps 4:1:1 is a special case
@@ -208,7 +198,8 @@ sub ProcessDV($$)
     # read DVPack metadata from the VAUX DIF's to extract video tags
     delete $$profile{DateTimeOriginal};
     delete $$profile{AspectRatio};
-    my ($date, $time, $is16_9);
+    delete $$profile{VideoScanType};
+    my ($date, $time, $is16_9, $interlace);
     for ($i=1; $i<6; ++$i) {
         $pos += 80;
         my $type = Get8u(\$buff, $pos);
@@ -220,6 +211,7 @@ sub ProcessDV($$)
                 my $apt = Get8u(\$buff, $start + 4) & 0x07;
                 my $t = Get8u(\$buff, $p + 2);
                 $is16_9 = (($t & 0x07) == 0x02 or (not $apt and ($t & 0x07) == 0x07));
+                $interlace = Get8u(\$buff, $p + 3) & 0x10; # (ref 2)
             } elsif ($type == 0x62) { # date
                 # mask off unused bits
                 my @d = unpack('C*', substr($buff, $p + 1, 4));
@@ -245,7 +237,10 @@ sub ProcessDV($$)
     }
     if ($date and $time) {
         $$profile{DateTimeOriginal} = "$date $time";
-        $$profile{AspectRatio} = $is16_9 ? '16:9' : '5:4' if defined $is16_9;
+        if (defined $is16_9) {
+            $$profile{AspectRatio} = $is16_9 ? '16:9' : '4:3';
+            $$profile{VideoScanType} = $interlace ? 'Interlaced' : 'Progressive';
+        }
     }
 
     # read audio tags if available

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

@@ -56,7 +56,7 @@ use vars qw($VERSION $AUTOLOAD @formatSize @formatName %formatNumber %intFormat
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::MakerNotes;
 
-$VERSION = '4.24';
+$VERSION = '4.25';
 
 sub ProcessExif($$$);
 sub WriteExif($$$);
@@ -68,6 +68,7 @@ sub ValidateImageData($$$;$);
 sub ProcessTiffIFD($$$);
 sub PrintParameter($$$);
 sub GetOffList($$$$$);
+sub PrintOpcode($);
 sub PrintLensInfo($);
 sub ConvertLensInfo($);
 
@@ -337,6 +338,23 @@ my %sampleFormat = (
     0x115 => 1, # SamplesPerPixel
 );
 
+# ID's for DNG OpcodeList tags
+my %opcode = (
+    1 => 'WarpRectilinear',
+    2 => 'WarpFisheye',
+    3 => 'FixVignetteRadial',
+    4 => 'FixBadPixelsConstant',
+    5 => 'FixBadPixelsList',
+    6 => 'TrimBounds',
+    7 => 'MapTable',
+    8 => 'MapPolynomial',
+    9 => 'GainMap',
+    10 => 'DeltaPerRow',
+    11 => 'DeltaPerColumn',
+    12 => 'ScalePerRow',
+    13 => 'ScalePerColumn',
+);
+
 # main EXIF tag table
 %Image::ExifTool::Exif::Main = (
     GROUPS => { 0 => 'EXIF', 1 => 'IFD0', 2 => 'Image'},
@@ -3706,6 +3724,8 @@ my %sampleFormat = (
         WriteGroup => 'SubIFD',
         Protected => 1,
         Binary => 1,
+        ConvertBinary => 1,
+        PrintConv => \&PrintOpcode,
         # opcodes:
         # 1 => 'WarpRectilinear',
         # 2 => 'WarpFisheye',
@@ -3727,6 +3747,8 @@ my %sampleFormat = (
         WriteGroup => 'SubIFD',
         Protected => 1,
         Binary => 1,
+        ConvertBinary => 1,
+        PrintConv => \&PrintOpcode,
     },
     0xc74e => { # DNG 1.3
         Name => 'OpcodeList3',
@@ -3734,6 +3756,8 @@ my %sampleFormat = (
         WriteGroup => 'SubIFD',
         Protected => 1,
         Binary => 1,
+        ConvertBinary => 1,
+        PrintConv => \&PrintOpcode,
     },
     0xc761 => { # DNG 1.3
         Name => 'NoiseProfile',
@@ -5100,6 +5124,26 @@ sub PrintCFAPattern($)
     return $rtnVal . ']';
 }
 
+#------------------------------------------------------------------------------
+# Print Opcode List
+# Inputs: 0) reference to opcode list data
+# Returns: Human-readable opcode list
+sub PrintOpcode($)
+{
+    my $val = shift;
+    return '' unless length $$val > 4;
+    my $num = unpack('N', $$val);
+    my $pos = 4;
+    my ($i, @ops);
+    for ($i=0; $i<$num; ++$i) {
+        $pos + 16 <= length $$val or push(@ops, '<err>'), last;
+        my ($op, $ver, $flags, $len) = unpack("x${pos}N4", $$val);
+        push @ops, $opcode{$op} || "[opcode $op]";
+        $pos += 16 + $len;
+    }
+    return join ', ', @ops;
+}
+
 #------------------------------------------------------------------------------
 # Print conversion for lens info
 # Inputs: 0) string of values (min focal, max focal, min F, max F)

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

@@ -296,6 +296,7 @@ $VERSION = '2.83';
     50 => 'Sony DT 18-250mm F3.5-6.3 (SAL18250)', #11/JR
     51 => 'Sony DT 16-105mm F3.5-5.6 (SAL16105)', #11/JR
     #51.1 => 'Sony AF DT 55-200mm F4-5.5', #11 (anomaly? - PH)
+    # LensType 52 also seen for Fringer Contax_N to E-mount adapter Ver.31 and Ver.21 (ref JR)
     52 => 'Sony 70-300mm F4.5-5.6 G SSM (SAL70300G) or G SSM II or Tamron Lens', #JD
     52.1 => 'Sony 70-300mm F4.5-5.6 G SSM II (SAL70300G2)', #JR
     52.2 => 'Tamron SP 70-300mm F4-5.6 Di USD', #JR,NJ (Model A005)
@@ -342,7 +343,7 @@ $VERSION = '2.83';
    '128.11' => 'Sigma 24-70mm F2.8 IF EX DG HSM', #27
    '128.12' => 'Sigma 18-250mm F3.5-6.3 DC OS HSM', #27
    '128.13' => 'Sigma 17-50mm F2.8 EX DC HSM', #Exiv2
-   '128.14' => 'Sigma 17-70mm F2.8-4 DC Macro HSM', #JR (OS Model C013, ref IB) (but C013 doesn't have OS, ref JR)
+   '128.14' => 'Sigma 17-70mm F2.8-4 DC Macro HSM', # (no OS for Sony mount, ref JR) (also C013 Model, ref IB)
    '128.15' => 'Sigma 150mm F2.8 EX DG OS HSM APO Macro', #Marcus Holland-Moritz
    '128.16' => 'Sigma 150-500mm F5-6.3 APO DG OS HSM', #IB
    '128.17' => 'Tamron AF 28-105mm F4-5.6 [IF]', #IB (Model 179D)

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

@@ -61,7 +61,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 
-$VERSION = '3.71';
+$VERSION = '3.72';
 
 sub LensIDConv($$$);
 sub ProcessNikonAVI($$$);
@@ -4485,9 +4485,11 @@ my %nikonFocalConversions = (
              2 => 'Nikkor Z 14-30mm f/4 S',
              4 => 'Nikkor Z 35mm f/1.8 S',
              9 => 'Nikkor Z 50mm f/1.8 S',
+            11 => 'Nikkor Z DX 16-50mm f/3.5-6.3 VR',
+            12 => 'Nikkor Z DX 50-250mm f/4.5-6.3 VR',
             13 => 'Nikkor Z 24-70mm f/2.8 S',
+            14 => 'Nikkor Z 85mm f/1.8 S',
             # missing from this list:
-            # Nikkor Z 85mm f/1.8 S
             # Nikkor Z 58mm f/0.95 S Noct (coming soon)
         },
     },

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

@@ -34,7 +34,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::Minolta;
 
-$VERSION = '3.16';
+$VERSION = '3.17';
 
 sub ProcessSRF($$$);
 sub ProcessSR2($$$);
@@ -223,6 +223,7 @@ sub PrintInvLensSpec($;$$);
     51505 => 'Samyang AF 14mm F2.8 or Samyang AF 35mm F2.8', #forum3833
     51505.1 => 'Samyang AF 35mm F2.8', #PH (also 32794)
     51507 => 'Samyang AF 35mm F1.4', #IB
+    51508 => 'Samyang AF 45mm F1.8',
 );
 
 # ExposureProgram values (ref PH, mainly decoded from A200)

data/bin/lib/Image/ExifTool/TagNames.pod

@@ -317,7 +317,7 @@ other tags which are not part of the EXIF specification, but may co-exist
 with EXIF tags in some images.  Tags which are part of the EXIF 2.32
 specification have an underlined B<Tag Name> in the HTML version of this
 documentation.  See
-L<http://www.cipa.jp/std/documents/e/DC-008-Translation-2019-E.pdf> for the
+L<http://www.cipa.jp/std/documents/download_e.html?DC-008-Translation-2019-E> for the
 official EXIF 2.32 specification.
 
   Tag ID   Tag Name                  Group      Writable
@@ -880,9 +880,9 @@ official EXIF 2.32 specification.
   0xc71f   RowInterleaveFactor       -          no
   0xc725   ProfileLookTableDims      IFD0       int32u[3]!
   0xc726   ProfileLookTableData      IFD0       float[n]!
-  0xc740   OpcodeList1               SubIFD     undef!
-  0xc741   OpcodeList2               SubIFD     undef!
-  0xc74e   OpcodeList3               SubIFD     undef!
+  0xc740   OpcodeList1               SubIFD     undef~!
+  0xc741   OpcodeList2               SubIFD     undef~!
+  0xc74e   OpcodeList3               SubIFD     undef~!
   0xc761   NoiseProfile              SubIFD     double[n]!
   0xc763   TimeCodes                 IFD0       int8u[n]
   0xc764   FrameRate                 IFD0       rational64s

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

@@ -2752,8 +2752,8 @@ Conv: for (;;) {
                     ($wantGroup or not defined $wantGroup))
                 {
                     $listSplit = ',?\s+' if $listSplit eq '1' and $$tagInfo{AutoSplit};
-                    my @splitVal = split /$listSplit/, $val;
-                    $val = \@splitVal if @splitVal > 1;
+                    my @splitVal = split /$listSplit/, $val, -1;
+                    $val = @splitVal > 1 ? \@splitVal : @splitVal ? $splitVal[0] : '';
                 }
             }
             $type = $convType || $$self{ConvType} || 'PrintConv';

data/bin/perl-Image-ExifTool.spec

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

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: exiftool_vendored
 version: !ruby/object:Gem::Version
-  version: 11.70.0
+  version: 11.71.0
 platform: ruby
 authors:
 - Matthew McEachen
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2019-10-11 00:00:00.000000000 Z
+date: 2019-10-16 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: exiftool