This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
_perl_abs_path() symlink tests fail on QNX Neutrino
[perl5.git] / dist / Cwd / t / cwd.t
index f7b03ed..62426ff 100644 (file)
@@ -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);