exiftool-vendored.exe 12.72.0 → 12.76.0

package/bin/exiftool_files/lib/File/RandomAccess.pm

@@ -17,6 +17,7 @@
 #                            scalar with a multi-character newline
 #               01/24/2009 - PH Protect against reading too much at once
 #               10/04/2018 - PH Added NoBuffer option
+#               01/20/2024 - PH Set ERROR on file read error
 #
 # Notes:        Calls the normal file i/o routines unless SeekTest() fails, in
 #               which case the file is buffered in memory to allow random access.
@@ -25,7 +26,10 @@
 #
 #               May also be used for string i/o (just pass a scalar reference)
 #
-# Legal:        Copyright (c) 2003-2023 Phil Harvey (philharvey66 at gmail.com)
+#               Sets internal ERROR member from $! if there is an error reading
+#               the file.
+#
+# 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.
 #------------------------------------------------------------------------------
@@ -37,7 +41,7 @@ require 5.002;
 require Exporter;
 
 use vars qw($VERSION @ISA @EXPORT_OK);
-$VERSION = '1.11';
+$VERSION = '1.12';
 @ISA = qw(Exporter);
 
 sub Read($$$);
@@ -211,6 +215,8 @@ sub Read($$$)
             if ($num) {
                 ${$self->{BUFF_PT}} .= $buff;
                 $self->{LEN} += $num;
+            } elsif (not defined $num) {
+                $self->{ERROR} = $!;
             }
         }
         # number of bytes left in data buffer
@@ -229,7 +235,11 @@ sub Read($$$)
     } else {
         # read directly from file
         $_[0] = '' unless defined $_[0];
-        $rtnVal = read($self->{FILE_PT}, $_[0], $len) || 0;
+        $rtnVal = read($self->{FILE_PT}, $_[0], $len);
+        unless (defined $rtnVal) {
+            $self->{ERROR} = $!;
+            $rtnVal = 0;
+        }
     }
     if ($self->{DEBUG}) {
         my $pos = $self->Tell() - $rtnVal;
@@ -258,7 +268,10 @@ sub ReadLine($$)
             # make sure we have some data after the current position
             while ($self->{LEN} <= $pos) {
                 $num = read($fp, $buff, $CHUNK_SIZE);
-                return 0 unless $num;
+                unless ($num) {
+                    defined $num or $self->{ERROR} = $!;
+                    return 0;
+                }
                 ${$self->{BUFF_PT}} .= $buff;
                 $self->{LEN} += $num;
             }
@@ -270,7 +283,11 @@ sub ReadLine($$)
                     last;
                 }
                 $pos = $self->{LEN};    # have scanned to end of buffer
-                $num = read($fp, $buff, $CHUNK_SIZE) or last;
+                $num = read($fp, $buff, $CHUNK_SIZE);
+                unless ($num) {
+                    defined $num or $self->{ERROR} = $!;
+                    last;
+                }
                 ${$self->{BUFF_PT}} .= $buff;
                 $self->{LEN} += $num;
             }
@@ -314,7 +331,12 @@ sub Slurp($)
     my $fp = $self->{FILE_PT} || return;
     # read whole file into buffer (in large chunks)
     my ($buff, $num);
