From 11c6e5fc65f26ba5219997d19707b998a9abf26d Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 7 Mar 2020 22:52:33 +0000 Subject: tl20 perl 5.30.1 for Windows, from Siep git-svn-id: svn://tug.org/texlive/trunk@54166 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlperl/lib/Cwd.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg/tlperl/lib/Cwd.pm') diff --git a/Master/tlpkg/tlperl/lib/Cwd.pm b/Master/tlpkg/tlperl/lib/Cwd.pm index 58af9352db3..9b173c234bf 100644 --- a/Master/tlpkg/tlperl/lib/Cwd.pm +++ b/Master/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