diff options
Diffstat (limited to 'tests/scripts/options')
| -rw-r--r-- | tests/scripts/options/symlinks | 7 |
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 |