exiftool_vendored 12.73.0 → 12.75.0

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

@@ -48,7 +48,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 
-$VERSION = '2.91';
+$VERSION = '2.93';
 
 sub ProcessMOV($$;$);
 sub ProcessKeys($$$);
@@ -268,6 +268,24 @@ my %timeInfo = (
     PrintConvInv => '$self->InverseDateTime($val)',
     # (can't put Groups here because they aren't constant!)
 );
+# properties for ISO 8601 format date/time tags
+my %iso8601Date = (
+    Shift => 'Time',
+    ValueConv => q{
+        require Image::ExifTool::XMP;
+        $val =  Image::ExifTool::XMP::ConvertXMPDate($val);
+        $val =~ s/([-+]\d{2})(\d{2})$/$1:$2/; # add colon to timezone if necessary
+        return $val;
+    },
+    ValueConvInv => q{
+        require Image::ExifTool::XMP;
+        my $tmp = Image::ExifTool::XMP::FormatXMPDate($val);
+        ($val = $tmp) =~ s/([-+]\d{2}):(\d{2})$/$1$2/ if defined $tmp; # remove time zone colon
+        return $val;
+    },
+    PrintConv => '$self->ConvertDateTime($val)',
+    PrintConvInv => '$self->InverseDateTime($val,1)', # (add time zone if it didn't exist)
+);
 # information for duration tags
 my %durationInfo = (
     ValueConv => '$$self{TimeScale} ? $val / $$self{TimeScale} : $val',
@@ -645,6 +663,7 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
             Deletable => 1,
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Jpeg2000::Main',
+                DirName => 'JUMBF',
                 # 16 bytes uuid
                 # +4 bytes 0
                 # +9 bytes "manifest\0"
@@ -1574,22 +1593,7 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
     "\xa9day" => {
         Name => 'ContentCreateDate',
         Groups => { 2 => 'Time' },
-        Shift => 'Time',
-        # handle values in the form "2010-02-12T13:27:14-0800" (written by Apple iPhone)
-        ValueConv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::ConvertXMPDate($val);
-            $val =~ s/([-+]\d{2})(\d{2})$/$1:$2/; # add colon to timezone if necessary
-            return $val;
-        },
-        ValueConvInv => q{
-            require Image::ExifTool::XMP;
-            my $tmp = Image::ExifTool::XMP::FormatXMPDate($val);
-            ($val = $tmp) =~ s/([-+]\d{2}):(\d{2})$/$1$2/ if defined $tmp; # remove time zone colon
-            return $val;
-        },
-        PrintConv => '$self->ConvertDateTime($val)',
-        PrintConvInv => '$self->InverseDateTime($val,1)', # (add time zone if it didn't exist)
+        %iso8601Date,
     },
     "\xa9ART" => 'Artist', #PH (iTunes 8.0.2)
     "\xa9alb" => 'Album', #PH (iTunes 8.0.2)
@@ -1873,21 +1877,7 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
             Apple Photos has been reported to show a crazy date/time for some MP4 files
             containing this tag, but perhaps only if it is missing a time zone
         }, #forum10690/11125
-        Shift => 'Time',
-        ValueConv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::ConvertXMPDate($val);
-            $val =~ s/([-+]\d{2})(\d{2})$/$1:$2/; # add colon to timezone if necessary
-            return $val;
-        },
-        ValueConvInv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::FormatXMPDate($val);
-            $val =~ s/([-+]\d{2}):(\d{2})$/$1$2/; # remove time zone colon
-            return $val;
-        },
-        PrintConv => '$self->ConvertDateTime($val)',
-        PrintConvInv => '$self->InverseDateTime($val,1)', # (add time zone if it didn't exist)
+        %iso8601Date,
     },
     manu => { # (SX280)
         Name => 'Make',
@@ -2310,23 +2300,9 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
             symbol in these tag ID's for the Ricoh Theta Z1 and maybe other models
         },
         Groups => { 2 => 'Time' },
-        Shift => 'Time',
         Avoid => 1,
         # handle values in the form "2010-02-12T13:27:14-0800"
