exiftool_vendored 12.38.0 → 12.42.0

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

@@ -112,7 +112,7 @@ Print Image Matching meta information.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -1331,7 +1331,7 @@ information from the APP7 Qualcomm segment in JPEG images.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -47,7 +47,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 
-$VERSION = '2.73';
+$VERSION = '2.74';
 
 sub ProcessMOV($$;$);
 sub ProcessKeys($$$);
@@ -2232,7 +2232,7 @@ my %eeBox2 = (
     #  4 ? - "1e 00"
     #  6 int16u - record length in bytes
     #  8 ? - "23 01 00 00 00 00 00 00"
-    #  16 - start of records (each record ends in an int64u timestamp in ns)
+    #  16 - start of records (each record ends in an int64u timestamp "ts" in ns)
     # RDTA - float[4],ts: "-0.31289672 -0.2245330 11.303817 0 775.780"
     # RDTB - float[4],ts: "-0.04841613 -0.2166595 0.0724792 0 775.780"
     # RDTC - float[4],ts: "27.60925 -27.10037 -13.27285 0 775.829"
@@ -8795,16 +8795,20 @@ sub ProcessSampleDesc($$$)
 
     my $num = Get32u($dataPt, 4);   # get number of sample entries in table
     $pos += 8;
-    my $i;
+    my ($i, $err);
     for ($i=0; $i<$num; ++$i) {     # loop through sample entries
-        last if $pos + 8 > $dirLen;
+        $pos + 8 > $dirLen and $err = 1, last;
         my $size = Get32u($dataPt, $pos);
-        last if $pos + $size > $dirLen;
+        $pos + $size > $dirLen and $err = 1, last;
         $$dirInfo{DirStart} = $pos;
         $$dirInfo{DirLen} = $size;
         ProcessHybrid($et, $dirInfo, $tagTablePtr);
         $pos += $size;
     }
+    if ($err and $$et{HandlerType}) {
+        my $grp = $$et{SET_GROUP1} || $$dirInfo{Parent} || 'unknown';
+        $et->Warn("Truncated $$et{HandlerType} sample table for $grp");
+    }
     return 1;
 }
 
@@ -9685,7 +9689,7 @@ information from QuickTime and MP4 video, M4A audio, and HEIC image files.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -1144,13 +1144,13 @@ sub ProcessSamples($)
             }
             @$size < @$start + $samplesPerChunk and $et->WarnOnce('Sample size error'), last;
             my $sampleStart = $chunkStart;
