Rest ok - LOCK_SH klemmt!

[Beat]

---

Bareword "LOCK_SH" not allowed while "strict subs" in use at GuestBookManager.pl line 328.

---

################################################

Datenausleser für Kontrolle letzter Eintrag.

################################################

open(LASTCONTROL, "<public/guest.csv");
flock(LASTCONTROL, LOCK_SH);
my $zeile = <LASTCONTROL>;
my ($DBName, $DBText1, $DBText2, $DBText3, $DBIp, $DBTag, $DBMonat, $DBJahr, $DBStunden, $DBMinuten, $DBSekunden) = split(/;/,$zeile);
close(LASTCONTROL);

Hinweise zur Fehlermeldung werden dankend angenommen! *ehrlich*

Dein Fehler liegt in Gedankenlosem Copy-Paste, ohne die Dokumentation zu lesen.
LOCK_SH ist offenbar ein Symbol, das es zu importieren gilt.

use Fcntl qw(:flock); #Importiert Symbole für das :flock Pragma

mfg Beat