exiftool-vendored.exe 12.82.0 → 12.84.0

package/bin/exiftool_files/lib/IO/Compress/Zlib/Extra.pm

@@ -8,9 +8,9 @@ use bytes;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS);
 
-$VERSION = '2.086';
+$VERSION = '2.100';
 
-use IO::Compress::Gzip::Constants 2.086 ;
+use IO::Compress::Gzip::Constants 2.100 ;
 
 sub ExtraFieldError
 {
@@ -36,11 +36,11 @@ sub validateExtraFieldPair
     return ExtraFieldError("SubField Data is a reference")
         if ref $pair->[1] ;
 
-    # ID is exactly two chars   
+    # ID is exactly two chars
     return ExtraFieldError("SubField ID not two chars long")
         unless length $pair->[0] == GZIP_FEXTRA_SUBFIELD_ID_SIZE ;
 
-    # Check that the 2nd byte of the ID isn't 0    
+    # Check that the 2nd byte of the ID isn't 0
     return ExtraFieldError("SubField ID 2nd byte is 0x00")
         if $strict && $gzipMode && substr($pair->[0], 1, 1) eq "\x00" ;
 
@@ -74,7 +74,7 @@ sub parseRawExtra
         return ExtraFieldError("Truncated in FEXTRA Body Section")
             if $offset + GZIP_FEXTRA_SUBFIELD_HEADER_SIZE  > $XLEN ;
 
-        my $id = substr($data, $offset, GZIP_FEXTRA_SUBFIELD_ID_SIZE);    
+        my $id = substr($data, $offset, GZIP_FEXTRA_SUBFIELD_ID_SIZE);
         $offset += GZIP_FEXTRA_SUBFIELD_ID_SIZE;
 
         my $subLen =  unpack("v", substr($data, $offset,
@@ -84,8 +84,8 @@ sub parseRawExtra
         return ExtraFieldError("Truncated in FEXTRA Body Section")
             if $offset + $subLen > $XLEN ;
 
-        my $bad = validateExtraFieldPair( [$id, 
-                                           substr($data, $offset, $subLen)], 
+        my $bad = validateExtraFieldPair( [$id,
+                                           substr($data, $offset, $subLen)],
                                            $strict, $gzipMode );
         return $bad if $bad ;
         push @$extraRef, [$id => substr($data, $offset, $subLen)]
@@ -94,7 +94,7 @@ sub parseRawExtra
         $offset += $subLen ;
     }
 
-        
+
     return undef ;
 }
 
@@ -111,7 +111,7 @@ sub findID
         return undef
             if $offset + GZIP_FEXTRA_SUBFIELD_HEADER_SIZE  > $XLEN ;
 
-        my $id = substr($data, $offset, GZIP_FEXTRA_SUBFIELD_ID_SIZE);    
+        my $id = substr($data, $offset, GZIP_FEXTRA_SUBFIELD_ID_SIZE);
         $offset += GZIP_FEXTRA_SUBFIELD_ID_SIZE;
 
         my $subLen =  unpack("v", substr($data, $offset,
@@ -126,7 +126,7 @@ sub findID
 
         $offset += $subLen ;
     }
-        
+
     return undef ;
 }
 
@@ -165,7 +165,7 @@ sub parseExtraField
     #                     $id2 => $data2,
     #                     ...
     #                   }
-    
+
     if ( ! ref $dataRef ) {
 
         return undef
@@ -177,7 +177,7 @@ sub parseExtraField
     my $data = $dataRef;
     my $out = '' ;
 
-    if (ref $data eq 'ARRAY') {    
+    if (ref $data eq 'ARRAY') {
         if (ref $data->[0]) {
 
             foreach my $pair (@$data) {
@@ -188,30 +188,30 @@ sub parseExtraField
                 return $bad if $bad ;
 
                 $out .= mkSubField(@$pair);
-            }   
-        }   
+            }
+        }
         else {
             return ExtraFieldError("Not even number of elements")
                 unless @$data % 2  == 0;
 
             for (my $ix = 0; $ix <= @$data -1 ; $ix += 2) {
                 my $bad = validateExtraFieldPair([$data->[$ix],
-                                                  $data->[$ix+1]], 
+                                                  $data->[$ix+1]],
                                                  $strict, $gzipMode) ;
                 return $bad if $bad ;
 
                 $out .= mkSubField($data->[$ix], $data->[$ix+1]);
-            }   
+            }
         }
-    }   
-    elsif (ref $data eq 'HASH') {    
+    }
+    elsif (ref $data eq 'HASH') {
         while (my ($id, $info) = each %$data) {
             my $bad = validateExtraFieldPair([$id, $info], $strict, $gzipMode);
             return $bad if $bad ;
 
             $out .= mkSubField($id, $info);
-        }   
-    }   
+        }
+    }
     else {
         return ExtraFieldError("Not a scalar, array ref or hash ref") ;
     }