-            for ($i=0; ; ) {
+Sample:     for ($i=0; ; ) {
                 push @$start, $sampleStart;
                 if (defined $time) {
                     until ($timeCount) {
                         if (@$stts < 2) {
                             undef $time;
-                            last;
+                            last Sample;
                         }
                         $timeCount = shift @$stts;
                         $timeDelta = shift @$stts;
@@ -1527,7 +1527,7 @@ sub ProcessFreeGPS($$$)
         $spd = $9 * $knotsToKph if length $9;
         $trk = $10 if length $10;
 
-    } elsif ($$dataPt =~ /^.{16}YndAkasoCar/s) {
+    } elsif ($$dataPt =~ /^.{64}[\x01-\x0c]\0{3}[\x01-\x1f]\0{3}A[NS][EW]\0/s) {
 
         # Akaso V1 dascham
         #  0000: 00 00 80 00 66 72 65 65 47 50 53 20 78 00 00 00 [....freeGPS x...]
@@ -1539,6 +1539,17 @@ sub ProcessFreeGPS($$$)
         #  0060: 4b dc c8 41 9a 79 a7 43 34 58 43 31 4f 37 31 35 [K..A.y.C4XC1O715]
         #  0070: 35 31 32 36 36 35 37 35 59 4e 44 53 0d e7 cc f9 [51266575YNDS....]
         #  0080: 00 00 00 00 05 00 00 00 00 00 00 00 00 00 00 00 [................]
+        # Redtiger F7N dashcam
+        #  0000: 00 00 40 00 66 72 65 65 47 50 53 20 f0 01 00 00 [..@.freeGPS ....]
+        #  0010: 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 [................]
+        #  0020: 01 00 00 00 b0 56 50 01 7b 18 68 45 17 02 3f 46 [.....VP.{.hE..?F]
+        #  0030: 13 00 00 00 01 00 00 00 06 00 00 00 15 00 00 00 [................]
+        #  0040: 0c 00 00 00 1c 00 00 00 41 4e 57 00 00 00 00 00 [........ANW.....]
+        #  0050: 80 d4 26 4e 36 11 b5 40 74 b5 15 7b cd 7b f3 40 [..&N6..@t..{.{.@]
+        #  0060: 0a d7 a3 3d cd 4c 4e 43 38 34 37 41 45 48 31 36 [...=.LNC847AEH16]
+        #  0070: 33 36 30 38 32 34 35 37 59 53 4b 4a 01 00 00 00 [36082457YSKJ....]
+        #  0080: ec ff ff ff 00 00 00 00 0e 00 00 00 01 00 00 00 [................]
+        #  0090: 0a 00 00 00 e5 07 00 00 0c 00 00 00 1c 00 00 00 [................]
         ($hr,$min,$sec,$yr,$mon,$day,$stat,$latRef,$lonRef) =
             unpack('x48V6a1a1a1x1', $$dataPt);
         # ignore invalid fixes
@@ -2572,7 +2583,7 @@ sub ProcessInsta360($;$)
     my $trailerLen = unpack('x38V', $buff);
     $trailerLen > $fileEnd and $et->Warn('Bad Insta360 trailer size'), return 0;
     if ($dirInfo) {
-        $$dirInfo{DirLen} = $trailerLen if $dirInfo;
+        $$dirInfo{DirLen} = $trailerLen;
         $$dirInfo{DataPos} = $fileEnd - $trailerLen;
         if ($$dirInfo{OutFile}) {
             if ($$et{DEL_GROUP}{Insta360}) {
@@ -2855,7 +2866,7 @@ information like GPS tracks from MOV, MP4 and INSV media data.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -2029,7 +2029,7 @@ including AVI videos, WAV audio files and WEBP images.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -225,7 +225,7 @@ resource files.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -366,7 +366,7 @@ information from RTF (Rich Text Format) documents.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -125,7 +125,7 @@ images are a type of high dynamic-range image.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -168,7 +168,7 @@ information from Rawzor compressed images.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -715,7 +715,7 @@ little-endian, but the Real format is big-endian.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -431,7 +431,7 @@ maker notes in images from Reconyx cameras.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -303,7 +303,7 @@ from Redcode R3D version 1 and 2 video files.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -1143,7 +1143,7 @@ interpret Ricoh maker notes EXIF meta information.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -22,7 +22,7 @@ use vars qw($VERSION %samsungLensTypes);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.50';
+$VERSION = '1.52';
 
 sub WriteSTMN($$$);
 sub ProcessINFO($$$);
@@ -454,6 +454,8 @@ my %formatMinMax = (
     0xa018 => { #1
         Name => 'ExposureTime',
         Writable => 'rational64u',
+        ValueConv => '$val=~s/ .*//; $val', # some models write 2 values here
+        ValueConvInv => '$val',
         PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
         PrintConvInv => '$val',
     },
@@ -461,6 +463,8 @@ my %formatMinMax = (
         Name => 'FNumber',
         Priority => 0,
         Writable => 'rational64u',
+        ValueConv => '$val=~s/ .*//; $val', # some models write 2 values here
+        ValueConvInv => '$val',
         PrintConv => 'sprintf("%.1f",$val)',
         PrintConvInv => '$val',
     },
@@ -996,7 +1000,238 @@ my %formatMinMax = (
     '0x0a30' => { Name => 'EmbeddedVideoFile', Groups => { 2 => 'Video' }, Binary => 1 }, #forum7161
    # 0x0aa1-name - seen 'MCC_Data'
    # 0x0aa1 - seen '204','222','234','302','429'
-    '0x0aa1' => 'MCCData', # (unknown meaning)
+    '0x0aa1' => {
+        Name => 'MCCData',
+        Groups => { 2 => 'Location' },
+        PrintConv => {
+            202 => 'Greece',
+            204 => 'Netherlands',
+            206 => 'Belgium',
+            208 => 'France',
+            212 => 'Monaco',
+            213 => 'Andorra',
+            214 => 'Spain',
+            216 => 'Hungary',
+            218 => 'Bosnia & Herzegov.',
+            219 => 'Croatia',
+            220 => 'Serbia',
+            221 => 'Kosovo',
+            222 => 'Italy',
+            226 => 'Romania',
+            228 => 'Switzerland',
+            230 => 'Czech Rep.',
+            231 => 'Slovakia',
+            232 => 'Austria',
+            234 => 'United Kingdom',
+            235 => 'United Kingdom',
+            238 => 'Denmark',
+            240 => 'Sweden',
+            242 => 'Norway',
+            244 => 'Finland',
+            246 => 'Lithuania',
+            247 => 'Latvia',
+            248 => 'Estonia',
+            250 => 'Russian Federation',
+            255 => 'Ukraine',
+            257 => 'Belarus',
+            259 => 'Moldova',
+            260 => 'Poland',
+            262 => 'Germany',
+            266 => 'Gibraltar',
+            268 => 'Portugal',
+            270 => 'Luxembourg',
+            272 => 'Ireland',
+            274 => 'Iceland',
+            276 => 'Albania',
+            278 => 'Malta',
+            280 => 'Cyprus',
+            282 => 'Georgia',
+            283 => 'Armenia',
+            284 => 'Bulgaria',
+            286 => 'Turkey',
+            288 => 'Faroe Islands',
+            289 => 'Abkhazia',
+            290 => 'Greenland',
+            292 => 'San Marino',
+            293 => 'Slovenia',
+            294 => 'Macedonia',
+            295 => 'Liechtenstein',
+            297 => 'Montenegro',
+            302 => 'Canada',
+            308 => 'St. Pierre & Miquelon',
+            310 => 'United States / Guam',
+            311 => 'United States / Guam',
+            312 => 'United States',
+            316 => 'United States',
+            330 => 'Puerto Rico',
+            334 => 'Mexico',
+            338 => 'Jamaica',
+            340 => 'French Guiana / Guadeloupe / Martinique',
+            342 => 'Barbados',
+            344 => 'Antigua and Barbuda',
+            346 => 'Cayman Islands',
+            348 => 'British Virgin Islands',
+            350 => 'Bermuda',
+            352 => 'Grenada',
+            354 => 'Montserrat',
+            356 => 'Saint Kitts and Nevis',
+            358 => 'Saint Lucia',
+            360 => 'St. Vincent & Gren.',
+            362 => 'Bonaire, Sint Eustatius and Saba / Curacao / Netherlands Antilles',
+            363 => 'Aruba',
+            364 => 'Bahamas',
+            365 => 'Anguilla',
+            366 => 'Dominica',
+            368 => 'Cuba',
+            370 => 'Dominican Republic',
+            372 => 'Haiti',
+            374 => 'Trinidad and Tobago',
+            376 => 'Turks and Caicos Islands / US Virgin Islands',
+            400 => 'Azerbaijan',
+            401 => 'Kazakhstan',
+            402 => 'Bhutan',
+            404 => 'India',
+            405 => 'India',
+            410 => 'Pakistan',
+            412 => 'Afghanistan',
+            413 => 'Sri Lanka',
+            414 => 'Myanmar (Burma)',
+            415 => 'Lebanon',
+            416 => 'Jordan',
+            417 => 'Syrian Arab Republic',
+            418 => 'Iraq',
+            419 => 'Kuwait',
+            420 => 'Saudi Arabia',
+            421 => 'Yemen',
+            422 => 'Oman',
+            424 => 'United Arab Emirates',
+            425 => 'Israel / Palestinian Territory',
+            426 => 'Bahrain',
+            427 => 'Qatar',
+            428 => 'Mongolia',
+            429 => 'Nepal',
+            430 => 'United Arab Emirates',
+            431 => 'United Arab Emirates',
+            432 => 'Iran',
+            434 => 'Uzbekistan',
+            436 => 'Tajikistan',
+            437 => 'Kyrgyzstan',
+            438 => 'Turkmenistan',
+            440 => 'Japan',
+            441 => 'Japan',
+            450 => 'South Korea',
+            452 => 'Viet Nam',
+            454 => 'Hongkong, China',
+            455 => 'Macao, China',
+            456 => 'Cambodia',
+            457 => 'Laos P.D.R.',
+            460 => 'China',
+            466 => 'Taiwan',
+            467 => 'North Korea',
+            470 => 'Bangladesh',
+            472 => 'Maldives',
+            502 => 'Malaysia',
+            505 => 'Australia',
+            510 => 'Indonesia',
+            514 => 'Timor-Leste',
+            515 => 'Philippines',
+            520 => 'Thailand',
+            525 => 'Singapore',
+            528 => 'Brunei Darussalam',
+            530 => 'New Zealand',
+            537 => 'Papua New Guinea',
+            539 => 'Tonga',
+            540 => 'Solomon Islands',
+            541 => 'Vanuatu',
+            542 => 'Fiji',
+            544 => 'American Samoa',
+            545 => 'Kiribati',
+            546 => 'New Caledonia',
+            547 => 'French Polynesia',
+            548 => 'Cook Islands',
+            549 => 'Samoa',
+            550 => 'Micronesia',
+            552 => 'Palau',
+            553 => 'Tuvalu',
+            555 => 'Niue',
+            602 => 'Egypt',
+            603 => 'Algeria',
+            604 => 'Morocco',
+            605 => 'Tunisia',
+            606 => 'Libya',
+            607 => 'Gambia',
+            608 => 'Senegal',
+            609 => 'Mauritania',
+            610 => 'Mali',
+            611 => 'Guinea',
+            612 => 'Ivory Coast',
+            613 => 'Burkina Faso',
+            614 => 'Niger',
+            615 => 'Togo',
+            616 => 'Benin',
+            617 => 'Mauritius',
+            618 => 'Liberia',
+            619 => 'Sierra Leone',
+            620 => 'Ghana',
+            621 => 'Nigeria',
+            622 => 'Chad',
+            623 => 'Central African Rep.',
+            624 => 'Cameroon',
+            625 => 'Cape Verde',
+            626 => 'Sao Tome & Principe',
+            627 => 'Equatorial Guinea',
+            628 => 'Gabon',
+            629 => 'Congo, Republic',
+            630 => 'Congo, Dem. Rep.',
+            631 => 'Angola',
+            632 => 'Guinea-Bissau',
+            633 => 'Seychelles',
+            634 => 'Sudan',
+            635 => 'Rwanda',
+            636 => 'Ethiopia',
+            637 => 'Somalia',
+            638 => 'Djibouti',
+            639 => 'Kenya',
+            640 => 'Tanzania',
+            641 => 'Uganda',
+            642 => 'Burundi',
+            643 => 'Mozambique',
+            645 => 'Zambia',
+            646 => 'Madagascar',
+            647 => 'Reunion',
+            648 => 'Zimbabwe',
+            649 => 'Namibia',
+            650 => 'Malawi',
+            651 => 'Lesotho',
+            652 => 'Botswana',
+            653 => 'Swaziland',
+            654 => 'Comoros',
+            655 => 'South Africa',
+            657 => 'Eritrea',
+            659 => 'South Sudan',
+            702 => 'Belize',
+            704 => 'Guatemala',
+            706 => 'El Salvador',
+            708 => 'Honduras',
+            710 => 'Nicaragua',
+            712 => 'Costa Rica',
+            714 => 'Panama',
+            716 => 'Peru',
+            722 => 'Argentina Republic',
+            724 => 'Brazil',
+            730 => 'Chile',
+            732 => 'Colombia',
+            734 => 'Venezuela',
+            736 => 'Bolivia',
+            738 => 'Guyana',
+            740 => 'Ecuador',
+            744 => 'Paraguay',
+            746 => 'Suriname',
+            748 => 'Uruguay',
+            750 => 'Falkland Islands (Malvinas)',
+            901 => 'International Networks / Satellite Networks',
+        },
+    },
    # 0x0ab0-name - seen 'DualShot_Meta_Info'
     '0x0ab1-name' => {
         Name => 'DepthMapName',
@@ -1485,7 +1720,7 @@ Samsung maker notes in EXIF information.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -419,7 +419,7 @@ Sanyo maker notes in EXIF information.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -128,7 +128,7 @@ metadata from the JPEG APP4 SCALADO segment.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -304,6 +304,8 @@ sub ShiftTime($;$$$)
         $mode = defined $time[3] ? 'DateTime' : 'Date';
     } elsif (defined $time[3]) {
         $mode = 'Time';
+    } else {
+        $mode = '';
     }
     # get number of digits after the seconds decimal point
     if (defined $time[5] and $time[5] =~ /\.(\d+)/) {
@@ -630,7 +632,7 @@ limited to the range 1970 to 2038 on 32-bit systems.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -19,7 +19,7 @@ package Image::ExifTool::Shortcuts;
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '1.65';
+$VERSION = '1.67';
 
 # this is a special table used to define command-line shortcuts
 # (documentation Notes may be added for these via %shortcutNotes in BuildTagLookup.pm)
@@ -118,6 +118,7 @@ $VERSION = '1.65';
         'MakerNoteCasio',
         'MakerNoteCasio2',
         'MakerNoteDJI',
+        'MakerNoteDJIInfo',
         'MakerNoteFLIR',
         'MakerNoteFujiFilm',
         'MakerNoteGE',
@@ -158,6 +159,7 @@ $VERSION = '1.65';
         'MakerNoteNintendo',
         'MakerNoteOlympus',
         'MakerNoteOlympus2',
+        'MakerNoteOlympus3',
         'MakerNoteLeica',
         'MakerNoteLeica2',
         'MakerNoteLeica3',
@@ -341,7 +343,7 @@ name prefix.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -837,7 +837,7 @@ Sigma and Foveon maker notes in EXIF information.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -650,7 +650,7 @@ Sigma and Foveon X3F images.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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.48';
+$VERSION = '3.50';
 
 sub ProcessSRF($$$);
 sub ProcessSR2($$$);
@@ -244,7 +244,8 @@ sub PrintInvLensSpec($;$$);
     50529 => 'Sigma 90mm F2.8 DG DN | C', #JR (021)
     50530 => 'Sigma 24mm F2 DG DN | C', #JR (021)
     50531 => 'Sigma 18-50mm F2.8 DC DN | C', #IB/JR (021)
- 
+    50532 => 'Sigma 20mm F2 DG DN | C', #JR (022)
+
     50992 => 'Voigtlander SUPER WIDE-HELIAR 15mm F4.5 III', #JR
     50993 => 'Voigtlander HELIAR-HYPER WIDE 10mm F5.6', #IB
     50994 => 'Voigtlander ULTRA WIDE-HELIAR 12mm F5.6 III', #IB
@@ -273,7 +274,12 @@ sub PrintInvLensSpec($;$$);
     51510 => 'Samyang AF 18mm F2.8 or Samyang AF 35mm F1.8', #JR
     51510.1 => 'Samyang AF 35mm F1.8', #JR
     51512 => 'Samyang AF 75mm F1.8', #IB/JR
+    51513 => 'Samyang AF 35mm F1.8', #JR
     51514 => 'Samyang AF 24mm F1.8', #IB
+    51515 => 'Samyang AF 12mm F2.0', #JR
+    51516 => 'Samyang AF 24-70mm F2.8', #JR
+    51517 => 'Samyang AF 50mm F1.4 II', #JR
+    51518 => 'Samyang AF 135mm F1.8', #JR
 );
 
 # ExposureProgram values (ref PH, mainly decoded from A200)
@@ -1786,7 +1792,7 @@ my %hidUnk = ( Hidden => 1, Unknown => 1 );
     # 15  0   35  2  2     ILCA-68/77M2, ILCE-5000/5100/6000/7/7R/7S/7M2/QX1, DSC-HX60V/HX350/HX400V/QX30/RX10/RX100M3/WX220/WX350
     # 16  0   85  2  2     DSC-HX80/HX90V/WX500
     # 17  0  232  1  2     DSC-RX0/RX0M2/RX1RM2/RX10M2/RX10M3/RX10M4/RX100M4/RX100M5/RX100M5A/RX100M6/RX100M7/HX99, ILCE-6100/6300/6400/6500/6600/7C/7M3/7RM2/7RM3/7RM4/7SM2/9/9M2, ILCA-99M2, ZV-1
-    # 18  0   20  0 164    ILCE-7SM3 
+    # 18  0   20  0 164    ILCE-7SM3
     # other values for Panorama images and several other models
     0x9404 => [{
         Name => 'Tag9404a',
@@ -8382,7 +8388,7 @@ my %isoSetting2010 = (
     DATAMEMBER => [ 0x04 ],
     0x04 => {
         # seen values 0,2,3,18,19,32,49,50,83,130,132,148,213,229,255
-        # CameraTemperature is valid for all values above except ==0 and >=130 
+        # CameraTemperature is valid for all values above except ==0 and >=130
         Name => 'TempTest2',
         DataMember => 'TempTest2',
         Hidden => 1,
@@ -11283,7 +11289,7 @@ Minolta.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -379,7 +379,7 @@ write Sony Image Data Converter version 3.0 metadata in ARW images.
 
 =head1 AUTHOR
 
-Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2022, Phil Harvey (philharvey66 at gmail.com)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.