Portable blocksize (replaces #4171).

p4raw-id: //depot/cfgperl@4172

diff --git a/t/lib/syslfs.t b/t/lib/syslfs.t
index f4959f7..c3f7de3 100644 (file)
--- a/t/lib/syslfs.t
+++ b/t/lib/syslfs.t
@@ -68,11 +68,7 @@ my @s;
 
 print "# @s\n";
 
-# Is there a portable way to find out what's the unit of st_blocks?
-
-my $BLOCKSIZE = 512;
-
-$BLOCKSIZE = 4096 if $^O eq 'unicos';
+my $BLOCKSIZE = $s[11] || 512;
 
 unless (@s == 13 &&
        $s[7] == 1_000_003 &&

diff --git a/t/op/lfs.t b/t/op/lfs.t
index 46df014..dcba630 100644 (file)
--- a/t/op/lfs.t
+++ b/t/op/lfs.t
@@ -71,11 +71,7 @@ my @s;
 
 print "# @s\n";
 
-# Is there a portable way to find out what's the unit of st_blocks?
-
-my $BLOCKSIZE = 512;
-
-$BLOCKSIZE = 4096 if $^O eq 'unicos';
+my $BLOCKSIZE = $s[11] || 512;
 
 unless (@s == 13 &&
        $s[7] == 1_000_003 &&