diff options
Diffstat (limited to 'lib/OpenSLX/Utils.pm')
-rw-r--r-- | lib/OpenSLX/Utils.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/OpenSLX/Utils.pm b/lib/OpenSLX/Utils.pm index 5b6a3eb0..096b6e5f 100644 --- a/lib/OpenSLX/Utils.pm +++ b/lib/OpenSLX/Utils.pm @@ -624,7 +624,7 @@ sub grabLock local $| = 1; my $waiting; while(!(sysopen($lockFH, $lockFile, O_RDWR | O_CREAT | O_EXCL) - && print $lockFH getpgrp() . "\n")) { + && syswrite($lockFH, getpgrp() . "\n"))) { if ($! == 13) { die _tr( qq[Unable to create lock "%s", giving up!], $lockFile |