From 4cd35390242bc3e7720dd9831e4bd03e55c636e2 Mon Sep 17 00:00:00 2001 From: Paul Smith Date: Wed, 1 Feb 2006 07:54:22 +0000 Subject: Various updates, mainly to the Windows port, from Eli Zaretskii and Markus Maurhart. --- tests/scripts/options/symlinks | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'tests/scripts/options/symlinks') 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 -- cgit v1.2.3