nefungujici flock

[Zdenek Merka]

Dobrý den,
mám problém se zamykáním souborů, když spustím níže uvedený program
na Kubuntu 7.04 tak vrátí (-1 a nezamkne soubor) na ostatních
distribucích ve firmě(fedora, debian) to vrátí 0 a zamkne soubor.

Soubor jsem vytvořil touch /tmp/x

#!/usr/bin/perl
use Fcntl ':flock';
use IO::File;
require 'syscall.ph';
open L, '+<', '/tmp/x' || print 'xxx';
print syscall(&SYS_flock,L->fileno(),LOCK_EX);

Nevíte někdo kde by mohl být problém?

Dík Zdeněk Měrka