_perl_abs_path() symlink tests fail on QNX Neutrino

diff --git a/dist/Cwd/t/cwd.t b/dist/Cwd/t/cwd.t
index f7b03ed..62426ff 100644 (file)
--- a/dist/Cwd/t/cwd.t
+++ b/dist/Cwd/t/cwd.t
@@ -183,7 +183,7 @@ rmtree($test_dirs[0], 0, 0);
 }
 
 SKIP: {
-    skip "no symlinks on this platform", 2+$EXTRA_ABSPATH_TESTS unless $Config{d_symlink};
+    skip "no symlinks on this platform", 2+$EXTRA_ABSPATH_TESTS unless $Config{d_symlink} && $^O !~ m!^(qnx|nto)!;
 
     my $file = "linktest";
     mkpath([$Test_Dir], 0, 0777);