-        ValueConv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::ConvertXMPDate($val);
-            $val =~ s/([-+]\d{2})(\d{2})$/$1:$2/; # add colon to timezone if necessary
-            return $val;
-        },
-        ValueConvInv => q{
-            require Image::ExifTool::XMP;
-            my $tmp = Image::ExifTool::XMP::FormatXMPDate($val);
-            ($val = $tmp) =~ s/([-+]\d{2}):(\d{2})$/$1$2/ if defined $tmp; # remove time zone colon
-            return $val;
-        },
-        PrintConv => '$self->ConvertDateTime($val)',
-        PrintConvInv => '$self->InverseDateTime($val,1)', # (add time zone if it didn't exist)
+        %iso8601Date,
     },
     '@xyz' => { #PH (iPhone 3GS)
         Name => 'GPSCoordinates',
@@ -3339,22 +3315,7 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
     "\xa9day" => {
         Name => 'ContentCreateDate',
         Groups => { 2 => 'Time' },
-        Shift => 'Time',
-        # handle values in the form "2010-02-12T13:27:14-0800"
-        ValueConv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::ConvertXMPDate($val);
-            $val =~ s/([-+]\d{2})(\d{2})$/$1:$2/; # add colon to timezone if necessary
-            return $val;
-        },
-        ValueConvInv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::FormatXMPDate($val);
-            $val =~ s/([-+]\d{2}):(\d{2})$/$1$2/; # remove time zone colon
-            return $val;
-        },
-        PrintConv => '$self->ConvertDateTime($val)',
-        PrintConvInv => '$self->InverseDateTime($val,1)', # (add time zone if it didn't exist)
+        %iso8601Date,
     },
     "\xa9des" => 'Description', #4
     "\xa9enc" => 'EncodedBy', #10
@@ -6403,12 +6364,10 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
         ValueConvInv => '$val * 1000',
         PrintConv => 'ConvertDuration($val)',
         PrintConvInv => q{
-           $val =~ s/ s$//;
-           my @a = split /(:| days )/, $val;
-           my $sign = ($val =~ s/^-//) ? -1 : 1;
-           $a[0] += shift(@a) * 24 if @a == 4;
-           $a[0] += shift(@a) * 60 while @a > 1;
-           return $a[0] * $sign;
+            my $sign = ($val =~ s/^-//) ? -1 : 1;
+            my @a = $val =~ /(\d+(?:\.\d+)?)/g;
+            unshift @a, 0 while @a < 4;
+            return $sign * (((($a[0] * 24) + $a[1]) * 60 + $a[2]) * 60 + $a[3]);
         },
     },
 
@@ -6522,21 +6481,7 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
     creationdate=> {
         Name => 'CreationDate',
         Groups => { 2 => 'Time' },
-        Shift => 'Time',
-        ValueConv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::ConvertXMPDate($val,1);
-            $val =~ s/([-+]\d{2})(\d{2})$/$1:$2/; # add colon to timezone if necessary
-            return $val;
-        },
-        ValueConvInv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::FormatXMPDate($val);
-            $val =~ s/([-+]\d{2}):(\d{2})$/$1$2/; # remove time zone colon
-            return $val;
-        },
-        PrintConv => '$self->ConvertDateTime($val)',
-        PrintConvInv => '$self->InverseDateTime($val,1)', # (add time zone if it didn't exist)
+        %iso8601Date,
     },
     description => { },
     director    => { },
@@ -6586,21 +6531,7 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
     'location.date' => {
         Name => 'LocationDate',
         Groups => { 2 => 'Time' },
-        Shift => 'Time',
-        ValueConv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::ConvertXMPDate($val);
-            $val =~ s/([-+]\d{2})(\d{2})$/$1:$2/; # add colon to timezone if necessary
-            return $val;
-        },
-        ValueConvInv => q{
-            require Image::ExifTool::XMP;
-            $val =  Image::ExifTool::XMP::FormatXMPDate($val);
-            $val =~ s/([-+]\d{2}):(\d{2})$/$1$2/; # remove time zone colon
-            return $val;
-        },
-        PrintConv => '$self->ConvertDateTime($val)',
-        PrintConvInv => '$self->InverseDateTime($val,1)', # (add time zone if it didn't exist)
+        %iso8601Date,
     },
     'location.accuracy.horizontal' => { Name => 'LocationAccuracyHorizontal' },
     'live-photo.auto'           => { Name => 'LivePhotoAuto', Writable => 'int8u' },
