lstat->size returns zero on Windows

This fixes issue dagolden#269.
hakonhagland · Nov 19, 2022 · 74e55cd · 74e55cd
1 parent aee530f
commit 74e55cd
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/t/filesystem.t b/t/filesystem.t
@@ -417,7 +417,12 @@ SKIP: {
     $file->spew("Hello World\n");
     skip "symlink unavailable", 1 unless has_symlinks();
     eval { symlink $file => $link };
-    ok( $link->lstat->size, "lstat" );
+    if ($^O eq "MSWin32") {
+        ok( $link->lstat->size == 0, "lstat->size returns zero on Windows" );
+    }
+    else {
+        ok( $link->lstat->size, "lstat->size returns nonzero" );
+    }
     SKIP: {
         skip "realpath of symlink not working correctly on Windows for perl <= 5.37.5"
            if $^O eq "MSWin32" and "$]" <= 5.037005;