exiftool-vendored.exe 12.82.0 → 12.82.1

package/bin/exiftool_files/lib/IO/Uncompress/Brotli.pm

@@ -0,0 +1,119 @@
+package IO::Uncompress::Brotli;
+
+use 5.014000;
+use strict;
+use warnings;
+use parent qw/Exporter/;
+
+our @EXPORT = qw/unbro/;
+our @EXPORT_OK = @EXPORT;
+
+our $VERSION = '0.004001';
+
+require XSLoader;
+XSLoader::load('IO::Compress::Brotli', $VERSION);
+
+1;
+__END__
+
+=encoding utf-8
+
+=head1 NAME
+
+IO::Uncompress::Brotli - Read Brotli buffers/streams
+
+=head1 SYNOPSIS
+
+  use IO::Uncompress::Brotli;
+
+  # uncompress a buffer (yielding at most 10MB)
+  my $decoded = unbro $encoded, 10_000_000;
+
+  # uncompress a stream
+  my $bro = IO::Uncompress::Brotli->create;
+  while(have_input()) {
+     my $block = get_input_block();
+     my $decoded_block = $bro->decompress($block);
+     handle_output_block($decoded_block);
+  }
+
+=head1 DESCRIPTION
+
+IO::Uncompress::Brotli is a module that decompresses Brotli buffers
+and streams. Despite its name, it is not a subclass of
+L<IO::Uncompress::Base> and does not implement its interface. This
+will be rectified in a future release.
+
+=head2 One-shot interface
+
+If you have the whole buffer in a Perl scalar use the B<unbro>
+function.
+
+=over
+
+=item B<unbro>(I<$input>, I<$maximum_decoded_size>)
+
+Takes a whole compressed buffer as input and returns the decompressed
+data. It allocates a buffer of size I<$maximum_decoded_size> to store
+the decompressed data, if this is not sufficient (or there is another
+error) this function will croak.
+
+Exported by default.
+
+=back
+
+=head2 Streaming interface
+
+If you want to process the data in blocks use the object oriented
+interface. The available methods are:
+
+=over
+
+=item IO::Uncompress::Brotli->B<create>
+
+Returns a IO::Uncompress::Brotli instance. Please note that a single
+instance cannot be used to decompress multiple streams.
+
+=item $bro->B<decompress>(I<$block>)
+
+Takes the a block of compressed data and returns a block of
+uncompressed data. Dies on error.
+
+=back
+
+=head1 SEE ALSO
+
+Brotli Compressed Data Format Internet-Draft:
+L<https://www.ietf.org/id/draft-alakuijala-brotli-08.txt>
+
+Brotli source code: L<https://github.com/google/brotli/>
+
+=head1 AUTHOR
+
+Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
+
+The encoder bindings, modernisation of the decoder bindings and a
+clean up of the overall project were contributed by:
+
+=over
+
+=item Quim Rovira, E<lt>quim@rovira.catE<gt>
+
+=item Ævar Arnfjörð Bjarmason, E<lt>avarab@gmail.comE<gt>
+
+=item Marcell Szathmári
+
+=item Mattia Barbon, E<lt>mattia@barbon.orgE<gt>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2015-2018 by Marius Gavrilescu
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself, either Perl version 5.20.2 or,
+at your option, any later version of Perl 5 you may have available.
+
+
+=cut

package/bin/exiftool_files/lib/IO/Uncompress/Gunzip.pm

@@ -9,12 +9,12 @@ use strict ;
 use warnings;
 use bytes;
 
-use IO::Uncompress::RawInflate 2.086 ;
+use IO::Uncompress::RawInflate 2.100 ;
 
-use Compress::Raw::Zlib 2.086 () ;
-use IO::Compress::Base::Common 2.086 qw(:Status );
-use IO::Compress::Gzip::Constants 2.086 ;
-use IO::Compress::Zlib::Extra 2.086 ;
+use Compress::Raw::Zlib 2.100 () ;
+use IO::Compress::Base::Common 2.100 qw(:Status );
+use IO::Compress::Gzip::Constants 2.100 ;
+use IO::Compress::Zlib::Extra 2.100 ;
 
 require Exporter ;
 
@@ -28,7 +28,7 @@ Exporter::export_ok_tags('all');
 
 $GunzipError = '';
 
