Commit | Line | Data |
---|---|---|
aba4a7e0 | 1 | diff -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 { |