1 files changed, 4 insertions, 1 deletions
diff --git a/lib/File/Copy.t b/lib/File/Copy.t
index 57d9478a68..f21c871316 100644
--- a/lib/File/Copy.t
+++ b/lib/File/Copy.t
@@ -164,7 +164,10 @@ for my $cross_partition_test (0..1) {
     open(F, ">", "file-$$") or die $!;
     print F "dummy content\n";
     close F;
-    symlink("file-$$", "symlink-$$") or die $!;
+    if (!symlink("file-$$", "symlink-$$")) {
+        unlink "file-$$";
+        skip "Can't create symlink", 3;
+    }
 
     my $warnings = '';
     local $SIG{__WARN__} = sub { $warnings .= join '', @_ };