mdw@git.distorted.org.uk Git - termux-packages/blob - packages/perl/Cwd.pm.patch

   1 diff -u -r ../perl-5.22.0/dist/PathTools/Cwd.pm ./dist/PathTools/Cwd.pm
   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 @@
   5  # so everything works under taint mode.
   6  my $pwd_cmd;
   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;
  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 {