From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 17 Sep 1999 13:08:54 +0000 (+0000)
Subject: (replaced by #4172)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f3a7380e68602194596be8ef9704a331ec0aa15;p=p5sagit%2Fp5-mst-13.2.git

(replaced by #4172)

p4raw-id: //depot/cfgperl@4171
---

diff --git a/t/lib/syslfs.t b/t/lib/syslfs.t
index 1fe5032..f4959f7 100644
--- a/t/lib/syslfs.t
+++ b/t/lib/syslfs.t
@@ -68,7 +68,11 @@ my @s;
 
 print "# @s\n";
 
-my $BLOCKSIZE = 512; # is this really correct everywhere?
+# Is there a portable way to find out what's the unit of st_blocks?
+
+my $BLOCKSIZE = 512;
+
+$BLOCKSIZE = 4096 if $^O eq 'unicos';
 
 unless (@s == 13 &&
 	$s[7] == 1_000_003 &&
diff --git a/t/op/lfs.t b/t/op/lfs.t
index 6003df2..46df014 100644
--- a/t/op/lfs.t
+++ b/t/op/lfs.t
@@ -71,7 +71,11 @@ my @s;
 
 print "# @s\n";
 
-my $BLOCKSIZE = 512; # is this really correct everywhere?
+# Is there a portable way to find out what's the unit of st_blocks?
+
+my $BLOCKSIZE = 512;
+
+$BLOCKSIZE = 4096 if $^O eq 'unicos';
 
 unless (@s == 13 &&
 	$s[7] == 1_000_003 &&