sub _optimal_blksize {
    my ($blksize) = @_;

    return $blksize if $blksize and $blksize > 0 and $blksize <= 1_048
+_576;

    8192;
} # end sub _optimal_blksize
[download]

UPDATE: I put the >0 test back in, to remove the rope that might hang someone trying to use a negative size...

Yves / DeMerphq
---
Writing a good benchmark isnt as easy as it might look.