exiftool-vendored.exe 12.80.0 → 12.82.1

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

@@ -1,7 +1,7 @@
-package File::Temp; # git description: v0.2308-7-g3bb4d88
+package File::Temp; # git description: v0.2310-3-gc7148fe
 # ABSTRACT: return name and handle of a temporary file safely
 
-our $VERSION = '0.2309';
+our $VERSION = '0.2311';
 
 #pod =begin :__INTERNALS
 #pod
@@ -307,6 +307,7 @@ my %FILES_CREATED_BY_OBJECT;
 #                        use of the O_TEMPORARY flag to sysopen.
 #                        Usually irrelevant on unix
 #   "use_exlock" => Indicates that O_EXLOCK should be used. Default is false.
+#   "file_permissions" => file permissions for sysopen(). Default is 0600.
 
 # Optionally a reference to a scalar can be passed into the function
 # On error this will be used to store the reason for the error
@@ -339,12 +340,13 @@ sub _gettemp {
 
   # Default options
   my %options = (
-                 "open" => 0,
-                 "mkdir" => 0,
-                 "suffixlen" => 0,
-                 "unlink_on_close" => 0,
-                 "use_exlock" => 0,
-                 "ErrStr" => \$tempErrStr,
+                 "open"             => 0,
+                 "mkdir"            => 0,
+                 "suffixlen"        => 0,
+                 "unlink_on_close"  => 0,
+                 "use_exlock"       => 0,
+                 "ErrStr"           => \$tempErrStr,
+                 "file_permissions" => undef,
                 );
 
   # Read the template
@@ -480,6 +482,9 @@ sub _gettemp {
     }
   }
 
