summaryrefslogtreecommitdiff
path: root/tests/scripts/options
diff options
context:
space:
mode:
Diffstat (limited to 'tests/scripts/options')
-rw-r--r--tests/scripts/options/symlinks7
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/scripts/options/symlinks b/tests/scripts/options/symlinks
index d63e222..70cba3c 100644
--- a/tests/scripts/options/symlinks
+++ b/tests/scripts/options/symlinks
@@ -5,7 +5,12 @@ $description = "Test the -L option.";
$details = "Verify that symlink handling with and without -L works properly.";
# Only run these tests if the system sypports symlinks
-if (eval { symlink("",""); 1 }) {
+
+# Apparently the Windows port of Perl reports that it does support symlinks
+# (in that the symlink() function doesn't fail) but it really doesn't, so
+# check for it explicitly.
+
+if ($port_type ne 'W32' && eval { symlink("",""); 1 }) {
# Set up a symlink sym -> dep
# We'll make both dep and targ older than sym