-$VERSION = '2.086';
+$VERSION = '2.100';
 
 sub new
 {
@@ -70,9 +70,9 @@ sub ckMagic
 
     *$self->{HeaderPending} = $magic ;
 
-    return $self->HeaderError("Minimum header size is " . 
-                              GZIP_MIN_HEADER_SIZE . " bytes") 
-        if length $magic != GZIP_ID_SIZE ;                                    
+    return $self->HeaderError("Minimum header size is " .
+                              GZIP_MIN_HEADER_SIZE . " bytes")
+        if length $magic != GZIP_ID_SIZE ;
 
     return $self->HeaderError("Bad Magic")
         if ! isGzipMagic($magic) ;
@@ -95,10 +95,10 @@ sub chkTrailer
     my $self = shift;
     my $trailer = shift;
 
-    # Check CRC & ISIZE 
+    # Check CRC & ISIZE
     my ($CRC32, $ISIZE) = unpack("V V", $trailer) ;
-    *$self->{Info}{CRC32} = $CRC32;    
-    *$self->{Info}{ISIZE} = $ISIZE;    
+    *$self->{Info}{CRC32} = $CRC32;
+    *$self->{Info}{ISIZE} = $ISIZE;
 
     if (*$self->{Strict}) {
         return $self->TrailerError("CRC mismatch")
@@ -130,9 +130,9 @@ sub _readFullGzipHeader($)
 
     *$self->{HeaderPending} = $magic ;
 
-    return $self->HeaderError("Minimum header size is " . 
-                              GZIP_MIN_HEADER_SIZE . " bytes") 
-        if length $magic != GZIP_ID_SIZE ;                                    
+    return $self->HeaderError("Minimum header size is " .
+                              GZIP_MIN_HEADER_SIZE . " bytes")
+        if length $magic != GZIP_ID_SIZE ;
 
 
     return $self->HeaderError("Bad Magic")
@@ -150,7 +150,7 @@ sub _readGzipHeader($)
     my ($buffer) = '' ;
 
     $self->smartReadExact(\$buffer, GZIP_MIN_HEADER_SIZE - GZIP_ID_SIZE)
-        or return $self->HeaderError("Minimum header size is " . 
+        or return $self->HeaderError("Minimum header size is " .
                                      GZIP_MIN_HEADER_SIZE . " bytes") ;
 
     my $keep = $magic . $buffer ;
@@ -159,22 +159,22 @@ sub _readGzipHeader($)
     # now split out the various parts
     my ($cm, $flag, $mtime, $xfl, $os) = unpack("C C V C C", $buffer) ;
 
-    $cm == GZIP_CM_DEFLATED 
+    $cm == GZIP_CM_DEFLATED
         or return $self->HeaderError("Not Deflate (CM is $cm)") ;
 
     # check for use of reserved bits
     return $self->HeaderError("Use of Reserved Bits in FLG field.")
-        if $flag & GZIP_FLG_RESERVED ; 
+        if $flag & GZIP_FLG_RESERVED ;
 
     my $EXTRA ;
     my @EXTRA = () ;
     if ($flag & GZIP_FLG_FEXTRA) {
         $EXTRA = "" ;
-        $self->smartReadExact(\$buffer, GZIP_FEXTRA_HEADER_SIZE) 
+        $self->smartReadExact(\$buffer, GZIP_FEXTRA_HEADER_SIZE)
             or return $self->TruncatedHeader("FEXTRA Length") ;
 
         my ($XLEN) = unpack("v", $buffer) ;
-        $self->smartReadExact(\$EXTRA, $XLEN) 
+        $self->smartReadExact(\$EXTRA, $XLEN)
             or return $self->TruncatedHeader("FEXTRA Body");
         $keep .= $buffer . $EXTRA ;
 
@@ -190,10 +190,10 @@ sub _readGzipHeader($)
     if ($flag & GZIP_FLG_FNAME) {
         $origname = "" ;
         while (1) {
-            $self->smartReadExact(\$buffer, 1) 
+            $self->smartReadExact(\$buffer, 1)
                 or return $self->TruncatedHeader("FNAME");
             last if $buffer eq GZIP_NULL_BYTE ;
-            $origname .= $buffer 
+            $origname .= $buffer
         }
         $keep .= $origname . GZIP_NULL_BYTE ;
 
@@ -205,10 +205,10 @@ sub _readGzipHeader($)
     if ($flag & GZIP_FLG_FCOMMENT) {
         $comment = "";
         while (1) {
-            $self->smartReadExact(\$buffer, 1) 
+            $self->smartReadExact(\$buffer, 1)
                 or return $self->TruncatedHeader("FCOMMENT");
             last if $buffer eq GZIP_NULL_BYTE ;
-            $comment .= $buffer 
+            $comment .= $buffer
         }
         $keep .= $comment . GZIP_NULL_BYTE ;
 
@@ -217,7 +217,7 @@ sub _readGzipHeader($)
     }
 
     if ($flag & GZIP_FLG_FHCRC) {
-        $self->smartReadExact(\$buffer, GZIP_FHCRC_SIZE) 
+        $self->smartReadExact(\$buffer, GZIP_FHCRC_SIZE)
             or return $self->TruncatedHeader("FHCRC");
 
         $HeaderCRC = unpack("v", $buffer) ;
@@ -254,7 +254,7 @@ sub _readGzipHeader($)
         'Comment'       => $comment,
         'Time'          => $mtime,
         'OsID'          => $os,
-        'OsName'        => defined $GZIP_OS_Names{$os} 
+        'OsName'        => defined $GZIP_OS_Names{$os}
                                  ? $GZIP_OS_Names{$os} : "Unknown",
         'HeaderCRC'     => $HeaderCRC,
         'Flags'         => $flag,
@@ -286,7 +286,7 @@ IO::Uncompress::Gunzip - Read RFC 1952 files/buffers
     my $status = gunzip $input => $output [,OPTS]
         or die "gunzip failed: $GunzipError\n";
 
-    my $z = new IO::Uncompress::Gunzip $input [OPTS]
+    my $z = IO::Uncompress::Gunzip->new( $input [OPTS] )
         or die "gunzip failed: $GunzipError\n";
 
     $status = $z->read($buffer)
@@ -348,7 +348,8 @@ The functional interface needs Perl5.005 or better.
 =head2 gunzip $input_filename_or_reference => $output_filename_or_reference [, OPTS]
 
 C<gunzip> expects at least two parameters,
-C<$input_filename_or_reference> and C<$output_filename_or_reference>.
+C<$input_filename_or_reference> and C<$output_filename_or_reference>
+and zero or more optional parameters (see L</Optional Parameters>)
 
 =head3 The C<$input_filename_or_reference> parameter
 
@@ -361,7 +362,7 @@ It can take one of the following forms:
 
 =item A filename
 
-If the <$input_filename_or_reference> parameter is a simple scalar, it is
+If the C<$input_filename_or_reference> parameter is a simple scalar, it is
 assumed to be a filename. This file will be opened for reading and the
 input data will be read from it.
 
@@ -458,9 +459,9 @@ files/buffers.
 
 =head2 Optional Parameters
 
-Unless specified below, the optional parameters for C<gunzip>,
-C<OPTS>, are the same as those used with the OO interface defined in the
-L</"Constructor Options"> section below.
+The optional parameters for the one-shot function C<gunzip>
+are (for the most part) identical to those used with the OO interface defined in the
+L</"Constructor Options"> section. The exceptions are listed below
 
 =over 5
 
@@ -578,7 +579,7 @@ uncompressed data to a buffer, C<$buffer>.
     use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;
     use IO::File ;
 
-    my $input = new IO::File "<file1.txt.gz"
+    my $input = IO::File->new( "<file1.txt.gz" )
         or die "Cannot open 'file1.txt.gz': $!\n" ;
     my $buffer ;
     gunzip $input => \$buffer
@@ -613,7 +614,7 @@ and if you want to compress each file one at a time, this will do the trick
 
 The format of the constructor for IO::Uncompress::Gunzip is shown below
 
-    my $z = new IO::Uncompress::Gunzip $input [OPTS]
+    my $z = IO::Uncompress::Gunzip->new( $input [OPTS] )
         or die "IO::Uncompress::Gunzip failed: $GunzipError\n";
 
 Returns an C<IO::Uncompress::Gunzip> object on success and undef on failure.
@@ -1063,7 +1064,7 @@ C<InputLength> option in the constructor.
 
 =head1 Importing
 
-No symbolic constants are required by this IO::Uncompress::Gunzip at present.
+No symbolic constants are required by IO::Uncompress::Gunzip at present.
 
 =over 5
 
@@ -1082,6 +1083,12 @@ Same as doing this
 
 See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
 
+=head1 SUPPORT
+
+General feedback/questions/bug reports should be sent to
+L<https://github.com/pmqs/IO-Compress/issues> (preferred) or
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=IO-Compress>.
+
 =head1 SEE ALSO
 
 L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzip>, L<IO::Uncompress::UnLzip>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Compress::Zstd>, L<IO::Uncompress::UnZstd>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
@@ -1115,8 +1122,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2019 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
-

package/bin/exiftool_files/lib/IO/Uncompress/RawInflate.pm

@@ -5,16 +5,16 @@ use strict ;
 use warnings;
 use bytes;
 
-use Compress::Raw::Zlib  2.086 ;
-use IO::Compress::Base::Common  2.086 qw(:Status );
+use Compress::Raw::Zlib  2.100 ;
+use IO::Compress::Base::Common  2.100 qw(:Status );
 
-use IO::Uncompress::Base  2.086 ;
-use IO::Uncompress::Adapter::Inflate  2.086 ;
+use IO::Uncompress::Base  2.100 ;
+use IO::Uncompress::Adapter::Inflate  2.100 ;
 
 require Exporter ;
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError);
 
-$VERSION = '2.086';
+$VERSION = '2.100';
 $RawInflateError = '';
 
 @ISA    = qw(IO::Uncompress::Base Exporter);
@@ -25,16 +25,16 @@ push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
 Exporter::export_ok_tags('all');
 
 #{
-#    # Execute at runtime  
+#    # Execute at runtime
 #    my %bad;
 #    for my $module (qw(Compress::Raw::Zlib IO::Compress::Base::Common IO::Uncompress::Base IO::Uncompress::Adapter::Inflate))
 #    {
 #        my $ver = ${ $module . "::VERSION"} ;
-#        
+#
 #        $bad{$module} = $ver
 #            if $ver ne $VERSION;
 #    }
-#    
+#
 #    if (keys %bad)
 #    {
 #        my $string = join "\n", map { "$_ $bad{$_}" } keys %bad;
@@ -148,14 +148,14 @@ sub _isRawx
 
     my $buffer = '';
 
-    $self->smartRead(\$buffer, *$self->{BlockSize}) >= 0  
+    $self->smartRead(\$buffer, *$self->{BlockSize}) >= 0
         or return $self->saveErrorString(undef, "No data to read");
 
     my $temp_buf = $magic . $buffer ;
-    *$self->{HeaderPending} = $temp_buf ;    
+    *$self->{HeaderPending} = $temp_buf ;
     $buffer = '';
     my $status = *$self->{Uncomp}->uncompr(\$temp_buf, \$buffer, $self->smartEof()) ;
-    
+
     return $self->saveErrorString(undef, *$self->{Uncomp}{Error}, STATUS_ERROR)
         if $status == STATUS_ERROR;
 
@@ -163,12 +163,12 @@ sub _isRawx
 
     return $self->saveErrorString(undef, "unexpected end of file", STATUS_ERROR)
         if $self->smartEof() && $status != STATUS_ENDSTREAM;
-            
+
     #my $buf_len = *$self->{Uncomp}->uncompressedBytes();
     my $buf_len = length $buffer;
 
     if ($status == STATUS_ENDSTREAM) {
-        if (*$self->{MultiStream} 
+        if (*$self->{MultiStream}
                     && (length $temp_buf || ! $self->smartEof())){
             *$self->{NewStream} = 1 ;
             *$self->{EndStream} = 0 ;
@@ -177,9 +177,9 @@ sub _isRawx
             *$self->{EndStream} = 1 ;
         }
     }
-    *$self->{HeaderPending} = $buffer ;    
-    *$self->{InflatedBytesRead} = $buf_len ;    
-    *$self->{TotalInflatedBytesRead} += $buf_len ;    
+    *$self->{HeaderPending} = $buffer ;
+    *$self->{InflatedBytesRead} = $buf_len ;
+    *$self->{TotalInflatedBytesRead} += $buf_len ;
     *$self->{Type} = 'rfc1951';
 
     $self->saveStatus(STATUS_OK);
@@ -229,7 +229,7 @@ sub inflateSync
                 return $self->saveErrorString(0, "unexpected end of file", STATUS_ERROR);
             }
         }
-        
+
         $status = *$self->{Uncomp}->sync($temp_buf) ;
 
         if ($status == STATUS_OK)
@@ -251,23 +251,23 @@ sub inflateSync
 #    my $status ;
 #    my $end_offset = 0;
 #
-#    $status = $self->scan() 
+#    $status = $self->scan()
 #    #or return $self->saveErrorString(undef, "Error Scanning: $$error_ref", $self->errorNo) ;
 #        or return $self->saveErrorString(G_ERR, "Error Scanning: $status")
 #
-#    $status = $self->zap($end_offset) 
+#    $status = $self->zap($end_offset)
 #        or return $self->saveErrorString(G_ERR, "Error Zapping: $status");
 #    #or return $self->saveErrorString(undef, "Error Zapping: $$error_ref", $self->errorNo) ;
 #
 #    #(*$obj->{Deflate}, $status) = $inf->createDeflate();
 #
 ##    *$obj->{Header} = *$inf->{Info}{Header};
-##    *$obj->{UnCompSize_32bit} = 
+##    *$obj->{UnCompSize_32bit} =
 ##        *$obj->{BytesWritten} = *$inf->{UnCompSize_32bit} ;
 ##    *$obj->{CompSize_32bit} = *$inf->{CompSize_32bit} ;
 #
 #
-##    if ( $outType eq 'buffer') 
+##    if ( $outType eq 'buffer')
 ##      { substr( ${ *$self->{Buffer} }, $end_offset) = '' }
 ##    elsif ($outType eq 'handle' || $outType eq 'filename') {
 ##        *$self->{FH} = *$inf->{FH} ;
@@ -275,11 +275,11 @@ sub inflateSync
 ##        *$obj->{FH}->flush() ;
 ##        *$obj->{Handle} = 1 if $outType eq 'handle';
 ##
-##        #seek(*$obj->{FH}, $end_offset, SEEK_SET) 
-##        *$obj->{FH}->seek($end_offset, SEEK_SET) 
+##        #seek(*$obj->{FH}, $end_offset, SEEK_SET)
+##        *$obj->{FH}->seek($end_offset, SEEK_SET)
 ##            or return $obj->saveErrorString(undef, $!, $!) ;
 ##    }
-#    
+#
 #}
 
 sub scan
@@ -292,7 +292,7 @@ sub scan
     my $buffer = '' ;
     my $len = 0;
 
-    $len = $self->_raw_read(\$buffer, 1) 
+    $len = $self->_raw_read(\$buffer, 1)
         while ! *$self->{EndStream} && $len >= 0 ;
 
     #return $len if $len < 0 ? $len : 0 ;
@@ -310,16 +310,16 @@ sub zap
     #printf "# block_offset $block_offset %x\n", $block_offset;
     my $byte ;
     ( $self->smartSeek($block_offset) &&
-      $self->smartRead(\$byte, 1) ) 
-        or return $self->saveErrorString(0, $!, $!); 
+      $self->smartRead(\$byte, 1) )
+        or return $self->saveErrorString(0, $!, $!);
 
     #printf "#byte is %x\n", unpack('C*',$byte);
     *$self->{Uncomp}->resetLastBlockByte($byte);
     #printf "#to byte is %x\n", unpack('C*',$byte);
 
-    ( $self->smartSeek($block_offset) && 
+    ( $self->smartSeek($block_offset) &&
       $self->smartWrite($byte) )
-        or return $self->saveErrorString(0, $!, $!); 
+        or return $self->saveErrorString(0, $!, $!);
 
     #$self->smartSeek($end_offset, 1);
 
@@ -335,12 +335,12 @@ sub createDeflate
                                     -CRC32      => *$self->{Params}->getValue('crc32'),
                                     -ADLER32    => *$self->{Params}->getValue('adler32'),
                                 );
-    
-    return wantarray ? ($status, $def) : $def ;                                
+
+    return wantarray ? ($status, $def) : $def ;
 }
 
 
-1; 
+1;
 
 __END__
 
@@ -356,7 +356,7 @@ IO::Uncompress::RawInflate - Read RFC 1951 files/buffers
     my $status = rawinflate $input => $output [,OPTS]
         or die "rawinflate failed: $RawInflateError\n";
 
-    my $z = new IO::Uncompress::RawInflate $input [OPTS]
+    my $z = IO::Uncompress::RawInflate->new( $input [OPTS] )
         or die "rawinflate failed: $RawInflateError\n";
 
     $status = $z->read($buffer)
@@ -418,7 +418,8 @@ The functional interface needs Perl5.005 or better.
 =head2 rawinflate $input_filename_or_reference => $output_filename_or_reference [, OPTS]
 
 C<rawinflate> expects at least two parameters,
-C<$input_filename_or_reference> and C<$output_filename_or_reference>.
+C<$input_filename_or_reference> and C<$output_filename_or_reference>
+and zero or more optional parameters (see L</Optional Parameters>)
 
 =head3 The C<$input_filename_or_reference> parameter
 
@@ -431,7 +432,7 @@ It can take one of the following forms:
 
 =item A filename
 
-If the <$input_filename_or_reference> parameter is a simple scalar, it is
+If the C<$input_filename_or_reference> parameter is a simple scalar, it is
 assumed to be a filename. This file will be opened for reading and the
 input data will be read from it.
 
@@ -528,9 +529,9 @@ files/buffers.
 
 =head2 Optional Parameters
 
-Unless specified below, the optional parameters for C<rawinflate>,
-C<OPTS>, are the same as those used with the OO interface defined in the
-L</"Constructor Options"> section below.
+The optional parameters for the one-shot function C<rawinflate>
+are (for the most part) identical to those used with the OO interface defined in the
+L</"Constructor Options"> section. The exceptions are listed below
 
 =over 5
 
@@ -645,7 +646,7 @@ uncompressed data to a buffer, C<$buffer>.
     use IO::Uncompress::RawInflate qw(rawinflate $RawInflateError) ;
     use IO::File ;
 
-    my $input = new IO::File "<file1.txt.1951"
+    my $input = IO::File->new( "<file1.txt.1951" )
         or die "Cannot open 'file1.txt.1951': $!\n" ;
     my $buffer ;
     rawinflate $input => \$buffer
@@ -680,7 +681,7 @@ and if you want to compress each file one at a time, this will do the trick
 
 The format of the constructor for IO::Uncompress::RawInflate is shown below
 
-    my $z = new IO::Uncompress::RawInflate $input [OPTS]
+    my $z = IO::Uncompress::RawInflate->new( $input [OPTS] )
         or die "IO::Uncompress::RawInflate failed: $RawInflateError\n";
 
 Returns an C<IO::Uncompress::RawInflate> object on success and undef on failure.
@@ -1063,7 +1064,7 @@ C<InputLength> option in the constructor.
 
 =head1 Importing
 
-No symbolic constants are required by this IO::Uncompress::RawInflate at present.
+No symbolic constants are required by IO::Uncompress::RawInflate at present.
 
 =over 5
 
@@ -1082,6 +1083,12 @@ Same as doing this
 
 See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
 
+=head1 SUPPORT
+
+General feedback/questions/bug reports should be sent to
+L<https://github.com/pmqs/IO-Compress/issues> (preferred) or
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=IO-Compress>.
+
 =head1 SEE ALSO
 
 L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzip>, L<IO::Uncompress::UnLzip>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Compress::Zstd>, L<IO::Uncompress::UnZstd>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
@@ -1115,8 +1122,7 @@ See the Changes file.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2005-2019 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
 
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
-

package/bin/exiftool_files/lib/IO.pm

@@ -7,7 +7,7 @@ use Carp;
 use strict;
 use warnings;
 
-our $VERSION = "1.40";
+our $VERSION = "1.45";
 XSLoader::load 'IO', $VERSION;
 
 sub import {
@@ -53,7 +53,7 @@ in one go.  The IO modules belonging to the core are:
 
 Some other IO modules don't belong to the perl core but can be loaded
 as well if they have been installed from CPAN.  You can discover which
-ones exist by searching for "^IO::" on http://search.cpan.org.
+ones exist by searching for "^IO::" on L<http://search.cpan.org>.
 
 For more information on any of these modules, please see its respective
 documentation.