diff options
author | Tony Cook <tony@develop-help.com> | 2022-07-13 15:06:17 +1000 |
---|---|---|
committer | ℕicolas ℝ <nicolas@atoomic.org> | 2022-07-20 14:59:40 -0600 |
commit | 0d6ab5e425e3febf425c3d299fde06c1145f9e13 (patch) | |
tree | 6a84f1a0b56293d65b453c26fe68ee107e65add0 | |
parent | be2d063f33e907f7892a8ff7e6f73cf7aa86397a (diff) | |
download | perl-0d6ab5e425e3febf425c3d299fde06c1145f9e13.tar.gz |
release 6.2 of Dragonfly BSD fixed getcwd()
See:
https://www.dragonflybsd.org/releases/changelog/62/
which lists ticket 3250.
-rw-r--r-- | dist/PathTools/t/cwd_enoent.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/dist/PathTools/t/cwd_enoent.t b/dist/PathTools/t/cwd_enoent.t index 0fe3834715..004d8d26d7 100644 --- a/dist/PathTools/t/cwd_enoent.t +++ b/dist/PathTools/t/cwd_enoent.t @@ -28,8 +28,9 @@ foreach my $type (qw(regular perl)) { # https://github.com/Perl/perl5/issues/16525 # https://bugs.dragonflybsd.org/issues/3250 + my $osver = sprintf("%d%03d", ($Config{osvers} =~ /(\d+)/g)); skip "getcwd() doesn't fail on non-existent directories on this platform", 4 - if $type eq 'regular' && $^O eq 'dragonfly'; + if $type eq 'regular' && $^O eq 'dragonfly' && $osver < 6002; skip "getcwd() doesn't fail on non-existent directories on this platform", 4 if $type eq 'regular' && $^O eq 'haiku'; |