exiftool_vendored 12.70.0 → 12.73.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 8660bdc38a746e24a73d1b5a0b167250bce83398c78d24f4a2ef736b9bb7a5a4
-  data.tar.gz: 8fc11e9218cf70d7ab1bf608b39bcd12693aea6c20bdaf3d31907a95ff21b626
+  metadata.gz: 6e4bebb394e40270c3e7794a1c5e269d227a7e41ac88fe231d5b8e04433eb88b
+  data.tar.gz: 781a0260d3d75e23d60b1350d342b7e46af136b39471c673883e2d11dc71152f
 SHA512:
-  metadata.gz: 77b2a89162d45e272bb27aa0481c57ea95fae1e677081aad86976accda1492f622e46d789c39818e4de31b1e1fa8fb951c4687a20ecfe7d5435a98df30b73a19
-  data.tar.gz: 9d59b5179a8b89b99456845bc087b643290efe2bcfddffbed73eb224b7fb7f669a43f1e5c29f60ae60bf3d00ac3142372cee21932c65d321e1868f35fa5e567e
+  metadata.gz: 9d294cedfc656675286e39e782d484fcf2b659e85cc8e445dc17999ca3c656a2f6dd2e241e3b23b1da9cda02ab8c15a064bc0c40d20439c853ccd3e5f6214523
+  data.tar.gz: ce99e91f91e27be93453645e19d3ec3f3206eb7f06b1d610fadd5f0cc4401e1376a8831f3756ceb3d7896651a9ebbbc4bf1f04d6fc09acce47a78191133e0ff3

data/bin/Changes

@@ -7,7 +7,59 @@ RSS feed: https://exiftool.org/rss.xml
 Note: The most recent production release is Version 12.70. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
-Nov. 19, 2023 - Version 12.70 (production release)
+Jan. 10, 2024 - Version 12.73
+
+  - Added write support for Leica XMP-xmpDSA tags
+  - Added read support for timed GPS from Yada RoadCam Pro 4K dashcam videos
+  - Added read support for PNG cpIp chunk
+  - Added range checks on lat/long values when writing QuickTime:GPSCoordinates
+  - Decode a number of new values for Ricoh GR III tags
+  - Decode a new Leica tag
+  - Improved handling of Brotli compression errors
+  - Enhanced API NoWarning option to also apply to app "Warning:" outputs
+  - Identify PNG Plus files
+  - Changed name of Pentax ISOAutoParameters to ISOAutoMinSpeed and improved
+    decoding
+  - Fixed writing of date/time tags in XMP-xmpMM:Pantry structure
+  - API Changes:
+      - Added LimitLongValues option
+
+Dec. 29, 2023 - Version 12.72
+
+  - Added read support for AAC audio files
+  - Added a new QuickTime Keys Android tag
+  - Added a number of new values for some Ricoh GR III tags
+  - Decode timed metadata from Intsa360 Ace Pro MP4 videos
+  - Decode GPSDateTime milliseconds in timed Insta360 metadata
+  - Decode timed metadata from INNOV K5 TS videos
+  - Decode a number of new GoPro timed-metadata tags
+  - Decode a few new Xiaomi EXIF tags
+  - Fixed writing of JPG/ARW images from some newer Sony models to preserve
+    HiddenData
+
+Dec. 21, 2023 - Version 12.71
+
+  - Added a warning if there was an error reading an alternate file with the
+    -fileNUM option
+  - Added the ability to write QuickTime Keys:Encoder
+  - Added a few new Canon LensType values (thanks Norbert Wasser)
+  - Added a new, obscure EXIF tag (thanks Neal Krawetz)
+  - Decode real-time metadata from Ricoh Theta videos
+  - Decode SpecularWhiteLevel for more Canon models (github #232)
+  - Decode Canon DualPixelRaw tag (thanks John Moyer)
+  - Decode a few new Nikon tags (thanks Warren Hatch)
+  - Decode more FujiFilm M-RAW tags (thanks Greybeard)
+  - Improved generation of tag names for some JSON tag ID's containing colons
+  - Fixed "Undefined subroutine" error when writing makernotes as a block
+  - Fixed missing ID in family 7 group name for ID3 tags which are not valid for
+    the specified ID3 version
+  - Fixed bug where some tags from alternate files (with the -fileNUM option)
+    could show up as "not defined" when used in expressions even though they did
+    exist
+  - API Changes:
+      - Added NoMandatory option
+
+Nov. 19, 2023 - Version 12.70 (production release) - "20th Anniversary"
 
   - This marks the 20th anniversary of the initial ExifTool release!
   - Added ability to read/delete C2PA CAI JUMBF metadata from TIFF-based images

data/bin/MANIFEST

@@ -41,6 +41,7 @@ fmt_files/kml_track.fmt
 html/ExifTool.html
 html/MIE1.1-20070121.pdf
 html/Shift.html
+html/TagNames/AAC.html
 html/TagNames/AFCP.html
 html/TagNames/AIFF.html
 html/TagNames/APE.html
@@ -214,6 +215,7 @@ lib/File/RandomAccess.pod
 lib/Image/ExifTool.pm
 lib/Image/ExifTool.pod
 lib/Image/ExifTool/7Z.pm
+lib/Image/ExifTool/AAC.pm
 lib/Image/ExifTool/AES.pm
 lib/Image/ExifTool/AFCP.pm
 lib/Image/ExifTool/AIFF.pm
@@ -441,6 +443,8 @@ lib/Image/ExifTool/ZIP.pm
 lib/Image/ExifTool/ZISRAW.pm
 lib/Image/ExifTool/iWork.pm
 perl-Image-ExifTool.spec
+t/AAC.t
+t/AAC_2.out
 t/AFCP.t
 t/AFCP_2.out
 t/AFCP_3.out
@@ -979,6 +983,7 @@ t/ZIP_7.out
 t/ZIP_8.out
 t/ZISRAW.t
 t/ZISRAW_2.out
+t/images/AAC.aac
 t/images/AFCP.jpg
 t/images/AIFF.aif
 t/images/APE.ape

data/bin/META.json

@@ -50,5 +50,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "12.70"
+   "version" : "12.73"
 }

