From 2efbbd9e16228e103c15971492f43bf90e6f93cd Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Tue, 9 Jun 2009 17:59:03 +0000
Subject: * fixed pretty stupid bug that involved mixed use of
 bufferd/non-buffered IO   which caused locks to hang even in the same
 process-group (for which they   should be recursable) - closes #451

git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2943 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 lib/OpenSLX/Utils.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/OpenSLX/Utils.pm')

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
-- 
cgit v1.2.3-55-g7522