This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Portable blocksize (replaces #4171).
[perl5.git] / t / lib / syslfs.t
index f4959f7..c3f7de3 100644 (file)
@@ -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 &&