41 lines
1.3 KiB
Diff
41 lines
1.3 KiB
Diff
--- a/dist/PathTools/Cwd.pm
|
|
+++ b/dist/PathTools/Cwd.pm
|
|
@@ -659,6 +659,10 @@ if (exists $METHOD_MAP{$^O}) {
|
|
}
|
|
}
|
|
|
|
+# built-in from 5.30
|
|
+*getcwd = \&Internals::getcwd
|
|
+ if !defined &getcwd && defined &Internals::getcwd;
|
|
+
|
|
# In case the XS version doesn't load.
|
|
*abs_path = \&_perl_abs_path unless defined &abs_path;
|
|
*getcwd = \&_perl_getcwd unless defined &getcwd;
|
|
--- a/dist/PathTools/t/cwd.t
|
|
+++ b/dist/PathTools/t/cwd.t
|
|
@@ -10,6 +10,7 @@ chdir 't';
|
|
use Config;
|
|
use File::Spec;
|
|
use File::Path;
|
|
+use Errno qw(EACCES);
|
|
|
|
use lib File::Spec->catdir('t', 'lib');
|
|
use Test::More;
|
|
@@ -208,7 +209,15 @@ SKIP: {
|
|
|
|
like($abs_path, qr|$want$|i, "Cwd::abs_path produced $abs_path");
|
|
like($fast_abs_path, qr|$want$|i, "Cwd::fast_abs_path produced $fast_abs_path");
|
|
- like($pas, qr|$want$|i, "Cwd::_perl_abs_path produced $pas") if $EXTRA_ABSPATH_TESTS;
|
|
+ if ($EXTRA_ABSPATH_TESTS) {
|
|
+ # _perl_abs_path() can fail if some ancestor directory isn't readable
|
|
+ if (defined $pas) {
|
|
+ like($pas, qr|$want$|i, "Cwd::_perl_abs_path produced $pas");
|
|
+ }
|
|
+ else {
|
|
+ is($!+0, EACCES, "check we got the expected error on failure");
|
|
+ }
|
|
+ }
|
|
|
|
rmtree($test_dirs[0], 0, 0);
|
|
1 while unlink $file;
|