+  my $perms = $options{file_permissions};
+  my $has_perms = defined $perms;
+  $perms = 0600 unless $has_perms;
 
   # Now try MAX_TRIES time to open the file
   for (my $i = 0; $i < MAX_TRIES; $i++) {
@@ -502,19 +507,19 @@ sub _gettemp {
       my $open_success = undef;
       if ( $^O eq 'VMS' and $options{"unlink_on_close"} && !$KEEP_ALL) {
         # make it auto delete on close by setting FAB$V_DLT bit
-        $fh = VMS::Stdio::vmssysopen($path, $OPENFLAGS, 0600, 'fop=dlt');
+        $fh = VMS::Stdio::vmssysopen($path, $OPENFLAGS, $perms, 'fop=dlt');
         $open_success = $fh;
       } else {
         my $flags = ( ($options{"unlink_on_close"} && !$KEEP_ALL) ?
                       $OPENTEMPFLAGS :
                       $OPENFLAGS );
         $flags |= $LOCKFLAG if (defined $LOCKFLAG && $options{use_exlock});
-        $open_success = sysopen($fh, $path, $flags, 0600);
+        $open_success = sysopen($fh, $path, $flags, $perms);
       }
       if ( $open_success ) {
 
         # in case of odd umask force rw
-        chmod(0600, $path);
+        chmod($perms, $path) unless $has_perms;
 
         # Opened successfully - return file handle and name
         return ($fh, $path);
@@ -799,7 +804,7 @@ sub _is_verysafe {
 
 sub _can_unlink_opened_file {
 
-  if (grep { $^O eq $_ } qw/MSWin32 os2 VMS dos MacOS haiku/) {
+  if (grep $^O eq $_, qw/MSWin32 os2 VMS dos MacOS haiku/) {
     return 0;
   } else {
     return 1;
@@ -999,7 +1004,7 @@ sub _can_do_level {
 sub _parse_args {
   my $leading_template = (scalar(@_) % 2 == 1 ? shift(@_) : '' );
   my %args = @_;
-  %args = map { uc($_), $args{$_} } keys %args;
+  %args = map +(uc($_) => $args{$_}), keys %args;
 
   # template (store it in an array so that it will
   # disappear from the arg list of tempfile)
@@ -1048,7 +1053,8 @@ sub _parse_args {
 #pod if UNLINK is set to true (the default).
 #pod
 #pod Supported arguments are the same as for C<tempfile>: UNLINK
-#pod (defaulting to true), DIR, EXLOCK and SUFFIX. Additionally, the filename
+#pod (defaulting to true), DIR, EXLOCK, PERMS and SUFFIX.
+#pod Additionally, the filename
 #pod template is specified using the TEMPLATE option. The OPEN option
 #pod is not supported (the file is always opened).
 #pod
@@ -1359,6 +1365,11 @@ sub DESTROY {
 #pod
 #pod   ($fh, $filename) = tempfile($template, EXLOCK => 1);
 #pod
+#pod By default, the temp file is created with 0600 file permissions.
+#pod Use C<PERMS> to change this:
+#pod
+#pod   ($fh, $filename) = tempfile($template, PERMS => 0666);
+#pod
 #pod Options can be combined as required.
 #pod
 #pod Will croak() if there is an error.
@@ -1371,6 +1382,8 @@ sub DESTROY {
 #pod
 #pod EXLOCK flag available since 0.19.
 #pod
+#pod PERMS flag available since 0.2310.
+#pod
 #pod =cut
 
 sub tempfile {
@@ -1386,8 +1399,9 @@ sub tempfile {
                  "SUFFIX" => '',    # Template suffix
                  "UNLINK" => 0,     # Do not unlink file on exit
                  "OPEN"   => 1,     # Open file
-                 "TMPDIR" => 0, # Place tempfile in tempdir if template specified
-                 "EXLOCK" => 0, # Open file with O_EXLOCK
+                 "TMPDIR" => 0,     # Place tempfile in tempdir if template specified
+                 "EXLOCK" => 0,     # Open file with O_EXLOCK
+                 "PERMS"  => undef, # File permissions
                 );
 
   # Check to see whether we have an odd or even number of arguments
@@ -1464,12 +1478,13 @@ sub tempfile {
   my ($fh, $path, $errstr);
   croak "Error in tempfile() using template $template: $errstr"
     unless (($fh, $path) = _gettemp($template,
-                                    "open" => $options{'OPEN'},
-                                    "mkdir"=> 0 ,
-                                    "unlink_on_close" => $unlink_on_close,
-                                    "suffixlen" => length($options{'SUFFIX'}),
-                                    "ErrStr" => \$errstr,
-                                    "use_exlock" => $options{EXLOCK},
+                                    "open"             => $options{OPEN},
+                                    "mkdir"            => 0,
+                                    "unlink_on_close"  => $unlink_on_close,
+                                    "suffixlen"        => length($options{SUFFIX}),
+                                    "ErrStr"           => \$errstr,
+                                    "use_exlock"       => $options{EXLOCK},
+                                    "file_permissions" => $options{PERMS},
                                    ) );
 
   # Set up an exit handler that can do whatever is right for the
@@ -2581,7 +2596,7 @@ sub unlink1 {
 package ## hide from PAUSE
   File::Temp::Dir;
 
-our $VERSION = '0.2309';
+our $VERSION = '0.2311';
 
 use File::Path qw/ rmtree /;
 use strict;
@@ -2648,7 +2663,7 @@ File::Temp - return name and handle of a temporary file safely
 
 =head1 VERSION
 
-version 0.2309
+version 0.2311
 
 =head1 SYNOPSIS
 
@@ -2819,7 +2834,8 @@ that the temporary file is removed by the object destructor
 if UNLINK is set to true (the default).
 
 Supported arguments are the same as for C<tempfile>: UNLINK
-(defaulting to true), DIR, EXLOCK and SUFFIX. Additionally, the filename
+(defaulting to true), DIR, EXLOCK, PERMS and SUFFIX.
+Additionally, the filename
 template is specified using the TEMPLATE option. The OPEN option
 is not supported (the file is always opened).
 
@@ -3004,6 +3020,11 @@ versions, explicitly set C<< EXLOCK=>0 >>.
 
   ($fh, $filename) = tempfile($template, EXLOCK => 1);
 
+By default, the temp file is created with 0600 file permissions.
+Use C<PERMS> to change this:
+
+  ($fh, $filename) = tempfile($template, PERMS => 0666);
+
 Options can be combined as required.
 
 Will croak() if there is an error.
@@ -3016,6 +3037,8 @@ TMPDIR flag available since 0.19.
 
 EXLOCK flag available since 0.19.
 
+PERMS flag available since 0.2310.
+
 =item B<tempdir>
 
 This is the recommended interface for creation of temporary
@@ -3606,13 +3629,13 @@ Tim Jenness <tjenness@cpan.org>
 
 =head1 CONTRIBUTORS
 
-=for stopwords David Golden Karen Etheridge Slaven Rezic Peter Rabbitson Olivier Mengue Kevin Ryde John Acklam James E. Keenan Brian Mowrey Dagfinn Ilmari Mannsåker Steinbrunner Ed Avis Guillem Jover Ben Tilly
+=for stopwords Tim Jenness Karen Etheridge David Golden Slaven Rezic mohawk2 Roy Ivy III Peter Rabbitson Olivier Mengué John Acklam Gim Yee Nicolas R Brian Mowrey Dagfinn Ilmari Mannsåker Steinbrunner Ed Avis Guillem Jover James E. Keenan Kevin Ryde Ben Tilly
 
 =over 4
 
 =item *
 
-David Golden <dagolden@cpan.org>
+Tim Jenness <t.jenness@jach.hawaii.edu>
 
 =item *
 
@@ -3620,23 +3643,27 @@ Karen Etheridge <ether@cpan.org>
 
 =item *
 
-Slaven Rezic <slaven@rezic.de>
+David Golden <dagolden@cpan.org>
 
 =item *
 
-Peter Rabbitson <ribasushi@cpan.org>
+Slaven Rezic <srezic@cpan.org>
 
 =item *
 
-Olivier Mengue <dolmen@cpan.org>
+mohawk2 <mohawk2@users.noreply.github.com>
 
 =item *
 
-David Golden <xdg@xdg.me>
+Roy Ivy III <rivy.dev@gmail.com>
 
 =item *
 
-Kevin Ryde <user42@zip.com.au>
+Peter Rabbitson <ribasushi@cpan.org>
+
+=item *
+
+Olivier Mengué <dolmen@cpan.org>
 
 =item *
 
@@ -3644,11 +3671,11 @@ Peter John Acklam <pjacklam@online.no>
 
 =item *
 
-Slaven Rezic <slaven.rezic@idealo.de>
+Tim Gim Yee <tim.gim.yee@gmail.com>
 
 =item *
 
-James E. Keenan <jkeen@verizon.net>
+Nicolas R <atoomic@cpan.org>
 
 =item *
 
@@ -3672,13 +3699,21 @@ Guillem Jover <guillem@hadrons.org>
 
 =item *
 
+James E. Keenan <jkeen@verizon.net>
+
+=item *
+
+Kevin Ryde <user42@zip.com.au>
+
+=item *
+
 Ben Tilly <btilly@gmail.com>
 
 =back
 
 =head1 COPYRIGHT AND LICENSE
 
-This software is copyright (c) 2019 by Tim Jenness and the UK Particle Physics and Astronomy Research Council.
+This software is copyright (c) 2020 by Tim Jenness and the UK Particle Physics and Astronomy Research Council.
 
 This is free software; you can redistribute it and/or modify it under
 the same terms as the Perl 5 programming language system itself.

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

@@ -150,243 +150,4 @@ sub where {
 
 __END__
 
-=pod
-
-=encoding UTF-8
-
-=head1 NAME
-
-File::Which - Perl implementation of the which utility as an API
-
-=head1 VERSION
-
-version 1.23
-
-=head1 SYNOPSIS
-
- use File::Which;                  # exports which()
- use File::Which qw(which where);  # exports which() and where()
- 
- my $exe_path = which 'perldoc';
- 
- my @paths = where 'perl';
- # Or
- my @paths = which 'perl'; # an array forces search for all of them
-
-=head1 DESCRIPTION
-
-L<File::Which> finds the full or relative paths to executable programs on
-the system.  This is normally the function of C<which> utility.  C<which> is
-typically implemented as either a program or a built in shell command.  On
-some platforms, such as Microsoft Windows it is not provided as part of the
-core operating system.  This module provides a consistent API to this
-functionality regardless of the underlying platform.
-
-The focus of this module is correctness and portability.  As a consequence
-platforms where the current directory is implicitly part of the search path
-such as Microsoft Windows will find executables in the current directory,
-whereas on platforms such as UNIX where this is not the case executables
-in the current directory will only be found if the current directory is
-explicitly added to the path.
-
-If you need a portable C<which> on the command line in an environment that
-does not provide it, install L<App::pwhich> which provides a command line
-interface to this API.
-
-=head2 Implementations
-
-L<File::Which> searches the directories of the user's C<PATH> (the current
-implementation uses L<File::Spec#path> to determine the correct C<PATH>),
-looking for executable files having the name specified as a parameter to
-L</which>. Under Win32 systems, which do not have a notion of directly
-executable files, but uses special extensions such as C<.exe> and C<.bat>
-to identify them, C<File::Which> takes extra steps to assure that
-you will find the correct file (so for example, you might be searching for
-C<perl>, it'll try F<perl.exe>, F<perl.bat>, etc.)
-
-=head3 Linux, *BSD and other UNIXes
-
-There should not be any surprises here.  The current directory will not be
-searched unless it is explicitly added to the path.
-
-=head3 Modern Windows (including NT, XP, Vista, 7, 8, 10 etc)
-
-Windows NT has a special environment variable called C<PATHEXT>, which is used
-by the shell to look for executable files. Usually, it will contain a list in
-the form C<.EXE;.BAT;.COM;.JS;.VBS> etc. If C<File::Which> finds such an
-environment variable, it parses the list and uses it as the different
-extensions.
-
-=head3 Cygwin
-
-Cygwin provides a Unix-like environment for Microsoft Windows users.  In most
-ways it works like other Unix and Unix-like environments, but in a few key
-aspects it works like Windows.  As with other Unix environments, the current
-directory is not included in the search unless it is explicitly included in
-the search path.  Like on Windows, files with C<.EXE> or <.BAT> extensions will
-be discovered even if they are not part of the query.  C<.COM> or extensions
-specified using the C<PATHEXT> environment variable will NOT be discovered
-without the fully qualified name, however.
-
-=head3 Windows ME, 98, 95, MS-DOS, OS/2
-
-This set of operating systems don't have the C<PATHEXT> variable, and usually
-you will find executable files there with the extensions C<.exe>, C<.bat> and
-(less likely) C<.com>. C<File::Which> uses this hardcoded list if it's running
-under Win32 but does not find a C<PATHEXT> variable.
-
-As of 2015 none of these platforms are tested frequently (or perhaps ever),
-but the current maintainer is determined not to intentionally remove support
-for older operating systems.
-
-=head3 VMS
-
-Same case as Windows 9x: uses C<.exe> and C<.com> (in that order).
-
-As of 2015 the current maintainer does not test on VMS, and is in fact not
-certain it has ever been tested on VMS.  If this platform is important to you
-and you can help me verify and or support it on that platform please contact
-me.
-
-=head1 FUNCTIONS
-
-=head2 which
-
- my $path = which $short_exe_name;
- my @paths = which $short_exe_name;
-
-Exported by default.
-
-C<$short_exe_name> is the name used in the shell to call the program (for
-example, C<perl>).
-
-If it finds an executable with the name you specified, C<which()> will return
-the absolute path leading to this executable (for example, F</usr/bin/perl> or
-F<C:\Perl\Bin\perl.exe>).
-
-If it does I<not> find the executable, it returns C<undef>.
-
-If C<which()> is called in list context, it will return I<all> the
-matches.
-
-=head2 where
-
- my @paths = where $short_exe_name;
-
-Not exported by default.
-
-Same as L</which> in array context.  Similar to the C<where> csh
-built-in command or C<which -a> command for platforms that support the
-C<-a> option. Will return an array containing all the path names
-matching C<$short_exe_name>.
-
-=head1 GLOBALS
-
-=head2 $IMPLICIT_CURRENT_DIR
-
-True if the current directory is included in the search implicitly on
-whatever platform you are using.  Normally the default is reasonable,
-but on Windows the current directory is included implicitly for older
-shells like C<cmd.exe> and C<command.com>, but not for newer shells
-like PowerShell.  If you overrule this default, you should ALWAYS
-localize the variable to the tightest scope possible, since setting
-this variable from a module can affect other modules.  Thus on Windows
-you can get the correct result if the user is running either C<cmd.exe>
-or PowerShell on Windows you can do this:
-
- use File::Which qw( which );
- use Shell::Guess;
-
- my $path = do {
-   my $is_power = Shell::Guess->running_shell->is_power;
-   local $File::Which::IMPLICIT_CURRENT_DIR = !$is_power;
-   which 'foo';
- };
-
-For a variety of reasons it is difficult to accurately compute the
-shell that a user is using, but L<Shell::Guess> makes a reasonable
-effort.
-
-=head1 CAVEATS
-
-This module has no non-core requirements for Perl 5.6.2 and better.
-
-This module is fully supported back to Perl 5.8.1.  It may work on 5.8.0.
-It should work on Perl 5.6.x and I may even test on 5.6.2.  I will accept
-patches to maintain compatibility for such older Perls, but you may
-need to fix it on 5.6.x / 5.8.0 and send me a patch.
-
-Not tested on VMS although there is platform specific code
-for those. Anyone who haves a second would be very kind to send me a
-report of how it went.
-
-=head1 SUPPORT
-
-Bugs should be reported via the GitHub issue tracker
-
-L<https://github.com/plicease/File-Which/issues>
-
-For other issues, contact the maintainer.
-
-=head1 SEE ALSO
-
-=over 4
-
-=item L<pwhich>, L<App::pwhich>
-
-Command line interface to this module.
-
-=item L<IPC::Cmd>
-
-This module provides (among other things) a C<can_run> function, which is
-similar to C<which>.  It is a much heavier module since it does a lot more,
-and if you use C<can_run> it pulls in L<ExtUtils::MakeMaker>.  This combination
-may be overkill for applications which do not need L<IPC::Cmd>'s complicated
-interface for running programs, or do not need the memory overhead required
-for installing Perl modules.
-
-At least some older versions will find executables in the current directory,
-even if the current directory is not in the search path (which is the default
-on modern Unix).
-
-C<can_run> converts directory path name to the 8.3 version on Windows using
-C<Win32::GetShortPathName> in some cases.  This is frequently useful for tools
-that just need to run something using C<system> in scalar mode, but may be
-inconvenient for tools like L<App::pwhich> where user readability is a premium.
-Relying on C<Win32::GetShortPathName> to produce filenames without spaces
-is problematic, as 8.3 filenames can be turned off with tweaks to the
-registry (see L<https://technet.microsoft.com/en-us/library/cc959352.aspx>).
-
-=item L<Devel::CheckBin>
-
-This module purports to "check that a command is available", but does not
-provide any documentation on how you might use it.
-
-=back
-
-=head1 AUTHORS
-
-=over 4
-
-=item *
-
-Per Einar Ellefsen <pereinar@cpan.org>
-
-=item *
-
-Adam Kennedy <adamk@cpan.org>
-
-=item *
-
-Graham Ollis <plicease@cpan.org>
-
-=back
-
-=head1 COPYRIGHT AND LICENSE
-
-This software is copyright (c) 2002 by Per Einar Ellefsen <pereinar@cpan.org>.
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-
-=cut
+#line 393

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

@@ -5,12 +5,13 @@ use strict;
 use warnings;
 use warnings::register;
 use Carp;
+use constant _IS_CYGWIN => $^O eq "cygwin";
 
 BEGIN { *warnif = \&warnings::warnif }
 
 our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
 
-our $VERSION = '1.08';
+our $VERSION = '1.09';
 
 our @fields;
 our ( $st_dev, $st_ino, $st_mode,
@@ -98,7 +99,7 @@ else {
         # This code basically assumes that the rwx bits of the mode are
         # the 0777 bits, but so does Perl_cando.
 
-        if ($uid == 0 && $^O ne "VMS") {
+        if (_IS_CYGWIN ? _ingroup(544, $eff) : ($uid == 0 && $^O ne "VMS")) {
             # If we're root on unix
             # not testing for executable status => all file tests are true
             return 1 if !($mode & 0111);

package/bin/exiftool_files/lib/IO/Compress/Adapter/Bzip2.pm

@@ -4,12 +4,12 @@ use strict;
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common  2.086 qw(:Status);
+use IO::Compress::Base::Common  2.100 qw(:Status);
 
-use Compress::Raw::Bzip2  2.086 ;
+use Compress::Raw::Bzip2  2.100 ;
 
 our ($VERSION);
-$VERSION = '2.086';
+$VERSION = '2.100';
 
 sub mkCompObject
 {
@@ -21,7 +21,7 @@ sub mkCompObject
     $WorkFactor    = 0 if ! defined $WorkFactor ;
     $Verbosity     = 0 if ! defined $Verbosity ;
 
-    my ($def, $status) = new Compress::Raw::Bzip2(1, $BlockSize100K,
+    my ($def, $status) = Compress::Raw::Bzip2->new(1, $BlockSize100K,
                                                  $WorkFactor, $Verbosity);
 
     return (undef, "Could not create Deflate object: $status", $status)
@@ -30,7 +30,7 @@ sub mkCompObject
     return bless {'Def'        => $def,
                   'Error'      => '',
                   'ErrorNo'    => 0,
-                 }  ;     
+                 }  ;
 }
 
 sub compr
@@ -44,11 +44,11 @@ sub compr
 
     if ($status != BZ_RUN_OK)
     {
-        $self->{Error} = "Deflate Error: $status"; 
+        $self->{Error} = "Deflate Error: $status";
         return STATUS_ERROR;
     }
 
-    return STATUS_OK;    
+    return STATUS_OK;
 }
 
 sub flush
@@ -62,12 +62,12 @@ sub flush
 
     if ($status != BZ_RUN_OK)
     {
-        $self->{Error} = "Deflate Error: $status"; 
+        $self->{Error} = "Deflate Error: $status";
         return STATUS_ERROR;
     }
 
-    return STATUS_OK;    
-    
+    return STATUS_OK;
+
 }
 
 sub close
@@ -81,12 +81,12 @@ sub close
 
     if ($status != BZ_STREAM_END)
     {
-        $self->{Error} = "Deflate Error: $status"; 
+        $self->{Error} = "Deflate Error: $status";
         return STATUS_ERROR;
     }
 
-    return STATUS_OK;    
-    
+    return STATUS_OK;
+
 }
 
 
@@ -96,18 +96,18 @@ sub reset
 
     my $outer = $self->{Outer};
 
-    my ($def, $status) = new Compress::Raw::Bzip2();
+    my ($def, $status) = Compress::Raw::Bzip2->new();
     $self->{ErrorNo} = ($status == BZ_OK) ? 0 : $status ;
 
     if ($status != BZ_OK)
     {
-        $self->{Error} = "Cannot create Deflate object: $status"; 
+        $self->{Error} = "Cannot create Deflate object: $status";
         return STATUS_ERROR;
     }
 
     $self->{Def} = $def;
 
-    return STATUS_OK;    
+    return STATUS_OK;
 }
 
 sub compressedBytes
@@ -151,4 +151,3 @@ sub uncompressedBytes
 1;
 
 __END__
-