pick: Update from 2.0.1 to 2.0.2
[termux-packages] / packages / perl / Cwd.pm.patch
CommitLineData
aba4a7e0 1diff -u -r ../perl-5.22.0/dist/PathTools/Cwd.pm ./dist/PathTools/Cwd.pm
d415b125 2--- ../perl-5.24.1/dist/PathTools/Cwd.pm 2016-07-25 09:12:20.000000000 +0000
3+++ ./dist/PathTools/Cwd.pm 2017-02-28 20:36:10.314765294 +0000
4@@ -179,9 +179,8 @@
59f0d218
FF
5 # so everything works under taint mode.
6 my $pwd_cmd;
aba4a7e0
FF
7 if($^O ne 'MSWin32') {
8- foreach my $try ('/bin/pwd',
9- '/usr/bin/pwd',
10- '/QOpenSys/bin/pwd', # OS/400 PASE.
11+ foreach my $try ('@TERMUX_PREFIX@/bin/applets/pwd',
12+ '@TERMUX_PREFIX@/bin/pwd'
13 ) {
14 if( -x $try ) {
15 $pwd_cmd = $try;
d415b125 16@@ -198,7 +197,7 @@
17 if ($^O =~ /android/) {
18 # If targetsh is executable, then we're either a full
19 # perl, or a miniperl for a native build.
20- if (-x $Config::Config{targetsh}) {
21+ if (defined($Config::Config{targetsh}) && -x $Config::Config{targetsh}) {
22 $pwd_cmd = "$Config::Config{targetsh} -c pwd"
23 }
24 else {