[perl #21442] fix fs.t failures on Win32 FAT drive

See ticket for details. This commit does not fix all issues in #21442.

diff --git a/t/io/fs.t b/t/io/fs.t
index 78d22e2..5e82b45 100644 (file)
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -44,6 +44,9 @@ if (defined &Win32::IsWinNT && Win32::IsWinNT()) {
         $has_link            = 1;
         $accurate_timestamps = 1;
     }
+    else {
+        $has_link            = 0;
+    }
 }
 
 my $needs_fh_reopen =