data/bin/META.yml

@@ -31,4 +31,4 @@ recommends:
   Time::HiRes: 0
 requires:
   perl: 5.004
-version: 12.70
+version: 12.73

data/bin/README

@@ -14,13 +14,14 @@ supported by ExifTool (r = read, w = write, c = create):
 
   File Types
   ------------+-------------+-------------+-------------+------------
-  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
+  360   r/w   | DOCX  r     | ISO   r     | NRW   r/w   | RAR   r
+  3FR   r     | DPX   r     | ITC   r     | NUMBERS r   | RAW   r/w
+  3G2   r/w   | DR4   r/w/c | J2C   r     | O     r     | RIFF  r
+  3GP   r/w   | DSS   r     | JNG   r/w   | ODP   r     | RSRC  r
+  7Z    r     | DV    r     | JP2   r/w   | ODS   r     | RTF   r
+  A     r     | DVB   r/w   | JPEG  r/w   | ODT   r     | RW2   r/w
+  AA    r     | DVR-MS r    | JSON  r     | OFR   r     | RWL   r/w
+  AAC   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
@@ -56,7 +57,6 @@ supported by ExifTool (r = read, w = write, c = create):
   DLL   r     | INSP  r/w   | MXF   r     | RA    r     | XLSX  r
   DNG   r/w   | INSV  r     | NEF   r/w   | RAF   r/w   | XMP   r/w/c
   DOC   r     | INX   r     | NKSC  r/w   | RAM   r     | ZIP   r
-  DOCX  r     | ISO   r     | NRW   r/w   | RAR   r     |
 
   Meta Information
   ----------------------+----------------------+---------------------
@@ -108,8 +108,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-12.70.tar.gz | tar -xf -
-  cd Image-ExifTool-12.70
+  gzip -dc Image-ExifTool-12.73.tar.gz | tar -xf -
+  cd Image-ExifTool-12.73
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 
@@ -166,7 +166,7 @@ for calculating digest values and providing other features listed below:
 
 COPYRIGHT AND LICENSE
 
-Copyright 2003-2023, Phil Harvey
+Copyright 2003-2024, Phil Harvey
 
 This is free software; you can redistribute it and/or modify it under the
 same terms as Perl itself.

data/bin/exiftool

