Check that sparse files hold at least a block (bug in eCryptfs: https://bugs.launchpa...

[perl5.git] / ext / Fcntl / t / syslfs.t

diff --git a/ext/Fcntl/t/syslfs.t b/ext/Fcntl/t/syslfs.t
index 7da5e21..f0f1881 100644 (file)
--- a/ext/Fcntl/t/syslfs.t
+++ b/ext/Fcntl/t/syslfs.t
@@ -106,7 +106,8 @@ print "# s2 = @s2\n";
 zap();
 
 unless ($s1[7] == 1_000_003 && $s2[7] == 2_000_003 &&
-       $s1[11] == $s2[11] && $s1[12] == $s2[12]) {
+       $s1[11] == $s2[11] && $s1[12] == $s2[12] &&
+       $s1[12] > 0) {
        print "1..0 # Skip: no sparse files?\n";
        bye;
 }