2015-08-31 02:35:01 +02:00
|
|
|
diff -u -r ../perl-5.22.0/dist/PathTools/Cwd.pm ./dist/PathTools/Cwd.pm
|
|
|
|
|
--- ../perl-5.22.0/dist/PathTools/Cwd.pm 2015-05-13 16:19:29.000000000 -0400
|
|
|
|
|
+++ ./dist/PathTools/Cwd.pm 2015-08-30 13:34:33.445269291 -0400
|
|
|
|
|
@@ -168,9 +168,8 @@
|
2015-06-13 01:03:31 +02:00
|
|
|
# so everything works under taint mode.
|
|
|
|
|
my $pwd_cmd;
|
2015-08-31 02:35:01 +02:00
|
|
|
if($^O ne 'MSWin32') {
|
|
|
|
|
- foreach my $try ('/bin/pwd',
|
|
|
|
|
- '/usr/bin/pwd',
|
|
|
|
|
- '/QOpenSys/bin/pwd', # OS/400 PASE.
|
|
|
|
|
+ foreach my $try ('@TERMUX_PREFIX@/bin/applets/pwd',
|
|
|
|
|
+ '@TERMUX_PREFIX@/bin/pwd'
|
|
|
|
|
) {
|
|
|
|
|
if( -x $try ) {
|
|
|
|
|
$pwd_cmd = $try;
|
