Ruzne chovani 5.6 x 5.8?

[Jindroush]

Hojte,

minimalni verze:
use strict;
print $], "\n";
print $^O, "\n";

open OUT, ">test" or die;
my $buf = "a" x 32;
print OUT $buf;
close OUT;
print -s "test", "\n";

open OUT, ">>test" or die;
print tell( OUT );
close OUT;


Vysledky:
5.006001
MSWin32
32
32

5.006
linux
32
32

5.008
linux
32
0


Mam tam chybu ja, nebo je to nedefinovana vlastnost (tj. muze si to
delat, jak chce a je to dobre) nebo je to bug?

-- 
Jindroush <jindroush na nospam.seznam.nospam.cz>
http://jindroush.atari.org - Home of Atari Cartridge Dumping Project
Remove both 'nospam's from the address to reply.