This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix for [perl #121963] 5.20.0-RC1 can't compile on Android
authorBrian Fraser <fraserbn@gmail.com>
Thu, 29 May 2014 10:58:52 +0000 (12:58 +0200)
committerBrian Fraser <fraserbn@gmail.com>
Thu, 29 May 2014 15:13:35 +0000 (17:13 +0200)
On some native android builds, this was causing warnings and
possibly build errors before Config.pm was generated.

dist/PathTools/Cwd.pm
dist/PathTools/lib/File/Spec.pm
dist/PathTools/lib/File/Spec/Cygwin.pm
dist/PathTools/lib/File/Spec/Epoc.pm
dist/PathTools/lib/File/Spec/Functions.pm
dist/PathTools/lib/File/Spec/Mac.pm
dist/PathTools/lib/File/Spec/OS2.pm
dist/PathTools/lib/File/Spec/Unix.pm
dist/PathTools/lib/File/Spec/VMS.pm
dist/PathTools/lib/File/Spec/Win32.pm

index f27a3a0..01393f3 100644 (file)
@@ -171,7 +171,7 @@ use strict;
 use Exporter;
 use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
 
-$VERSION = '3.47';
+$VERSION = '3.48';
 my $xs_version = $VERSION;
 $VERSION =~ tr/_//;
 
@@ -356,7 +356,8 @@ if ($^O =~ /android/) {
         $pwd_cmd = "$Config::Config{targetsh} -c pwd"
     }
     else {
-        $pwd_cmd = "$Config::Config{sh} -c pwd"
+        my $sh = $Config::Config{sh} || (-x '/system/bin/sh' ? '/system/bin/sh' : 'sh');
+        $pwd_cmd = "$sh -c pwd"
     }
 }
 
index 3d07687..bf0a327 100644 (file)
@@ -3,7 +3,7 @@ package File::Spec;
 use strict;
 use vars qw(@ISA $VERSION);
 
-$VERSION = '3.47';
+$VERSION = '3.48';
 $VERSION =~ tr/_//;
 
 my %module = (MacOS   => 'Mac',
index c356884..a791a2a 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.47';
+$VERSION = '3.48';
 $VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);
index a7ad3fb..a7859c5 100644 (file)
@@ -3,7 +3,7 @@ package File::Spec::Epoc;
 use strict;
 use vars qw($VERSION @ISA);
 
-$VERSION = '3.47';
+$VERSION = '3.48';
 $VERSION =~ tr/_//;
 
 require File::Spec::Unix;
index 24c88a8..0170843 100644 (file)
@@ -5,7 +5,7 @@ use strict;
 
 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
 
-$VERSION = '3.47';
+$VERSION = '3.48';
 $VERSION =~ tr/_//;
 
 require Exporter;
index 3568d8d..a8dc2df 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.47';
+$VERSION = '3.48';
 $VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);
index a8eca69..df458c9 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.47';
+$VERSION = '3.48';
 $VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);
index 3d62478..e4eddbb 100644 (file)
@@ -3,7 +3,7 @@ package File::Spec::Unix;
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '3.47';
+$VERSION = '3.48';
 my $xs_version = $VERSION;
 $VERSION =~ tr/_//;
 
index 24052e6..b045e27 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.47';
+$VERSION = '3.48';
 $VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);
index e26479c..352ec99 100644 (file)
@@ -5,7 +5,7 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '3.47';
+$VERSION = '3.48';
 $VERSION =~ tr/_//;
 
 @ISA = qw(File::Spec::Unix);