This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
(replaced by #4172)
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 17 Sep 1999 13:08:54 +0000 (13:08 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 17 Sep 1999 13:08:54 +0000 (13:08 +0000)
p4raw-id: //depot/cfgperl@4171

t/lib/syslfs.t
t/op/lfs.t

index 1fe5032..f4959f7 100644 (file)
@@ -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 &&
index 6003df2..46df014 100644 (file)
@@ -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 &&