@@ -11,7 +11,7 @@ use strict;
 use warnings;
 require 5.004;
 
-my $version = '12.70';
+my $version = '12.73';
 
 # add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
 my $exePath;
@@ -58,6 +58,7 @@ sub ConvertBinary($);
 sub IsEqual($$);
 sub Infile($;$);
 sub AddSetTagsFile($;$);
+sub Warning($$);
 sub DoSetFromFile($$$);
 sub CleanFilename($);
 sub SetWindowTitle($);
@@ -1642,7 +1643,10 @@ if (@newValues) {
         if ($tag =~ /^(All)?TagsFromFile$/i) {
             defined $newVal or Error("Need file name for -tagsFromFile\n"), next Command;
             ++$isWriting;
-            if ($newVal eq '@' or not defined FilenameSPrintf($newVal)) {
+            if ($newVal eq '@' or not defined FilenameSPrintf($newVal) or
+                # can't set tags yet if we are using tags from other files with the -fileNUM option
+                grep /\bfile\d+:/i, @{$setTags{$newVal}})
+            {
                 push @dynamicFiles, $newVal;
                 next;   # set tags from dynamic file later
             }
@@ -1702,7 +1706,7 @@ if (@newValues) {
         my ($rtn, $wrn) = $mt->SetNewValue($tag, $newVal, %opts);
         $needSave = 1;
         ++$isWriting if $rtn;
-        $wrn and Warn "Warning: $wrn\n";
+        $wrn and Warning($mt, $wrn);
     }
     # exclude specified tags
     foreach (@exclude) {
@@ -2715,7 +2719,7 @@ TAG:    foreach $tag (@foundTags) {
                             $padLen -= $gcstr->columns;
                         } else {
                             $padLen -= length Encode::decode_utf8($desc);
-                            Warn "Warning: Unicode::GCString problem.  Columns may be misaligned\n";
+                            Warning($et, 'Unicode::GCString problem.  Columns may be misaligned');
                             $fixLen = 1;
                         }
                     }
@@ -2985,7 +2989,7 @@ sub SetImageInfo($$$)
         my $newFileName = $et->GetNewValues('FileName');
         my $newDir = $et->GetNewValues('Directory');
         if (defined $newFileName and not length $newFileName) {
-            Warn "Warning: New file name is empty - $ infile\n";
+            Warning($et,"New file name is empty - $infile");
             undef $newFileName;
         }
         if (defined $testName) {
@@ -3644,9 +3648,22 @@ sub Infile($;$)
     return $file;
 }
 
+#------------------------------------------------------------------------------
+# Issue warning to stderr, adding leading "Warning: " and trailing newline
+# if the warning isn't suppressed by the API NoWarning option
+# Inputs: 0) ExifTool ref, 1) warning string
+sub Warning($$)
+{
+    my ($et, $str) = @_;
+    my $noWarn = $et->Options('NoWarning');
+    if (not defined $noWarn or not eval { $str =~ /$noWarn/ }) {
+        Warn "Warning: $str\n";
+    }
+}
+
 #------------------------------------------------------------------------------
 # Set new values from file
-# Inputs: 0) exiftool ref, 1) filename, 2) reference to list of values to set
+# Inputs: 0) ExifTool ref, 1) filename, 2) reference to list of values to set
 # Returns: 0 on error (and increments $countBadWr)
 sub DoSetFromFile($$$)
 {
@@ -3659,19 +3676,18 @@ sub DoSetFromFile($$$)
         # delete all error and warning tags
         my @warns = grep /^(Error|Warning)\b/, keys %$info;
         $numSet -= scalar(@warns);
-        # issue a warning for the main error only if we were able to set some tags
-        if (keys(%$info) > @warns) {
-            my $err = $$info{Error};
-            delete $$info{$_} foreach @warns;
-            $$info{Warning} = $err;
-        }
+        # issue a warning only for the main error
+        my $err = $$info{Error};
+        delete $$info{$_} foreach @warns;
+        my $noWarn = $et->Options('NoWarning');
+        $$info{Warning} = $err unless defined $noWarn and eval { $err =~ /$noWarn/ };
     } elsif ($$info{Warning}) {
         my $warns = 1;
         ++$warns while $$info{"Warning ($warns)"};
         $numSet -= $warns;
     }
     PrintErrors($et, $info, $file) and EFile($file), ++$countBadWr, return 0;
-    Warn "Warning: No writable tags set from $file\n" unless $numSet;
+    Warning($et,"No writable tags set from $file") unless $numSet;
     return 1;
 }
 
@@ -3817,7 +3833,7 @@ sub ScanDir($$;$)
                 if ($evalWarning) {
                     chomp $evalWarning;
                     $evalWarning =~ s/ at .*//s;
-                    Warn "Warning: [Win32::FindFile] $evalWarning - $dir\n";
+                    Warning($et,"[Win32::FindFile] $evalWarning - $dir");
                     $winSurrogate = 1 if $evalWarning =~ /surrogate/;
                 } else {
                     $et->Options(CharsetFileName => 'UTF8');    # now using UTF8
@@ -4628,13 +4644,14 @@ supported by ExifTool (r = read, w = write, c = create):
 
   File Types
   ------------+-------------+-------------+-------------+------------
-  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
+  360   r/w   | DOCX  r     | ISO   r     | NRW   r/w   | RAR   r
+  3FR   r     | DPX   r     | ITC   r     | NUMBERS r   | RAW   r/w
+  3G2   r/w   | DR4   r/w/c | J2C   r     | O     r     | RIFF  r
+  3GP   r/w   | DSS   r     | JNG   r/w   | ODP   r     | RSRC  r
+  7Z    r     | DV    r     | JP2   r/w   | ODS   r     | RTF   r
+  A     r     | DVB   r/w   | JPEG  r/w   | ODT   r     | RW2   r/w
+  AA    r     | DVR-MS r    | JSON  r     | OFR   r     | RWL   r/w
+  AAC   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
@@ -4670,7 +4687,6 @@ supported by ExifTool (r = read, w = write, c = create):
   DLL   r     | INSP  r/w   | MXF   r     | RA    r     | XLSX  r
   DNG   r/w   | INSV  r     | NEF   r/w   | RAF   r/w   | XMP   r/w/c
   DOC   r     | INX   r     | NKSC  r/w   | RAM   r     | ZIP   r
-  DOCX  r     | ISO   r     | NRW   r/w   | RAR   r     |
 
   Meta Information
   ----------------------+----------------------+---------------------
@@ -5440,7 +5456,7 @@ tags specified for the specific SourceFile processed.  The imported JSON
 file must have the same format as the exported JSON files with the exception
 that options exporting JSON objects instead of simple values are not
 compatible with the import file format (ie. export with B<-D>, B<-H>, B<-l>,
-or B<-T> is not compatable, and use B<-G> instead of B<-g>).  Additionally,
+or B<-T> is not compatible, and use B<-G> instead of B<-g>).  Additionally,
 tag names in the input JSON file may be suffixed with a C<#> to disable
 print conversion.
 
@@ -5582,7 +5598,7 @@ with this command:
 
 produces output like this:
 
-    -- Generated by ExifTool 12.70 --
+    -- Generated by ExifTool 12.73 --
     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
@@ -6605,8 +6621,12 @@ 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.
+Subtle note:  If a B<-tagsFromFile> option is used, tags in the I<ALTFILE>
+argument come from the I<SRCFILE> that applies to the first argument
+accessing tags from the corresponding C<FileNUM> group.
+
+User-defined Composite tags may access tags from alternate files using the
+appropriate (case-sensitive) family 8 group name.
 
 =item B<-list_dir>
 
@@ -7447,7 +7467,7 @@ the commands if B<-execute> was used).
 
 =head1 AUTHOR
 
-Copyright 2003-2023, Phil Harvey
+Copyright 2003-2024, Phil Harvey
 
 This is free software; you can redistribute it and/or modify it under the
 same terms as Perl itself.

data/bin/lib/File/RandomAccess.pm

@@ -25,7 +25,7 @@
 #
 #               May also be used for string i/o (just pass a scalar reference)
 #
-# Legal:        Copyright (c) 2003-2023 Phil Harvey (philharvey66 at gmail.com)
+# Legal:        Copyright (c) 2003-2024, 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/File/RandomAccess.pod

@@ -3,7 +3,7 @@
 #
 # Description:  Buffer to support random access reading of sequential file
 #
-# Legal:        Copyright (c) 2003-2023 Phil Harvey (philharvey66 at gmail.com)
+# Legal:        Copyright (c) 2003-2024, 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.
 #------------------------------------------------------------------------------
@@ -236,7 +236,7 @@ the end of file is not allowed.
 
 =head1 AUTHOR
 
-Copyright 2003-2023 Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2024, 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/AAC.pm

@@ -0,0 +1,177 @@
+#------------------------------------------------------------------------------
+# File:         AAC.pm
+#
+# Description:  Read AAC audio files
+#
+# Revisions:    2023-12-29 - P. Harvey Created
+#------------------------------------------------------------------------------
+
+package Image::ExifTool::AAC;
+
+use strict;
+use vars qw($VERSION);
+use Image::ExifTool qw(:DataAccess :Utils);
+use Image::ExifTool::FLAC;
+
+$VERSION = '1.00';
+
+my %convSampleRate = (
+    0 => 96000,  7 => 22050,
+    1 => 88200,  8 => 16000,
+    2 => 64000,  9 => 12000,
+    3 => 48000,  10 => 11025,
+    4 => 44100,  11 => 8000,
+    5 => 32000,  12 => 7350,
+    6 => 24000,
+);
+
+%Image::ExifTool::AAC::Main = (
+    PROCESS_PROC => \&Image::ExifTool::FLAC::ProcessBitStream,
+    GROUPS => { 2 => 'Audio' },
+    NOTES => 'Tags extracted from Advanced Audio Coding (AAC) files.',
+   # Bit000-011 - sync word (all 1's)
+   # Bit012     - ID (seems to be always 0)
+   # Bit013-014 - layer (00)
+   # Bit015     - CRC absent (0=crc exists, 1=no crc)
+    'Bit016-017' => {
+        Name => 'ProfileType',
+        PrintConv => {
+            0 => 'Main',
+            1 => 'Low Complexity',
+            2 => 'Scalable Sampling Rate',
+        },
+    },
+    'Bit018-021' => {
+        Name => 'SampleRate',
+        ValueConv => \%convSampleRate,
+    },
+   # Bit022 - private
+    'Bit023-025' => {
+        Name => 'Channels',
+        PrintConv => {
+            0 => '?',
+            1 => 1,
+            2 => 2,
+            3 => 3,
+            4 => 4,
+            5 => 5,
+            6 => '5+1',
+            7 => '7+1',
+        },
+    },
+   # Bit026 - original/copy
+   # Bit027 - home
+   # Bit028 - copyright ID
+   # Bit029 - copyright start
+   # Bit030-042 - FrameLength
+   # Bit043-053 - buffer fullness
+   # Bit054-055 - BlocksInFrame (minus 1)
+   # Note: Bitrate for frame = FrameLength * 8 * SampleRate / ((BlocksInFrame+1) * 1024)
+   # - but all frames must be scanned to calculate average bitrate
+    Encoder => {
+        Name => 'Encoder',
+        Notes => 'taken from filler payload of first frame',
+    },
+);
+
+#------------------------------------------------------------------------------
+# Read information from an AAC file
+# Inputs: 0) ExifTool object reference, 1) Directory information reference
+# Returns: 1 on success, 0 if this wasn't a valid AAC file
+sub ProcessAAC($$)
+{
+    my ($et, $dirInfo) = @_;
+    my $raf = $$dirInfo{RAF};
+    my ($buff, $buf2);
+
+# format of frame header (7 bytes):
+# SSSS SSSS SSSS ILLC PPRR RRpC CCoh csff ffff ffff fffb bbbb bbbb bbNN
+# 1111 1111 1111 0001 0110 0000 0100 0000 0000 0101 0101 1111 1111 1100 (eg.)
+#  S = sync word                o = original/copy
+#  I = ID                       h = home
+#  L = layer (00)               c = copyright ID
+#  C = CRC absent               s = copyright start
+#  P = profile object type      f = frame length
+#  R = sampling rate index      b = buffer fullness
+#  p = private                  N = number of raw data blocks in frame
+#  C = channel configuration
+
+    $raf->Read($buff, 7) == 7 or return 0;
+    return 0 unless $buff =~ /^\xff[\xf0\xf1]/;
+    my @t = unpack('NnC', $buff);
+    return 0 if (($t[0] >> 16) & 0x03) == 3; # (reserved profile type)
+    return 0 if (($t[0] >> 12) & 0x0f) > 12; # validate sampling frequency index
+    my $len = (($t[0] << 11) & 0x1800) | (($t[1] >> 5) & 0x07ff);
+    return 0 if $len < 7;
+
+    $et->SetFileType();
+
+    my $tagTablePtr = GetTagTable('Image::ExifTool::AAC::Main');
+    $et->ProcessDirectory({ DataPt => \$buff }, $tagTablePtr);
+
+    # read the first frame data to check for a filler with the encoder name
+    while ($len > 8 and $raf->Read($buff, $len-7) == $len-7) {
+        my $noCRC = ($t[0] & 0x00010000);
+        my $blocks = ($t[2] & 0x03);
+        my $pos = 0;
+        $pos += 2 + 2 * $blocks unless $noCRC;
+        last if $pos + 2 > length($buff);
+        my $tmp = unpack("x${pos}n", $buff);
+        my $id = $tmp >> 13;
+        # read filler payload
+        if ($id == 6) {
+            my $cnt = ($tmp >> 9) & 0x0f;
+            ++$pos;
+            if ($cnt == 15) {
+                $cnt += (($tmp >> 1) & 0xff) - 1;
+                ++$pos;
+            }
+            if ($pos + $cnt <= length($buff)) {
+                my $dat = substr($buff, $pos, $cnt);
+                $dat =~ s/^\0+//;
+                $dat =~ s/\0+$//;
+                $et->HandleTag($tagTablePtr, Encoder => $dat) if $dat =~ /^[\x20-\x7e]+$/;
+            }
+        }
+        last;
+    }
+
+    return 1;
+}
+
+1;  # end
+
+__END__
+
+=head1 NAME
+
+Image::ExifTool::AAC - Read AAC audio files
+
+=head1 SYNOPSIS
+
+This module is used by Image::ExifTool
+
+=head1 DESCRIPTION
+
+This module contains definitions required by Image::ExifTool to read
+Advanced Audio Coding (AAC) files.
+
+=head1 NOTES
+
+Since ISO charges money for the official AAC specification, this module is
+based on unofficial sources which may be incomplete, inaccurate or outdated.
+
+=head1 AUTHOR
+
+Copyright 2003-2024, 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.
+
+=head1 SEE ALSO
+
+L<Image::ExifTool::TagNames/AAC Tags>,
+L<Image::ExifTool(3pm)|Image::ExifTool>
+
+=cut
+

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

@@ -477,7 +477,7 @@ main purpose of encryption, so this really can't be considered a bug.
 
 =head1 AUTHOR
 
-Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2024, 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/AFCP.pm

@@ -259,7 +259,7 @@ scanning for AFCP information.
 
 =head1 AUTHOR
 
-Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2024, 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/AIFF.pm

@@ -287,7 +287,7 @@ information from AIFF (Audio Interchange File Format) audio files.
 
 =head1 AUTHOR
 
-Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2024, 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/APE.pm

@@ -263,7 +263,7 @@ Currently doesn't parse MAC header unless it is at the start of the file.
 
 =head1 AUTHOR
 
-Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2024, 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/APP12.pm

@@ -305,7 +305,7 @@ APP12 meta information.
 
 =head1 AUTHOR
 
-Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2024, 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/ASF.pm

@@ -876,7 +876,7 @@ Windows Media Audio (WMA) and Windows Media Video (WMV) files.
 
 =head1 AUTHOR
 
-Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2024, 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/Apple.pm

@@ -343,7 +343,7 @@ Apple maker notes in EXIF information.
 
 =head1 AUTHOR
 
-Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2024, 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/Audible.pm

@@ -291,7 +291,7 @@ information from Audible audio books.
 
 =head1 AUTHOR
 
-Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2024, 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/BMP.pm

@@ -335,7 +335,7 @@ This module contains definitions required by Image::ExifTool to read BMP
 
 =head1 AUTHOR
 
-Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2024, 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/BPG.pm

@@ -231,7 +231,7 @@ This module contains definitions required by Image::ExifTool to read BPG
 
 =head1 AUTHOR
 
-Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2024, 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.