diff options
| author | Paul Smith <psmith@gnu.org> | 2006-02-01 07:54:22 +0000 |
|---|---|---|
| committer | Paul Smith <psmith@gnu.org> | 2006-02-01 07:54:22 +0000 |
| commit | 4cd35390242bc3e7720dd9831e4bd03e55c636e2 (patch) | |
| tree | 08930384ac32dd0cf2f910272ad38f76aaef2811 /tests | |
| parent | 64e16d6c00a59fcff9681e032ac8dbec46d3e960 (diff) | |
| download | gunmake-4cd35390242bc3e7720dd9831e4bd03e55c636e2.tar.gz | |
Various updates, mainly to the Windows port, from Eli Zaretskii and
Markus Maurhart.
Diffstat (limited to 'tests')
| -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 |