Minor bug fix.

f1834686 · Leigh B Stoller · 548cb7e2 · f1834686
Commit f1834686 authored Sep 18, 2013 by Leigh B Stoller
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

clientside/tmcc/common/libtestbed.pm clientside/tmcc/common/libtestbed.pm +1 -1

No files found.
--- a/clientside/tmcc/common/libtestbed.pm
+++ b/clientside/tmcc/common/libtestbed.pm
@@ -318,7 +318,7 @@ sub TBScriptLock($;$$$)
 	my $ltype = ($shared ? LOCK_SH : LOCK_EX);
 	while (flock(LOCK, $ltype|LOCK_NB) == 0) {
 	    return TBSCRIPTLOCK_WOULDBLOCK()
-		if ($flags & TBSCRIPTLOCK_NONBLOCKING());
+		if (defined($flags) && ($flags & TBSCRIPTLOCK_NONBLOCKING()));
 	    
 	    print "Another $token is in progress (${tries}s). Waiting ...\n"
 		if (($tries++ % 60) == 0);