@@ -6693,6 +6624,16 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
     'detected-face.roll-angle' => { Name => 'DetectedFaceRollAngle', Writable => 0 },
     # (fiel)com.apple.quicktime.detected-face.yaw-angle (dtyp=23, float)
     'detected-face.yaw-angle'  => { Name => 'DetectedFaceYawAngle',  Writable => 0 },
+    # the following tags generated by ShutterEncoder when "preserve metadata" is selected (forum15610)
+    major_brand       => { Name => 'MajorBrand',       Avoid => 1 },
+    minor_version     => { Name => 'MinorVersion',     Avoid => 1 },
+    compatible_brands => { Name => 'CompatibleBrands', Avoid => 1 },
+    creation_time => {
+        Name => 'CreationTime',
+        Groups => { 2 => 'Time' },
+        Avoid => 1,
+        %iso8601Date,
+    },
 #
 # seen in Apple ProRes RAW file
 #
@@ -6708,13 +6649,6 @@ my %isImageData = ( av01 => 1, avc1 => 1, hvc1 => 1, lhv1 => 1, hvt1 => 1 );
     # (mdta)com.apple.proapps.image.{TIFF}.Make (eg. "Atmos")
     # (mdta)com.apple.proapps.image.{TIFF}.Model (eg. "ShogunInferno")
     # (mdta)com.apple.proapps.image.{TIFF}.Software (eg. "9.0")
-#
-# also seen (but don't yet add support for these)
-#
-    # (mdta)major_brand
-    # (mdta)minor_version
-    # (mdta)compatible_brands
-    # (mdta)creation_time
 );
 
 # iTunes info ('----') atoms
@@ -9373,7 +9307,7 @@ sub ProcessMOV($$;$)
     }
     # more convenient to package data as a RandomAccess file
     unless ($raf) {
-        $raf = new File::RandomAccess($dataPt);
+        $raf = File::RandomAccess->new($dataPt);
         $dirEnd = $dataPos + $$dirInfo{DirLen} + ($$dirInfo{DirStart} || 0) if $$dirInfo{DirLen};
     }
     # skip leading bytes if necessary

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

@@ -848,11 +848,11 @@ sub FoundSomething($$;$$)
 #------------------------------------------------------------------------------
 # Approximate GPSDateTime value from sample time and CreateDate
 # Inputs: 0) ExifTool ref, 1) tag table ptr, 2) sample time (s)
-#         3) true if CreateDate is at end of video
+#         3) true if CreateDate is at end of video, 4) flag if CreateDate is UTC
 # Notes: Uses ExifTool CreateDateAtEnd as flag to subtract video duration
