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

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

1 files changed, 3 insertions, 0 deletions

diff --git a/t/io/fs.t b/t/io/fs.t
index 78d22e2959..5e82b45d0a 100644
--- 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 =