flock Problem!

[Michael Marzoll]

Benutze folgenden Code um zu überprüfen ob eine Datei geflockt ist, oder so...

Klappt aber nicht :(((

Weiss jemand wieso?

Bzw. sollte es doch funktionieren?

#!/usr/bin/perl
use Fcntl ':flock';

$timeoffset = "0";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = (localtime(time + 3600*$timeoffset));
$date = sprintf("%02d-%02d",$year-100,$mon+1);

open (STAT, "<stat/$date.views");
if(!flock(STAT,2)) {
until ($released eq TRUE) {
if (flock(STAT,2)) {$released=TRUE;}
$x++;
if ($x>100) {
close(STAT);
die;
}}}
flock(STAT,2);
fseek(STAT, 0,0);
@stat = <STAT>;
$stat[0]++;
close (STAT);

open (STAT, ">stat/$date.views");
if(!flock(STAT,2)) {
until ($released eq TRUE) {
if (flock(STAT,2)) {$released=TRUE;}
$x++;
if ($x>100) {
close(STAT);
die;
}}}
flock(STAT,2);
fseek(STAT, 0,0);
print STAT "$stat[0]";
close (STAT);