-sub SetGPSDateTime($$$)
+sub SetGPSDateTime($$$;$)
 {
-    my ($et, $tagTbl, $sampleTime) = @_;
+    my ($et, $tagTbl, $sampleTime, $isUTC) = @_;
     my $value = $$et{VALUE};
     if (defined $sampleTime and $$value{CreateDate}) {
         $sampleTime += $$value{CreateDate}; # adjust sample time to seconds since the epoch
@@ -863,7 +863,9 @@ sub SetGPSDateTime($$$)
         } else {
             $et->WarnOnce('Approximating GPSDateTime as CreateDate + SampleTime', 1);
         }
-        unless ($et->Options('QuickTimeUTC')) {
+        my $utc = $et->Options('QuickTimeUTC');
+        $utc = $isUTC unless defined $utc;  # (allow QuickTimeUTC=0 to override $isUTC default)
+        unless ($utc) {
             my $tzOff = $$et{tzOff};    # use previously calculated offset
             unless (defined $tzOff) {
                 # adjust to UTC, assuming time is local
@@ -1344,7 +1346,7 @@ Sample:     for ($i=0; ; ) {
                     $et->HandleTag($tagTbl, GPSLatitude  => Get32s(\$buff, 12+$n) * 180/0x80000000);
                     $et->HandleTag($tagTbl, GPSLongitude => Get32s(\$buff, 16+$n) * 180/0x80000000);
                     $et->HandleTag($tagTbl, GPSSpeed     => Get16u(\$buff, 8+$n) * $mphToKph);
-                    SetGPSDateTime($et, $tagTbl, $time[$i]);
+                    SetGPSDateTime($et, $tagTbl, $time[$i], 1);
                     next; # all done (don't store/process as text)
                 }
                 unless (defined $val) {
@@ -2454,7 +2456,7 @@ sub ProcessLIGO_JSON($$$)
     $et->VerboseDir('LIGO_JSON', undef, length($$dataPt));
     while ($$dataPt =~ /LIGOGPSINFO (\{.*?\})/g) {
         my $json = $1;
-        my $raf = new File::RandomAccess(\$json);
+        my $raf = File::RandomAccess->new(\$json);
         my %dbase;
         Image::ExifTool::Import::ReadJSON($raf, \%dbase);
         my $info = $dbase{'*'} or next;

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

@@ -14,7 +14,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.09';
+$VERSION = '1.10';
 
 sub ProcessRSRC($$);
 
@@ -70,7 +70,7 @@ sub ProcessRSRC($$)
     my ($hdr, $map, $buff, $i, $j);
 
     # allow access with data reference
-    $raf or $raf = new File::RandomAccess($$dirInfo{DataPt});
+    $raf or $raf = File::RandomAccess->new($$dirInfo{DataPt});
 
     # attempt to validate the format as thoroughly as practical
     return 0 unless $raf->Read($hdr, 30) == 30;

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.55';
+$VERSION = '1.56';
 
 sub WriteSTMN($$$);
 sub ProcessINFO($$$);
@@ -1546,7 +1546,7 @@ sub ProcessSamsung($$$)
     my ($buff, $buf2, $index, $offsetPos, $audioNOff, $audioSize);
 
     unless ($raf) {
-        $raf = new File::RandomAccess($$dirInfo{DataPt});
+        $raf = File::RandomAccess->new($$dirInfo{DataPt});
         $et->VerboseDir('SamsungTrailer');
     }
     return 0 unless $raf->Seek(-6-$offset, 2) and $raf->Read($buff, 6) == 6 and
@@ -1675,7 +1675,7 @@ SamBlock:
                 # add a fixup so the calling routine can apply further shifts if necessary
                 require Image::ExifTool::Fixup;
                 my $fixup = $$dirInfo{Fixup};
-                $fixup or $fixup = $$dirInfo{Fixup} = new Image::ExifTool::Fixup;
+                $fixup or $fixup = $$dirInfo{Fixup} = Image::ExifTool::Fixup->new;
                 $fixup->AddFixup(length($buff) - $offsetPos);
                 $fixup->AddFixup(length($buff) - $offsetPos + 4);
             }
@@ -1697,7 +1697,7 @@ sub WriteSTMN($$$)
 {
     my ($et, $dirInfo, $tagTablePtr) = @_;
     # create a Fixup for the PreviewImage
-    $$dirInfo{Fixup} = new Image::ExifTool::Fixup;
+    $$dirInfo{Fixup} = Image::ExifTool::Fixup->new;
     my $val = Image::ExifTool::WriteBinaryData($et, $dirInfo, $tagTablePtr);
     # force PreviewImage into the trailer even if it fits in EXIF segment
     $$et{PREVIEW_INFO}{IsTrailer} = 1 if $$et{PREVIEW_INFO};

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

@@ -361,7 +361,7 @@ sub ShiftTime($;$$$)
                 };
                 # not a problem if we failed here since we'll just try again next time,
                 # so don't return error message
-                unless (@$) {
+                unless ($@) {
                     my $mode;
                     if (defined $time[0]) {
                         $mode = defined $time[3] ? 'DateTime' : 'Date';
@@ -403,7 +403,6 @@ sub ShiftTime($;$$$)
             };
             $@ and return CleanWarning($@);
             $tm += $$shiftOffset{$mode};    # apply the shift
-            $tm < 0 and return 'Shift results in negative time';
             # save fractional seconds in shifted time
             $frac = $tm - int($tm);
             if ($frac) {

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

@@ -16,7 +16,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Sigma;
 
-$VERSION = '1.31';
+$VERSION = '1.32';
 
 sub ProcessX3FHeader($$$);
 sub ProcessX3FDirectory($$$);
@@ -460,7 +460,7 @@ sub WriteX3F($$)
                     my $newData;
                     my %jpegInfo = (
                         Parent  => 'X3F',
-                        RAF     => new File::RandomAccess(\$buff),
+                        RAF     => File::RandomAccess->new(\$buff),
                         OutFile => \$newData,
                     );
                     $$et{FILE_TYPE} = 'JPEG';
@@ -575,7 +575,7 @@ sub ProcessX3FDirectory($$$)
             if ($$tagInfo{Name} eq 'JpgFromRaw') {
                 my %dirInfo = (
                     Parent => 'X3F',
-                    RAF    => new File::RandomAccess(\$buff),
+                    RAF    => File::RandomAccess->new(\$buff),
                 );
                 $$et{BASE} += $offset;
                 $et->ProcessJPEG(\%dirInfo);

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.66';
+$VERSION = '3.67';
 
 sub ProcessSRF($$$);
 sub ProcessSR2($$$);
@@ -859,7 +859,7 @@ my %hidUnk = ( Hidden => 1, Unknown => 1 );
         # must construct 0x20-byte header which contains length, width and height
         ValueConvInv => q{
             return 'none' unless $val;
-            my $e = new Image::ExifTool;
+            my $e = Image::ExifTool->new;
             my $info = $e->ImageInfo(\$val,'ImageWidth','ImageHeight');
             return undef unless $$info{ImageWidth} and $$info{ImageHeight};
             my $size = Set32u($$info{ImageWidth}) . Set32u($$info{ImageHeight});
@@ -11640,7 +11640,7 @@ sub ProcessSR2($$$)
                 );
                 my $subTable = GetTagTable('Image::ExifTool::Sony::SR2SubIFD');
                 if ($outfile) {
-                    my $fixup = new Image::ExifTool::Fixup;
+                    my $fixup = Image::ExifTool::Fixup->new;
                     $dirInfo{Fixup} = $fixup;
                     $result = $et->WriteDirectory(\%dirInfo, $subTable);
                     return undef unless $result;

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

@@ -15,7 +15,7 @@ use vars qw($VERSION @ISA $makeMissing);
 use Image::ExifTool qw(:Utils :Vars);
 use Image::ExifTool::XMP;
 
-$VERSION = '1.35';
+$VERSION = '1.36';
 @ISA = qw(Exporter);
 
 # set this to a language code to generate Lang module with 'MISSING' entries
@@ -74,7 +74,7 @@ sub Write(;$$%)
 {
     local ($_, *PTIFILE);
     my ($file, $group, %opts) = @_;
-    my $et = new Image::ExifTool;
+    my $et = Image::ExifTool->new;
     my ($fp, $tableName, %langInfo, @langs, $defaultLang, @groups);
     @groups = split ':', $group if $group;
 

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

@@ -17,7 +17,7 @@ require Exporter;
 use vars qw($VERSION @ISA @EXPORT_OK);
 use Image::ExifTool qw(:Utils);
 
-$VERSION = '1.19';
+$VERSION = '1.20';
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(FindTagInfo TagExists);
 
@@ -1870,6 +1870,7 @@ my %tagLookup = (
 	'commanderinternalttlcompgroupb' => { 312 => '22.1', 313 => '28.1' },
 	'comment' => { 0 => 0x2, 123 => 'Comment', 160 => 'Comment', 336 => 'Comment', 399 => "\xa9cmt", 401 => 'comment', 407 => "\xa9cmt" },
 	'compass' => { 417 => 0x4 },
+	'compatiblebrands' => { 401 => 'compatible_brands' },
 	'compatibleversion' => { 509 => 'CompatibleVersion', 511 => 'CompatibleVersion' },
 	'compilation' => { 399 => 'cpil' },
 	'compimageimagespersequence' => { 516 => [\'CompositeImageExposureTimes','CompositeImageExposureTimesNumberOfImagesInSequences'] },
@@ -2022,7 +2023,7 @@ my %tagLookup = (
 	'crc32' => { 513 => 'crc32' },
 	'createdate' => { 122 => 0x9004, 160 => 'CreateDate', 332 => 'CreationDate', 336 => 'create-date', 398 => 'CreationDate', 404 => 0x1, 536 => 'CreateDate' },
 	'creationdate' => { 401 => 'creationdate', 525 => 'CreationDate', 528 => 'creationDate' },
-	'creationtime' => { 336 => 'Creation Time' },
+	'creationtime' => { 336 => 'Creation Time', 401 => 'creation_time' },
 	'creativestyle' => { 434 => 0x1a, 435 => 0x18, 445 => 0x41, 448 => 0xb020, 480 => 0x4a },
 	'creativestylesetting' => { 436 => 0xf, 453 => 0x7 },
 	'creativestylewaschanged' => { 485 => 0x8001 },
@@ -4314,6 +4315,7 @@ my %tagLookup = (
 	'mainboardversion' => { 141 => 0x438 },
 	'maindialexposurecomp' => { 314 => '0.6' },
 	'mainingredient' => { 530 => 'mainIngredient' },
+	'majorbrand' => { 401 => 'major_brand' },
 	'majorversion' => { 500 => 'MajorVersion' },
 	'make' => { 101 => 0x0, 118 => 0x1, 122 => 0x10f, 159 => 'Make', 336 => 'Make', 352 => 0x10f, 401 => 'make', 407 => ['@mak',"\xa9mak"], 527 => 'make', 534 => 'Make' },
 	'makernote' => { 515 => 'MakerNote' },
@@ -4781,7 +4783,7 @@ my %tagLookup = (
 	'minoltaquality' => { 184 => 0x5, 185 => 0xd, 186 => 0x3, 189 => [0x102,0x103] },
 	'minoltatime' => { 184 => 0x16 },
 	'minormodelagedisclosure' => { 333 => 'MinorModelAgeDisclosure' },
-	'minorversion' => { 500 => 'MinorVersion' },
+	'minorversion' => { 401 => 'minor_version', 500 => 'MinorVersion' },
 	'minsamplevalue' => { 122 => 0x118 },
 	'mirrorlockup' => { 85 => 0xc, 86 => 0xc, 87 => 0x60f, 88 => 0xb, 89 => 0xc, 90 => 0x6, 91 => 0x6, 92 => 0xc, 93 => 0x3 },
 	'mobilecountrycode' => { 508 => 'mcc' },
@@ -7593,6 +7595,7 @@ my %tagExists = (
 	'aeliveviewhistograminfo' => 1,
 	'aeliveviewlocalhistogram' => 1,
 	'aelocalhistogram' => 1,
+	'af' => 1,
 	'af-cprioritysel' => 1,
 	'af-sprioritysel' => 1,
 	'afarea' => 1,
@@ -8509,7 +8512,6 @@ my %tagExists = (
 	'companymainphone' => 1,
 	'companyname' => 1,
 	'compatibility' => 1,
-	'compatiblebrands' => 1,
 	'compatiblefontname' => 1,
 	'complete' => 1,
 	'compobj' => 1,
@@ -9041,6 +9043,7 @@ my %tagExists = (
 	'editedby' => 1,
 	'editor' => 1,
 	'edittagarray' => 1,
+	'ef' => 1,
 	'effect' => 1,
 	'effectivebw' => 1,
 	'effectstrength' => 1,
@@ -9194,6 +9197,7 @@ my %tagExists = (
 	'extrasamples' => 1,
 	'extraticklocations' => 1,
 	'f-stop' => 1,
+	'f_' => 1,
 	'face1birthday' => 1,
 	'face1category' => 1,
 	'face1name' => 1,
@@ -10361,7 +10365,6 @@ my %tagExists = (
 	'mainboard' => 1,
 	'maininfo' => 1,
 	'maininfoifd' => 1,
-	'majorbrand' => 1,
 	'makeandmodel' => 1,
 	'makemodel' => 1,
 	'makernotepentax5a' => 1,

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

@@ -12,7 +12,7 @@ meta information extracted from or written to a file.
 =head1 TAG TABLES
 
 The tables listed below give the names of all tags recognized by ExifTool.
-They contain a total of 27469 tags, with 17233 unique tag names.
+They contain a total of 27474 tags, with 17233 unique tag names.
 
 B<Tag ID>, B<Index#> or B<Sequence> is given in the first column of each
 table.  A B<Tag ID> is the computer-readable equivalent of a tag name, and
@@ -25405,10 +25405,13 @@ C2PA (Coalition for Content Provenance and Authenticity) CAI (Content
 Authenticity Initiative) JUMBF (JPEG Universal Metadata Box Format) metdata
 is currently extracted from JPEG, PNG, TIFF-based (eg. TIFF, DNG),
 QuickTime-based (eg. MP4, MOV, HEIF, AVIF), RIFF-based (eg. WAV, AVI, WebP),
-GIF files and ID3v2 metadata.  The suggested ExifTool command-line arguments
-for reading C2PA metadata are C<-jumbf:all -G3 -b -j -u -struct>.  This
-metadata may be deleted from writable JPEG, PNG, WebP, TIFF-based, and
-QuickTime-based files by deleting the JUMBF group with C<-jumbf:all=>.
+PDF, SVG and GIF files, and ID3v2 metadata.  The suggested ExifTool
+command-line arguments for reading C2PA metadata are C<-jumbf:all -G3 -b -j
+-u -struct>.  This metadata may be deleted from writable JPEG, PNG, WebP,
+TIFF-based, and QuickTime-based files by deleting the JUMBF group with
+C<-jumbf:all=>.  The C2PA JUMBF metadata may be extracted as a block via the
+JUMBF tag.  See L<https://c2pa.org/specifications/> for the C2PA
+specification.
 
   Tag ID   Tag Name                             Writable
   ------   --------                             --------
@@ -28532,6 +28535,7 @@ This is the PDF document catalog.
 
   Tag ID               Tag Name                 Writable
   ------               --------                 --------
+  'AF'                 AF                       PDF AF
   'AcroForm'           AcroForm                 PDF AcroForm
   'Lang'               Language                 no
   'MarkInfo'           MarkInfo                 PDF MarkInfo
@@ -28542,6 +28546,28 @@ This is the PDF document catalog.
   'Perms'              Perms                    PDF Perms
   'Version'            PDFVersion               no
 
+=head3 PDF AF Tags
+
+Processed only for C2PA information if AFRelationship is "/C2PA_Manifest".
+
+  Tag ID   Tag Name                             Writable
+  ------   --------                             --------
+  'EF'     EF                                   PDF EF
+
+=head3 PDF EF Tags
+
+  Tag ID   Tag Name                             Writable
+  ------   --------                             --------
+  'F'      F_                                   PDF F
+
+=head3 PDF F Tags
+
+C2PA JUMBF metadata extracted from "/C2PA_Manifest" file.
+
+  Tag ID       Tag Name                         Writable
+  ------       --------                         --------
+  '_stream'    JUMBF                            Jpeg2000
+
 =head3 PDF AcroForm Tags
 
   Tag ID       Tag Name                         Writable
@@ -29481,8 +29507,10 @@ changed via the config file.
   'com.android.version' AndroidVersion          yes
   'com.apple.photos.captureMode' CaptureMode    yes
   'comment'     Comment                         yes
+  'compatible_brands' CompatibleBrands          yes/
   'content.identifier' ContentIdentifier        yes
   'copyright'   Copyright                       yes
+  'creation_time' CreationTime                  yes/
   'creationdate' CreationDate                   yes
   'description' Description                     yes
   'detected-face' FaceInfo                      QuickTime FaceInfo
@@ -29514,7 +29542,9 @@ changed via the config file.
   'location.name' LocationName                  yes
   'location.note' LocationNote                  yes
   'location.role' LocationRole                  yes
+  'major_brand' MajorBrand                      yes/
   'make'        Make                            yes
+  'minor_version' MinorVersion                  yes/
   'model'       Model                           yes
   'player.movie.audio.balance' Balance          yes
   'player.movie.audio.bass' Bass                yes
@@ -39544,6 +39574,7 @@ FileName.
   JPEGDigest                 File               no
   JPEGImageLength            File               no
   JPEGQualityEstimate        File               no
+  JUMBF                      JUMBF              no
   MIMEType                   File               no
   MaxVal                     File               no
   NewGUID                    ExifTool           no

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

@@ -128,7 +128,7 @@ sub SaveMakerNotes($)
     delete $$et{MAKER_NOTE_INFO};
     my $dirEntries = $makerInfo->{Entries};
     my $numEntries = scalar(keys %$dirEntries);
-    my $fixup = new Image::ExifTool::Fixup;
+    my $fixup = Image::ExifTool::Fixup->new;
     return unless $numEntries;
     # build the MakerNotes directory
     my $makerNotes = Set16u($numEntries);