-    while (($num = read($fp, $buff, $CHUNK_SIZE * $SLURP_CHUNKS)) != 0) {
+    for (;;) {
+        $num = read($fp, $buff, $CHUNK_SIZE * $SLURP_CHUNKS);
+        unless ($num) {
+            defined $num or $self->{ERROR} = $!;
+            last;
+        }
         ${$self->{BUFF_PT}} .= $buff;
         $self->{LEN} += $num;
     }
@@ -339,6 +361,10 @@ sub Purge($)
                 $self->{POS} -= $self->{LEN};
                 ${$self->{BUFF_PT}} = '';
                 $self->{LEN} = read($self->{FILE_PT}, ${$self->{BUFF_PT}}, $SKIP_SIZE);
+                if (not defined $self->{LEN}) {
+                    $self->{ERROR} = $!;
+                    last;
+                }
                 last if $self->{LEN} < $SKIP_SIZE;
             }
         } elsif ($purge > 0) {

package/bin/exiftool_files/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.
 #------------------------------------------------------------------------------
@@ -16,9 +16,9 @@ File::RandomAccess - Random access reads of sequential file or scalar
 
     use File::RandomAccess;
 
-    $raf = new File::RandomAccess(\*FILE, $disableSeekTest);
+    $raf = File::RandomAccess->new(\*FILE, $disableSeekTest);
 
-    $raf = new File::RandomAccess(\$data);
+    $raf = File::RandomAccess->new(\$data);
 
     $err = $raf->Seek($pos);
     $num = $raf->Read($buff, $bytes);
@@ -38,10 +38,10 @@ Creates a new RandomAccess object given a file reference or
 reference to data in memory.
 
     # Read from open file or pipe
-    $raf = new File::RandomAccess(\*FILE);
+    $raf = File::RandomAccess->new(\*FILE);
 
     # Read from data in memory
-    $raf = new File::RandomAccess(\$data);
+    $raf = File::RandomAccess->new(\$data);
 
 =over 4
 
@@ -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.

package/bin/exiftool_files/lib/Image/ExifTool/7Z.pm

@@ -15,7 +15,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.00';
+$VERSION = '1.01';
 
 sub ReadUInt32 {
     my $buff;
@@ -569,7 +569,7 @@ sub ReadFilesInfo {
             next;
         }
         $_[0]->Read($buff, $size);
-        my $buffer = new File::RandomAccess(\$buff);
+        my $buffer = File::RandomAccess->new(\$buff);
         if($prop == 14){  # empty stream
             my @isempty = ReadBoolean($buffer, $numfiles, 0);
             my $numemptystreams = 0;
@@ -732,7 +732,7 @@ sub Process7Z($$)
                 $folder_data .= Decompress($et, $raf, $decomporessor, $remaining);
                 $remaining = $uncompressed_size - length($folder_data);
             }
-            $buffer2 = new File::RandomAccess(\$folder_data);
+            $buffer2 = File::RandomAccess->new(\$folder_data);
         }
         $buffer2->Seek(0, 0);
         $buffer2->Read($buff, 1);

package/bin/exiftool_files/lib/Image/ExifTool/AAC.pm

@@ -28,6 +28,7 @@ my %convSampleRate = (
 %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)
@@ -109,7 +110,7 @@ sub ProcessAAC($$)
     $et->ProcessDirectory({ DataPt => \$buff }, $tagTablePtr);
 
     # read the first frame data to check for a filler with the encoder name
-    if ($len > 8 and $raf->Read($buff, $len-7) == $len-7) {
+    while ($len > 8 and $raf->Read($buff, $len-7) == $len-7) {
         my $noCRC = ($t[0] & 0x00010000);
         my $blocks = ($t[2] & 0x03);
         my $pos = 0;
@@ -122,16 +123,17 @@ sub ProcessAAC($$)
             my $cnt = ($tmp >> 9) & 0x0f;
             ++$pos;
             if ($cnt == 15) {
-                $cnt += (($tmp >> 1) & 0xff) - 1 if $cnt == 15;
+                $cnt += (($tmp >> 1) & 0xff) - 1;
                 ++$pos;
             }
-            if ($pos + $cnt < length($buff)) {
+            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;
@@ -151,8 +153,8 @@ This module is used by Image::ExifTool
 
 =head1 DESCRIPTION
 
-This module contains definitions required by Image::ExifTool to read AAC
-audio files.
+This module contains definitions required by Image::ExifTool to read
+Advanced Audio Coding (AAC) files.
 
 =head1 NOTES
 
@@ -161,7 +163,7 @@ based on unofficial sources which may be incomplete, inaccurate or outdated.
 
 =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.

package/bin/exiftool_files/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.

package/bin/exiftool_files/lib/Image/ExifTool/AFCP.pm

@@ -14,7 +14,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.08';
+$VERSION = '1.09';
 
 sub ProcessAFCP($$);
 
@@ -134,7 +134,7 @@ NoAFCP: for (;;) {
             $dirBuff = $valBuff = '';
             require Image::ExifTool::Fixup;
             $fixup = $$dirInfo{Fixup};
-            $fixup or $fixup = $$dirInfo{Fixup} = new Image::ExifTool::Fixup;
+            $fixup or $fixup = $$dirInfo{Fixup} = Image::ExifTool::Fixup->new;
             $vers = substr($buff, 4, 2); # get version number
         } else {
             $et->DumpTrailer($dirInfo) if $verbose or $$et{HTML_DUMP};
@@ -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.

package/bin/exiftool_files/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.

package/bin/exiftool_files/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.

package/bin/exiftool_files/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.

package/bin/exiftool_files/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.

package/bin/exiftool_files/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.

package/bin/exiftool_files/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.

package/bin/exiftool_files/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.

package/bin/exiftool_files/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.

package/bin/exiftool_files/lib/Image/ExifTool/BZZ.pm

@@ -19,7 +19,7 @@ use integer;    # IMPORTANT!!  use integer arithmetic throughout
 require Exporter;
 use vars qw($VERSION @ISA @EXPORT_OK);
 
-$VERSION = '1.00';
+$VERSION = '1.01';
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(Decode);
 
@@ -196,7 +196,7 @@ sub Decode($;$)
     if (ref $_[0] and UNIVERSAL::isa($_[0],'Image::ExifTool::BZZ')) {
         $self = shift;
     } else {
-        $self = new Image::ExifTool::BZZ;
+        $self = Image::ExifTool::BZZ->new;
     }
     my $dataPt = shift;
     if ($dataPt) {
@@ -445,7 +445,7 @@ compression ability).
 
 =head1 AUTHOR
 
-Copyright 2003-2023, Phil Harvey (philharvey66 at gmail.com)
+Copyright 2003-2024, Phil Harvey (philharvey66 at gmail.com)
 Copyright 2002, Leon Bottou and Yann Le Cun
 Copyright 2001, AT&T
 Copyright 1999-2001, LizardTech Inc.

package/bin/exiftool_files/lib/Image/ExifTool/BigTIFF.pm

@@ -282,7 +282,7 @@ information in BigTIFF images.
 
 =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.

package/bin/exiftool_files/lib/Image/ExifTool/BuildTagLookup.pm

@@ -35,7 +35,7 @@ use Image::ExifTool::Sony;
 use Image::ExifTool::Validate;
 use Image::ExifTool::MacOS;
 
-$VERSION = '3.52';
+$VERSION = '3.54';
 @ISA = qw(Exporter);
 
 sub NumbersFirst($$);
@@ -680,7 +680,7 @@ L<Image::ExifTool::BuildTagLookup|Image::ExifTool::BuildTagLookup>.
 
 ~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.
@@ -797,7 +797,7 @@ sub new
     }
 
     my $tableNum = 0;
-    my $et = new Image::ExifTool;
+    my $et = Image::ExifTool->new;
     my ($tableName, $tag);
     # create lookup for short table names
     foreach $tableName (@tableNames) {
@@ -1642,7 +1642,7 @@ sub WriteTagLookup($$)
                     } else {
                         my $quot = "'";
                         # escape non-printable characters in tag ID if necessary
-                        $quot = '"' if s/[\x00-\x1f,\x7f-\xff]/sprintf('\\x%.2x',ord($&))/ge;
+                        $quot = '"' if s/([\x00-\x1f,\x7f-\xff])/sprintf('\\x%.2x',ord($1))/ge;
                         $_ = $quot . $_ . $quot;
                     }
                 }
@@ -1655,7 +1655,7 @@ sub WriteTagLookup($$)
             } else {
                 my $quot = "'";
                 # escape non-printable characters in tag ID if necessary
-                $quot = '"' if $tagID =~ s/[\x00-\x1f,\x7f-\xff]/sprintf('\\x%.2x',ord($&))/ge;
+                $quot = '"' if $tagID =~ s/([\x00-\x1f,\x7f-\xff])/sprintf('\\x%.2x',ord($1))/ge;
                 $entry = "$quot${tagID}$quot";
             }
             my $wrNum = $wrNum{$tableNum};
@@ -1727,12 +1727,12 @@ sub WriteTagLookup($$)
 }
 
 #------------------------------------------------------------------------------
-# Sort numbers first numerically, then strings alphabetically (case insensitive)
+# Sort numbers first numerically, then strings alphabetically
+# - case-insensitive sorting set by global variable $caseInsensitive
 # - two global variables are used to change the sort algorithm:
 #   $numbersFirst: -1 = put numbers after other strings
 #                   1 = put numbers before other strings
 #                   2 = put numbers first, but negative numbers last
-#   $caseInsensitive: flag set for case-insensitive sorting
 sub NumbersFirst($$)
 {
     my ($a, $b) = @_;
@@ -2742,7 +2742,7 @@ validation and consistency checks on the tag tables.
 
   use Image::ExifTool::BuildTagLookup;
 
-  $builder = new Image::ExifTool::BuildTagLookup;
+  $builder = Image::ExifTool::BuildTagLookup->new;
 
   # update Image::ExifTool::TagLookup
   $ok = $builder->WriteTagLookup('lib/Image/ExifTool/TagLookup.pm');
@@ -2780,7 +2780,7 @@ Returned list of writable pseudo tags.
 
 =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.

package/bin/exiftool_files/lib/Image/ExifTool/CBOR.pm

@@ -321,7 +321,7 @@ specification.
 
 =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.

package/bin/exiftool_files/lib/Image/ExifTool/Canon.pm

@@ -88,7 +88,7 @@ sub ProcessCTMD($$$);
 sub ProcessExifInfo($$$);
 sub SwapWords($);
 
-$VERSION = '4.72';
+$VERSION = '4.73';
 
 # Note: Removed 'USM' from 'L' lenses since it is redundant - PH
 # (or is it?  Ref 32 shows 5 non-USM L-type lenses)
@@ -1394,7 +1394,7 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
         },
         {
             Name => 'CanonCameraInfoR6',
-            Condition => '$$self{Model} =~ /\bEOS R6$/',
+            Condition => '$$self{Model} =~ /\bEOS R[56]$/',
             SubDirectory => { TagTable => 'Image::ExifTool::Canon::CameraInfoR6' },
         },
         {
@@ -2206,8 +2206,9 @@ my %offOn = ( 0 => 'Off', 1 => 'On' );
             6 => 'Manual Focus (6)',
            16 => 'Pan Focus', #PH
            # 137 - Single?
-           256 => 'AF + MF', #PH (NC, EOS M)
-           257 => 'Live View', #forum12082
+           256 => 'One-shot AF (Live View)', #PH/forum15637
+           257 => 'AI Servo AF (Live View)', #PH/forum15637
+           258 => 'AI Focus AF (Live View)', #PH/forum15637
            512 => 'Movie Snap Focus', #48
            519 => 'Movie Servo AF', #PH (NC, EOS M)
         },
@@ -4714,7 +4715,7 @@ my %ciMaxFocal = (
     PRIORITY => 0,
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
     NOTES => 'CameraInfo tags for the EOS R6.',
-    0x0af1 => { #forum15210
+    0x0af1 => { #forum15210/15579
         Name => 'ShutterCount',
         Format => 'int32u',
         Notes => 'includes electronic + mechanical shutter',
@@ -10321,7 +10322,7 @@ Canon 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.

package/bin/exiftool_files/lib/Image/ExifTool/CanonCustom.pm

@@ -2873,7 +2873,7 @@ Image::ExifTool to read this 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.

package/bin/exiftool_files/lib/Image/ExifTool/CanonRaw.pm

@@ -888,7 +888,7 @@ tags.)
 
 =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.

package/bin/exiftool_files/lib/Image/ExifTool/CanonVRD.pm

@@ -23,7 +23,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Canon;
 
-$VERSION = '1.36';
+$VERSION = '1.37';
 
 sub ProcessCanonVRD($$;$);
 sub WriteCanonVRD($$;$);
@@ -2011,7 +2011,7 @@ sub ProcessCanonVRD($$;$)
             $verbose and print $out "  Creating CanonVRD trailer\n";
             $created = 1;
         }
-        $raf = new File::RandomAccess($dataPt);
+        $raf = File::RandomAccess->new($dataPt);
     }
     # read and validate the footer
     $raf->Seek(-0x40-$offset, 2)    or return 0;
@@ -2266,7 +2266,7 @@ files, and as a trailer in JPEG, CRW, CR2 and TIFF images.
 
 =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.

package/bin/exiftool_files/lib/Image/ExifTool/CaptureOne.pm

@@ -221,7 +221,7 @@ settings files (COS).
 
 =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.

package/bin/exiftool_files/lib/Image/ExifTool/Casio.pm

@@ -2034,7 +2034,7 @@ Casio 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.

package/bin/exiftool_files/lib/Image/ExifTool/Charset.pm

@@ -422,7 +422,7 @@ when decoding certain types of 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.

package/bin/exiftool_files/lib/Image/ExifTool/DICOM.pm

@@ -20,7 +20,7 @@ use strict;
 use vars qw($VERSION %uid);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.22';
+$VERSION = '1.23';
 
 # DICOM VR (Value Representation) format conversions
 my %dicomFormat = (
@@ -3668,7 +3668,7 @@ sub ProcessDICOM($$)
                         }
                         last if length $data < 8;
                         # create new RAF object from inflated data stream
-                        $raf = new File::RandomAccess(\$data);
+                        $raf = File::RandomAccess->new(\$data);
                         # re-read start of stream (now decompressed)
                         $raf->Read($buff, 8) == 8 or last;
                         $group = Get16u(\$buff, 0);
@@ -3853,7 +3853,7 @@ No translation of special characters sets is done.
 
 =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.

package/bin/exiftool_files/lib/Image/ExifTool/DJI.pm

@@ -237,7 +237,7 @@ the maker notes in images from some DJI Phantom drones.
 
 =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.