From c2697fc286a1e2c94fd9968b76be6f4a6d2114cd Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 11 Apr 2020 03:09:12 +0000 Subject: CTAN sync 202004110309 --- systems/texlive/tlnet/tlpkg/tlperl/lib/Cwd.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Cwd.pm') diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Cwd.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Cwd.pm index 58af9352db..9b173c234b 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Cwd.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Cwd.pm @@ -3,7 +3,7 @@ use strict; use Exporter; -our $VERSION = '3.74'; +our $VERSION = '3.78'; my $xs_version = $VERSION; $VERSION =~ tr/_//d; @@ -171,7 +171,7 @@ if($^O ne 'MSWin32') { if ($^O =~ /android/) { # If targetsh is executable, then we're either a full # perl, or a miniperl for a native build. - if (-x $Config::Config{targetsh}) { + if ( exists($Config::Config{targetsh}) && -x $Config::Config{targetsh}) { $pwd_cmd = "$Config::Config{targetsh} -c pwd" } else { @@ -659,6 +659,10 @@ if (exists $METHOD_MAP{$^O}) { } } +# built-in from 5.30 +*getcwd = \&Internals::getcwd + if !defined &getcwd && defined &Internals::getcwd; + # In case the XS version doesn't load. *abs_path = \&_perl_abs_path unless defined &abs_path; *getcwd = \&_perl_getcwd unless defined &getcwd; -- cgit v1.2.3