diff options
author | Thibault Duponchelle <thibault.duponchelle@gmail.com> | 2021-07-08 15:08:47 +0000 |
---|---|---|
committer | Leon Timmermans <fawaka@gmail.com> | 2021-07-10 00:16:24 +0200 |
commit | fa486af45076a1137d9d93dbe878c06c1df2c149 (patch) | |
tree | 30cbe316a6cbd426820b07f21129be4c620f8eb0 /dist/PathTools | |
parent | 158b05f88107501586f35dde9afd3c1444e148e1 (diff) | |
download | perl-fa486af45076a1137d9d93dbe878c06c1df2c149.tar.gz |
get working directory on a non existing path returns a value and no errno on Haiku
Diffstat (limited to 'dist/PathTools')
-rw-r--r-- | dist/PathTools/Cwd.pm | 2 | ||||
-rw-r--r-- | dist/PathTools/t/cwd_enoent.t | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/dist/PathTools/Cwd.pm b/dist/PathTools/Cwd.pm index a5f86a411b..fc040f4304 100644 --- a/dist/PathTools/Cwd.pm +++ b/dist/PathTools/Cwd.pm @@ -3,7 +3,7 @@ use strict; use Exporter; -our $VERSION = '3.81'; +our $VERSION = '3.82'; my $xs_version = $VERSION; $VERSION =~ tr/_//d; diff --git a/dist/PathTools/t/cwd_enoent.t b/dist/PathTools/t/cwd_enoent.t index 2e94bad758..0fe3834715 100644 --- a/dist/PathTools/t/cwd_enoent.t +++ b/dist/PathTools/t/cwd_enoent.t @@ -31,6 +31,9 @@ foreach my $type (qw(regular perl)) { skip "getcwd() doesn't fail on non-existent directories on this platform", 4 if $type eq 'regular' && $^O eq 'dragonfly'; + skip "getcwd() doesn't fail on non-existent directories on this platform", 4 + if $type eq 'regular' && $^O eq 'haiku'; + no warnings "redefine"; local *Cwd::abs_path = \&Cwd::_perl_abs_path if $type eq "perl"; local *Cwd::getcwd = \&Cwd::_perl_getcwd if $type eq "perl"; |