exiftool-vendored.pl 12.60.0 → 12.65.0

package/bin/exiftool

@@ -11,12 +11,13 @@ use strict;
 use warnings;
 require 5.004;
 
-my $version = '12.60';
+my $version = '12.65';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
+my $exePath;
 BEGIN {
     # (undocumented -xpath option added in 11.91, must come before other options)
-    my $exePath = @ARGV && lc($ARGV[0]) eq '-xpath' && shift() ? $^X : $0;
+    $exePath = @ARGV && lc($ARGV[0]) eq '-xpath' && shift() ? $^X : $0;
     # get exe directory
     my $exeDir = ($exePath =~ /(.*)[\\\/]/) ? $1 : '.';
     my $incDir = ($0 =~ /(.*)[\\\/]/) ? "$1/lib" : './lib';
@@ -297,8 +298,11 @@ my @recommends = qw(
     POSIX::strptime
     Time::Local
     Unicode::LineBreak
+    Compress::Raw::Lzma
     IO::Compress::RawDeflate
     IO::Uncompress::RawInflate
+    IO::Compress::Brotli
+    IO::Uncompress::Brotli
     Win32::API
     Win32::FindFile
     Win32API::File
@@ -365,13 +369,14 @@ sub Cleanup() {
 
 # isolate arguments common to all commands
 if (grep /^-common_args$/i, @ARGV) {
-    my (@newArgs, $common);
+    my (@newArgs, $common, $end);
     foreach (@ARGV) {
-        if (/^-common_args$/i) {
+        if (/^-common_args$/i and not $end) {
             $common = 1;
         } elsif ($common) {
             push @commonArgs, $_;
         } else {
+            $end = 1 if $_ eq '--';
             push @newArgs, $_;
         }
     }
@@ -721,6 +726,13 @@ for (;;) {
             print "ExifTool version $version$str$Image::ExifTool::RELEASE\n";
             printf "Perl version %s%s\n", $], (defined ${^UNICODE} ? " (-C${^UNICODE})" : '');
             print "Platform: $^O\n";
+            if ($verbose > 8) {
+                print "Current Dir: " . Cwd::getcwd() . "\n" if (eval { require Cwd });
+                print "Script Name: $0\n";
+                print "Exe Name:    $^X\n";
+                print "Exe Dir:     $Image::ExifTool::exeDir\n";
+                print "Exe Path:    $exePath\n";
+            }
             print "Optional libraries:\n";
             foreach (@recommends) {
                 next if /^Win32/ and $^O ne 'MSWin32';
@@ -802,11 +814,17 @@ for (;;) {
     /^(-?)(a|duplicates)$/i and $mt->Options(Duplicates => ($1 ? 0 : 1)), next;
     if ($a eq 'api') {
         my $opt = shift;
-        defined $opt or Error("Expected OPT[=VAL] argument for -api option\n"), $badCmd=1, next;
-        my $val = ($opt =~ s/=(.*)//s) ? $1 : 1;
-        # empty string means an undefined value unless ^= is used
-        $val = undef unless $opt =~ s/\^$// or length $val;
-        $mt->Options($opt => $val);
+        if (defined $opt and length $opt) {
+            my $val = ($opt =~ s/=(.*)//s) ? $1 : 1;
+            # empty string means an undefined value unless ^= is used
+            $val = undef unless $opt =~ s/\^$// or length $val;
+            $mt->Options($opt => $val);
+        } else {
+            print "Available API Options:\n";
+            my $availableOptions = Image::ExifTool::AvailableOptions();
+            printf("  %-17s - %s\n", $$_[0], $$_[2]) foreach @$availableOptions;
+            $helped = 1;
+        }
         next;
     }
     /^arg(s|format)$/i and $argFormat = 1, next;
@@ -836,7 +854,7 @@ for (;;) {
                 $mt->Options(Charset => $charset);
             }
             if ($evalWarning) {
-                warn $evalWarning;
+                Warn $evalWarning;
             } else {
                 $setCharset = $mt->Options('Charset');
             }
@@ -1464,6 +1482,10 @@ if ($csv and $csv eq 'CSV' and not $isWriting) {
         $binaryOutput = 0;
         $setCharset = 'default' unless defined $setCharset;
     }
+    if (%printFmt) {
+        Warn "The -csv option has no effect when -p is used\n";
+        undef $csv;
+    }
     require Image::ExifTool::XMP if $setCharset;
 }
 
@@ -1737,7 +1759,8 @@ if ($textOut) {
 if ($outOpt) {
     my $type = GetFileType($outOpt);
     if ($type) {
-        unless (CanWrite($type)) {
+        # (must test original file name because we can write .webp but not other RIFF types)
+        unless (CanWrite($outOpt)) {
             Warn "Can't write $type files\n";
             $rtnVal = 1;
             next;
@@ -1951,23 +1974,31 @@ sub GetImageInfo($$)
     my (@foundTags, $info, $file, $ind, $g8);
 
     # set window title for this file if necessary
-    if (defined $windowTitle and $progressCount >= $progressNext) {
-        my $prog = $progressMax ? "$progressCount/$progressMax" : '0/0';
-        my $title = $windowTitle;
-        my ($num, $denom) = split '/', $prog;
-        my $frac = $num / ($denom || 1);
-        my $n = $title =~ s/%(\d+)b/%b/ ? $1 : 20;  # length of bar
-        my $bar = int($frac * $n + 0.5);
-        my %lkup = (
-            b => ('I' x $bar) . ('.' x ($n - $bar)), # (undocumented)
-            f => $orig,
-            p => int(100 * $frac + 0.5),
-            r => $prog,
-           '%'=> '%',
-        );
-        $title =~ s/%([%bfpr])/$lkup{$1}/eg;
-        SetWindowTitle($title);
-        undef $progressNext;
+    if (defined $windowTitle) {
+        if ($progressCount >= $progressNext) {
+            my $prog = $progressMax ? "$progressCount/$progressMax" : '0/0';
+            my $title = $windowTitle;
+            my ($num, $denom) = split '/', $prog;
+            my $frac = $num / ($denom || 1);
+            my $n = $title =~ s/%(\d+)b/%b/ ? $1 : 20;  # length of bar
+            my $bar = int($frac * $n + 0.5);
+            my %lkup = (
+                b => ('I' x $bar) . ('.' x ($n - $bar)),
+                f => $orig,
+                p => int(100 * $frac + 0.5),
+                r => $prog,
+               '%'=> '%',
+            );
+            $title =~ s/%([%bfpr])/$lkup{$1}/eg;
+            SetWindowTitle($title);
+            if (defined $progressMax) {
+                undef $progressNext;
+            } else {
+                $progressNext += $progressIncr;
+            }
+        }
+        # ($progressMax is not defined for "-progress:%f")
+        ++$progressCount unless defined $progressMax;
     }
     unless (length $orig or $outOpt) {
         Warn qq(Error: Zero-length file name - ""\n);
@@ -1993,7 +2024,11 @@ sub GetImageInfo($$)
     }
     # set alternate file names
     foreach $g8 (sort keys %altFile) {
-        my $altName = FilenameSPrintf($altFile{$g8}, $orig);
+        my $altName = $orig;
+        # must double any '$' symbols in the original file name because
+        # they are used for tag names in a -fileNUM argument
+        $altName =~ s/\$/\$\$/g;
+        $altName = FilenameSPrintf($altFile{$g8}, $altName);
         $et->SetAlternateFile($g8, $altName);
     }
 
@@ -2349,7 +2384,7 @@ TAG:    foreach $tag (@foundTags) {
                 next unless defined $val;
                 if ($structOpt and ref $val) {
                     # serialize structure if necessary
-                    $val = Image::ExifTool::XMP::SerializeStruct($val) unless $xml or $json;
+                    $val = Image::ExifTool::XMP::SerializeStruct($et, $val) unless $xml or $json;
                 } elsif (ref $val eq 'ARRAY') {
                     if (defined $listItem) {
                         # take only the specified item
@@ -2498,7 +2533,7 @@ TAG:    foreach $tag (@foundTags) {
                 my $tok = "$group:$tagName";
                 if ($outFormat > 0) {
                     if ($structOpt and ref $val) {
-                        $val = Image::ExifTool::XMP::SerializeStruct($val);
+                        $val = Image::ExifTool::XMP::SerializeStruct($et, $val);
                     }
                     if ($escapeHTML) {
                         $val =~ tr/\0-\x08\x0b\x0c\x0e-\x1f/./;
@@ -2536,6 +2571,7 @@ TAG:    foreach $tag (@foundTags) {
                     $xtra .= " et:table='${table}'";
                     $xtra .= " et:index='${index}'" if defined $index;
                 }
+                # Note: New $xtra attributes must be added to %ignoreEtProp in XMP.pm!
                 my $lastVal = $val;
                 for ($valNum=0; $valNum<2; ++$valNum) {
                     $val = FormatXML($val, $ind, $group);
@@ -2844,7 +2880,7 @@ sub SetImageInfo($$$)
         }
         unless ($isStdout) {
             $outfile = NextUnusedFilename($outfile);
-            if ($et->Exists($outfile) and not $doSetFileName) {
+            if ($et->Exists($outfile, 1) and not $doSetFileName) {
                 Warn "Error: '${outfile}' already exists - $infile\n";
                 EFile($infile);
                 ++$countBadWr;
@@ -2975,7 +3011,7 @@ sub SetImageInfo($$$)
                 $outfile = Image::ExifTool::GetNewFileName(defined $outfile ? $outfile : $file, $newDir);
             }
             $outfile = NextUnusedFilename($outfile, $infile);
-            if ($et->Exists($outfile)) {
+            if ($et->Exists($outfile, 1)) {
                 if ($infile eq $outfile) {
                     undef $outfile;     # not changing the file name after all
                 # (allow for case-insensitive filesystems)
@@ -3700,7 +3736,7 @@ sub ProcessFiles($;$)
         if (defined $progressMax) {
             unless (defined $progressNext) {
                 $progressNext = $progressCount + $progressIncr;
-                $progressNext -= $progressNext % $progressIncr;
+                $progressNext -= $progressNext % $progressIncr; # (show even multiples)
                 $progressNext = $progressMax if $progressNext > $progressMax;
             }
             ++$progressCount;
@@ -4055,6 +4091,8 @@ sub SuggestedExtension($$$)
         $ext = 'dr4';
     } elsif ($$valPt =~ /^(.{10}|.{522})(\x11\x01|\x00\x11)/s) {
         $ext = 'pict';
+    } elsif ($$valPt =~ /^\xff\x0a|\0\0\0\x0cJXL \x0d\x0a......ftypjxl/s) {
+        $ext = 'jxl';
     } else {
         $ext = 'dat';
     }
@@ -4201,7 +4239,7 @@ sub NextUnusedFilename($;$)
         }
         $filename .= substr($fmt, $pos); # add rest of file name
         # return now with filename unless file exists
-        return $filename unless ($mt->Exists($filename) and not defined $usedFileName{$filename}) or $usedFileName{$filename};
+        return $filename unless ($mt->Exists($filename, 1) and not defined $usedFileName{$filename}) or $usedFileName{$filename};
         if (defined $okfile) {
             return $filename if $filename eq $okfile;
             my ($fn, $ok) = (AbsPath($filename), AbsPath($okfile));
@@ -4281,7 +4319,7 @@ sub OpenOutputFile($;@)
             $outfile .= $textOut;
         }
         my $mode = '>';
-        if ($mt->Exists($outfile)) {
+        if ($mt->Exists($outfile, 1)) {
             unless ($textOverwrite) {
                 Warn "Output file $outfile already exists for $file\n";
                 return ();
@@ -4479,7 +4517,7 @@ sub Progress($$)
     my ($file, $msg) = @_;
     if (defined $progStr) {
         print $file $msg, $progStr, "\n";
-        undef $progressNext;
+        undef $progressNext if defined $progressMax;
     }
 }
 
@@ -4590,48 +4628,49 @@ supported by ExifTool (r = read, w = write, c = create):
 
   File Types
   ------------+-------------+-------------+-------------+------------
-  360   r/w   | DPX   r     | ITC   r     | NRW   r/w   | RAM   r
-  3FR   r     | DR4   r/w/c | J2C   r     | NUMBERS r   | RAR   r
-  3G2   r/w   | DSS   r     | JNG   r/w   | O     r     | RAW   r/w
-  3GP   r/w   | DV    r     | JP2   r/w   | ODP   r     | RIFF  r
-  A     r     | DVB   r/w   | JPEG  r/w   | ODS   r     | RSRC  r
-  AA    r     | DVR-MS r    | JSON  r     | ODT   r     | RTF   r
-  AAE   r     | DYLIB r     | JXL   r     | OFR   r     | RW2   r/w
-  AAX   r/w   | EIP   r     | K25   r     | OGG   r     | RWL   r/w
-  ACR   r     | EPS   r/w   | KDC   r     | OGV   r     | RWZ   r
-  AFM   r     | EPUB  r     | KEY   r     | ONP   r     | RM    r
-  AI    r/w   | ERF   r/w   | LA    r     | OPUS  r     | SEQ   r
-  AIFF  r     | EXE   r     | LFP   r     | ORF   r/w   | SKETCH r
-  APE   r     | EXIF  r/w/c | LIF   r     | ORI   r/w   | SO    r
-  ARQ   r/w   | EXR   r     | LNK   r     | OTF   r     | SR2   r/w
-  ARW   r/w   | EXV   r/w/c | LRV   r/w   | PAC   r     | SRF   r
-  ASF   r     | F4A/V r/w   | M2TS  r     | PAGES r     | SRW   r/w
-  AVI   r     | FFF   r/w   | M4A/V r/w   | PBM   r/w   | SVG   r
-  AVIF  r/w   | FITS  r     | MACOS r     | PCD   r     | SWF   r
-  AZW   r     | FLA   r     | MAX   r     | PCX   r     | THM   r/w
-  BMP   r     | FLAC  r     | MEF   r/w   | PDB   r     | TIFF  r/w
-  BPG   r     | FLIF  r/w   | MIE   r/w/c | PDF   r/w   | TORRENT r
-  BTF   r     | FLV   r     | MIFF  r     | PEF   r/w   | TTC   r
-  CHM   r     | FPF   r     | MKA   r     | PFA   r     | TTF   r
-  COS   r     | FPX   r     | MKS   r     | PFB   r     | TXT   r
-  CR2   r/w   | GIF   r/w   | MKV   r     | PFM   r     | VCF   r
-  CR3   r/w   | GPR   r/w   | MNG   r/w   | PGF   r     | VNT   r
-  CRM   r/w   | GZ    r     | MOBI  r     | PGM   r/w   | VRD   r/w/c
-  CRW   r/w   | HDP   r/w   | MODD  r     | PLIST r     | VSD   r
-  CS1   r/w   | HDR   r     | MOI   r     | PICT  r     | WAV   r
-  CSV   r     | HEIC  r/w   | MOS   r/w   | PMP   r     | WDP   r/w
-  CUR   r     | HEIF  r/w   | MOV   r/w   | PNG   r/w   | WEBP  r/w
-  CZI   r     | HTML  r     | MP3   r     | PPM   r/w   | WEBM  r
-  DCM   r     | ICC   r/w/c | MP4   r/w   | PPT   r     | WMA   r
-  DCP   r/w   | ICO   r     | MPC   r     | PPTX  r     | WMV   r
-  DCR   r     | ICS   r     | MPG   r     | PS    r/w   | WTV   r
-  DFONT r     | IDML  r     | MPO   r/w   | PSB   r/w   | WV    r
-  DIVX  r     | IIQ   r/w   | MQV   r/w   | PSD   r/w   | X3F   r/w
-  DJVU  r     | IND   r/w   | MRC   r     | PSP   r     | XCF   r
-  DLL   r     | INSP  r/w   | MRW   r/w   | QTIF  r/w   | XLS   r
-  DNG   r/w   | INSV  r     | MXF   r     | R3D   r     | XLSX  r
-  DOC   r     | INX   r     | NEF   r/w   | RA    r     | XMP   r/w/c
-  DOCX  r     | ISO   r     | NKSC  r/w   | RAF   r/w   | ZIP   r
+  360   r/w   | DPX   r     | ITC   r     | NUMBERS r   | RAW   r/w
+  3FR   r     | DR4   r/w/c | J2C   r     | O     r     | RIFF  r
+  3G2   r/w   | DSS   r     | JNG   r/w   | ODP   r     | RSRC  r
+  3GP   r/w   | DV    r     | JP2   r/w   | ODS   r     | RTF   r
+  7Z    r     | DVB   r/w   | JPEG  r/w   | ODT   r     | RW2   r/w
+  A     r     | DVR-MS r    | JSON  r     | OFR   r     | RWL   r/w
+  AA    r     | DYLIB r     | JXL   r     | OGG   r     | RWZ   r
+  AAE   r     | EIP   r     | K25   r     | OGV   r     | RM    r
+  AAX   r/w   | EPS   r/w   | KDC   r     | ONP   r     | SEQ   r
+  ACR   r     | EPUB  r     | KEY   r     | OPUS  r     | SKETCH r
+  AFM   r     | ERF   r/w   | LA    r     | ORF   r/w   | SO    r
+  AI    r/w   | EXE   r     | LFP   r     | ORI   r/w   | SR2   r/w
+  AIFF  r     | EXIF  r/w/c | LIF   r     | OTF   r     | SRF   r
+  APE   r     | EXR   r     | LNK   r     | PAC   r     | SRW   r/w
+  ARQ   r/w   | EXV   r/w/c | LRV   r/w   | PAGES r     | SVG   r
+  ARW   r/w   | F4A/V r/w   | M2TS  r     | PBM   r/w   | SWF   r
+  ASF   r     | FFF   r/w   | M4A/V r/w   | PCD   r     | THM   r/w
+  AVI   r     | FITS  r     | MACOS r     | PCX   r     | TIFF  r/w
+  AVIF  r/w   | FLA   r     | MAX   r     | PDB   r     | TORRENT r
+  AZW   r     | FLAC  r     | MEF   r/w   | PDF   r/w   | TTC   r
+  BMP   r     | FLIF  r/w   | MIE   r/w/c | PEF   r/w   | TTF   r
+  BPG   r     | FLV   r     | MIFF  r     | PFA   r     | TXT   r
+  BTF   r     | FPF   r     | MKA   r     | PFB   r     | VCF   r
+  CHM   r     | FPX   r     | MKS   r     | PFM   r     | VNT   r
+  COS   r     | GIF   r/w   | MKV   r     | PGF   r     | VRD   r/w/c
+  CR2   r/w   | GLV   r/w   | MNG   r/w   | PGM   r/w   | VSD   r
+  CR3   r/w   | GPR   r/w   | MOBI  r     | PLIST r     | WAV   r
+  CRM   r/w   | GZ    r     | MODD  r     | PICT  r     | WDP   r/w
+  CRW   r/w   | HDP   r/w   | MOI   r     | PMP   r     | WEBP  r/w
+  CS1   r/w   | HDR   r     | MOS   r/w   | PNG   r/w   | WEBM  r
+  CSV   r     | HEIC  r/w   | MOV   r/w   | PPM   r/w   | WMA   r
+  CUR   r     | HEIF  r/w   | MP3   r     | PPT   r     | WMV   r
+  CZI   r     | HTML  r     | MP4   r/w   | PPTX  r     | WPG   r
+  DCM   r     | ICC   r/w/c | MPC   r     | PS    r/w   | WTV   r
+  DCP   r/w   | ICO   r     | MPG   r     | PSB   r/w   | WV    r
+  DCR   r     | ICS   r     | MPO   r/w   | PSD   r/w   | X3F   r/w
+  DFONT r     | IDML  r     | MQV   r/w   | PSP   r     | XCF   r
+  DIVX  r     | IIQ   r/w   | MRC   r     | QTIF  r/w   | XLS   r
+  DJVU  r     | IND   r/w   | MRW   r/w   | R3D   r     | XLSX  r
+  DLL   r     | INSP  r/w   | MXF   r     | RA    r     | XMP   r/w/c
+  DNG   r/w   | INSV  r     | NEF   r/w   | RAF   r/w   | ZIP   r
+  DOC   r     | INX   r     | NKSC  r/w   | RAM   r     |
+  DOCX  r     | ISO   r     | NRW   r/w   | RAR   r     |
 
   Meta Information
   ----------------------+----------------------+---------------------
@@ -4669,7 +4708,7 @@ L<Tag operations|/Tag operations>
   -TAG or --TAG                    Extract or exclude specified tag
   -TAG[+-^]=[VALUE]                Write new value for tag
   -TAG[+-]<=DATFILE                Write tag value from contents of file
-  -TAG[+-]<SRCTAG                  Copy tag value (see -tagsFromFile)
+  -[+]TAG[+-]<SRCTAG               Copy tag value (see -tagsFromFile)
 
   -tagsFromFile SRCFILE            Copy tag values from file
   -x TAG      (-exclude)           Exclude specified tag
@@ -4844,8 +4883,8 @@ for more details).  C<+=> may also be used to increment numerical values (or
 decrement if I<VALUE> is negative), and C<-=> may be used to conditionally
 delete or replace a tag (see L</WRITING EXAMPLES> for examples).  C<^=> is
 used to write an empty string instead of deleting the tag when no I<VALUE>
-is given, but otherwise it is equivalent to C<=>, but note that the caret
-must be quoted on the Windows command line.
+is given, but otherwise it is equivalent to C<=>.  (Note that the caret must
+be quoted on the Windows command line.)
 
 I<TAG> may contain one or more leading family 0, 1, 2 or 7 group names,
 prefixed by optional family numbers, and separated colons.  If no group name
@@ -4911,7 +4950,9 @@ while C<-all:all=> deletes entire blocks.
 5) The "APP" group names ("APP0" through "APP15") are used to delete JPEG
 application segments which are not associated with another deletable group. 
 For example, specifying C<-APP14:All=> will NOT delete the APP14 "Adobe"
-segment because this is accomplished with C<-Adobe:All>.
+segment because this is accomplished with C<-Adobe:All>.  But note that
+these unnamed APP segments may not be excluded with C<--APPxx:all>) when
+deleting all information.
 
 6) When shifting a value, the shift is applied to the original value of the
 tag, overriding any other values previously assigned to the tag on the same
@@ -5541,7 +5582,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 12.60 --
+    -- Generated by ExifTool 12.65 --
     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
@@ -6064,13 +6105,10 @@ newline and C<$$> represents a single C<$> symbol.  So Perl variables, if
 used, require a double C<$>, and regular expressions ending in C<$/> must
 use C<$$/> instead.
 
-4) The condition may only test tags from the file being processed.  To
-process one file based on tags from another, two steps are required.  For
-example, to process XMP sidecar files in directory C<DIR> based on tags from
-the associated NEF:
-
-    exiftool -if EXPR -p '$directory/$filename' -ext nef DIR > nef.txt
-    exiftool -@ nef.txt -srcfile %d%f.xmp ...
+4) The condition accesses only tags from the file being processed unless the
+B<-fileNUM> option is used to read an alternate file and the corresponding
+family 8 group name is specified for the tag.  See the B<-fileNUM> option
+details for more information.
 
 5) The B<-a> option has no effect on the evaluation of the expression, and
 the values of duplicate tags are accessible only by specifying a group name
@@ -6254,10 +6292,12 @@ for EXIF this is the individual IFD (the family 1 group).
 When reading, causes information to be extracted from .gz and .bz2
 compressed images (only one image per archive; requires gzip and bzip2 to be
 available).  When writing, causes compressed information to be written if
-supported by the metadata format (eg. compressed textual metadata in PNG),
-disables the recommended padding in embedded XMP (saving 2424 bytes when
-writing XMP in a file), and writes XMP in shorthand format -- the equivalent
-of setting the API Compress=1 and Compact="NoPadding,Shorthand".
+supported by the metadata format (eg. PNG supports compressed textual
+metadata, JXL supports compressed EXIF and XML, and MIE supports any
+compressed metadata), disables the recommended padding in embedded XMP
+(saving 2424 bytes when writing XMP in a file), and writes XMP in shorthand
+format -- the equivalent of setting the API Compress=1 and
+Compact="NoPadding,Shorthand".
 
 =back
 
@@ -6482,13 +6522,14 @@ load exiftool for each invocation.
 
 =over 5
 
-=item B<-api> I<OPT[[^]=[VAL]]>
+=item B<-api> [I<OPT[[^]=[VAL]]>]
 
 Set ExifTool API option.  I<OPT> is an API option name.  The option value is
 set to 1 if I<=VAL> is omitted.  If I<VAL> is omitted, the option value is
-set to undef if C<=> is used, or an empty string with C<^=>.  See
-L<Image::ExifTool Options|Image::ExifTool/Options> for a list of available
-API options.  This overrides API options set via the config file.
+set to undef if C<=> is used, or an empty string with C<^=>.  If I<OPT> is
+not specified a list of available options is returned.  See
+L<Image::ExifTool Options|Image::ExifTool/Options> for option details.  This
+overrides API options set via the config file.
 
 =item B<-common_args>
 
@@ -6544,11 +6585,22 @@ option no longer suppresses the output "{readyNUM}" message.
 
 =item B<-file>I<NUM> I<ALTFILE>
 
-Read tags from an alternate source file.  These tags are accessed via the
+Read tags from an alternate source file.  Among other things, this allows
+tags from different files to be compared and combined using the B<-if> and
+B<-p> options.  Tags from alternate files are accessed via the corresponding
 family 8 group name (eg. C<File1:TAG> for the B<-file1> option, C<File2:TAG>
-for B<-file2>, etc).  I<ALTFILE> may contain filename formatting codes %d,
-%f and %e.  Among other things, this allows tags from different files to be
-compared and combined using the B<-if> and B<-p> options.
+for B<-file2>, etc).  I<ALTFILE> may contain filename formatting codes like
+the B<-w> option (%d, %f, etc), and/or tag names with a leading C<$> symbol
+to access tags from the source file in the same way as the B<-p> option (so
+any other dollar symbol in the file name must be doubled, eg.
+C<money$$.jpg>).  For example, assuming that the OriginalFileName tag has
+been set in the edited file, a command to copy Rights from the original file
+could look like this:
+
+    exiftool -file1 '$originalfilename' '-rights<file1:rights' edited.jpg
+
+Composite tags may access tags from alternate files using the appropriate
+(case-sensitive) family 8 group name.
 
 =item B<-list_dir>
 
@@ -6731,6 +6783,14 @@ rewritten unnecessarily:
 
 Note that function names are case sensitive.
 
+ExifTool 12.64 adds an API NoDups option which makes the NoDups helper
+function largely redundant, with all the functionality except the ability to
+avoid rewriting the file if there are no duplicates, but with the advantage
+the duplicates may be removed when accumulating list items from multiple
+sources.  An equivalent to the above commands using this feature would be:
+
+    exiftool -tagsfromfile @ -keywords -api nodups a.jpg
+
 =head1 WINDOWS UNICODE FILE NAMES
 
 In Windows, command-line arguments are specified using the current code page