From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 17 Sep 1999 13:47:49 +0000 (+0000)
Subject: Portable blocksize (replaces #4171).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2ef4205bf93fa5838a18d15b355bcadc44c1c973;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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 &&