locken von DB_File unter strict

[alex]

hi

Ich stelle gerade ein älteres Programm auf "use strict" um, was mir nicht ganz gelingt. Folgender Code:

__BEGIN__

#!/usr/bin/perl -w

use strict;

my $db1 = tie %HASH, "DB_File", $file, O_CREAT | O_RDWR, 0644 or die "Can't open db_file: $!\n";

my $fd  = $db1->fd();

open DATAFILE, "+<&=$fd" or die "Fehler beim sicheren Öffnen: $!\n";
flock(DATAFILE, LOCK_SH ) or die "Konnte Lock nicht bekommen: $!";

undef $db1;
untie HASH;

__END__

Folgende Fehlermeldung bekomme ich:
Bareword "LOCK_SH" not allowed while "strict subs" in use

hat einer ein Tipp?

danke, alex

[alex]

argl bemüht euch nicht .-)

use Fcntl ':flock';

solltet ihr auch nicht vergessen...

alex