t/op/taint.t: handle symlink requiring anything unavailable

like privileges, or a filesystem without symlink support

diff --git a/t/op/taint.t b/t/op/taint.t
index 73246a0..607a305 100644 (file)
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -1498,7 +1498,11 @@ violates_taint(sub { link $TAINT, '' }, 'link');
        unlink($symlink);
        my $sl = "/something/naughty";
        # it has to be a real path on Mac OS
-       symlink($sl, $symlink) or die "symlink: $!\n";
+       unless (symlink($sl, $symlink)) {
+            skip "symlink not available or no priviliges", 1,
+                if $^O eq "MSWin32";
+            die "symlink: $!\n";
+        }
        my $readlink = readlink($symlink);
        is_tainted($readlink);
        unlink($symlink);