package/bin/exiftool_files/lib/IO/Dir.pm

@@ -18,7 +18,7 @@ use File::stat;
 use File::Spec;
 
 our @ISA = qw(Tie::Hash Exporter);
-our $VERSION = "1.40";
+our $VERSION = "1.45";
 
 our @EXPORT_OK = qw(DIR_UNLINK);
 

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

@@ -135,7 +135,7 @@ require Exporter;
 
 our @ISA = qw(IO::Handle IO::Seekable Exporter);
 
-our $VERSION = "1.40";
+our $VERSION = "1.45";
 
 our @EXPORT = @IO::Seekable::EXPORT;
 

package/bin/exiftool_files/lib/IO/Handle.pm

@@ -270,7 +270,7 @@ use IO ();	# Load the XS module
 require Exporter;
 our @ISA = qw(Exporter);
 
-our $VERSION = "1.40";
+our $VERSION = "1.45";
 
 our @EXPORT_OK = qw(
     autoflush
@@ -431,26 +431,6 @@ sub say {
     print $this @_;
 }
 
-# Special XS wrapper to make them inherit lexical hints from the caller.
-_create_getline_subs( <<'END' ) or die $@;
-sub getline {
-    @_ == 1 or croak 'usage: $io->getline()';
-    my $this = shift;
-    return scalar <$this>;
-} 
-
-sub getlines {
-    @_ == 1 or croak 'usage: $io->getlines()';
-    wantarray or
-	croak 'Can\'t call $io->getlines in a scalar context, use $io->getline';
-    my $this = shift;
-    return <$this>;
-}
-1; # return true for error checking
-END
-
-*gets = \&getline;  # deprecated
-
 sub truncate {
     @_ == 2 or croak 'usage: $io->truncate(LEN)';
     truncate($_[0], $_[1]);

package/bin/exiftool_files/lib/IO/Pipe.pm

@@ -13,7 +13,7 @@ use strict;
 use Carp;
 use Symbol;
 
-our $VERSION = "1.40";
+our $VERSION = "1.45";
 
 sub new {
     my $type = shift;

package/bin/exiftool_files/lib/IO/Seekable.pm

@@ -106,7 +106,7 @@ require Exporter;
 our @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
 our @ISA = qw(Exporter);
 
-our $VERSION = "1.40";
+our $VERSION = "1.45";
 
 sub seek {
     @_ == 3 or croak 'usage: $io->seek(POS, WHENCE)';

package/bin/exiftool_files/lib/IO/Select.pm

@@ -10,7 +10,7 @@ use     strict;
 use warnings::register;
 require Exporter;
 
-our $VERSION = "1.40";
+our $VERSION = "1.45";
 
 our @ISA = qw(Exporter); # This is only so we can do version checking
 
@@ -57,7 +57,21 @@ sub _fileno
  my($self, $f) = @_;
  return unless defined $f;
  $f = $f->[0] if ref($f) eq 'ARRAY';
- ($f =~ /^\d+$/) ? $f : fileno($f);
+ if($f =~ /^[0-9]+$/) { # plain file number
+  return $f;
+ }
+ elsif(defined(my $fd = fileno($f))) {
+  return $fd;
+ }
+ else {
+  # Neither a plain file number nor an opened filehandle; but maybe it was
+  # previously registered and has since been closed. ->remove still wants to
+  # know what fileno it had
+  foreach my $i ( FIRST_FD .. $#$self ) {
+   return $i - FIRST_FD if $self->[$i] == $f;
+  }
+  return undef;
+ }
 }
 
 sub _update

package/bin/exiftool_files/lib/IO/Socket/INET.pm

@@ -14,7 +14,7 @@ use Exporter;
 use Errno;
 
 our @ISA = qw(IO::Socket);
-our $VERSION = "1.40";
+our $VERSION = "1.45";
 
 my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;
 
@@ -79,7 +79,7 @@ sub _sock_info {
   if(defined $proto  && $proto =~ /\D/) {
     my $num = _get_proto_number($proto);
     unless (defined $num) {
-      $@ = "Bad protocol '$proto'";
+      $IO::Socket::errstr = $@ = "Bad protocol '$proto'";
       return;
     }
     $proto = $num;
@@ -94,7 +94,7 @@ sub _sock_info {
 
     $port = $serv[2] || $defport || $pnum;
     unless (defined $port) {
-	$@ = "Bad service '$origport'";
+	$IO::Socket::errstr = $@ = "Bad service '$origport'";
 	return;
     }
 
@@ -113,7 +113,7 @@ sub _error {
     {
       local($!);
       my $title = ref($sock).": ";
-      $@ = join("", $_[0] =~ /^$title/ ? "" : $title, @_);
+      $IO::Socket::errstr = $@ = join("", $_[0] =~ /^$title/ ? "" : $title, @_);
       $sock->close()
 	if(defined fileno($sock));
     }
@@ -404,14 +404,19 @@ Examples:
                            Proto     => udp,    
                            LocalAddr => 'localhost',
                            Broadcast => 1 ) 
-                       or die "Can't bind : $@\n";
+                       or die "Can't bind : $IO::Socket::errstr\n";
 
-B<NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE>
+If the constructor fails it will return C<undef> and set the
+C<$IO::Socket::errstr> package variable to contain an error message.
 
-As of VERSION 1.18 all IO::Socket objects have autoflush turned on
-by default. This was not the case with earlier releases.
+    $sock = IO::Socket::INET->new(...)
+        or die "Cannot create socket - $IO::Socket::errstr\n";
 
-B<NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE>
+For legacy reasons the error message is also set into the global C<$@>
+variable, and you may still find older code which looks here instead.
+
+    $sock = IO::Socket::INET->new(...)
+        or die "Cannot create socket - $@\n";
 
 =back
 

package/bin/exiftool_files/lib/IO/Socket/UNIX.pm

@@ -11,7 +11,7 @@ use IO::Socket;
 use Carp;
 
 our @ISA = qw(IO::Socket);
-our $VERSION = "1.40";
+our $VERSION = "1.45";
 
 IO::Socket::UNIX->register_domain( AF_UNIX );
 
@@ -30,6 +30,10 @@ sub configure {
     $sock->socket(AF_UNIX, $type, 0) or
 	return undef;
 
+    if(exists $arg->{Blocking}) {
+        $sock->blocking($arg->{Blocking}) or
+	    return undef;
+    }
     if(exists $arg->{Local}) {
 	my $addr = sockaddr_un($arg->{Local});
 	$sock->bind($addr) or
@@ -123,6 +127,18 @@ be a C<Peer> specification.
 
 If the C<Listen> argument is given, but false, the queue size will be set to 5.
 
+If the constructor fails it will return C<undef> and set the
+C<$IO::Socket::errstr> package variable to contain an error message.
+
+    $sock = IO::Socket::UNIX->new(...)
+        or die "Cannot create socket - $IO::Socket::errstr\n";
+
+For legacy reasons the error message is also set into the global C<$@>
+variable, and you may still find older code which looks here instead.
+
+    $sock = IO::Socket::UNIX->new(...)
+        or die "Cannot create socket - $@\n";
+
 =back
 
 =head1 METHODS