Commit f599b9a8 authored by Francesc Guasch's avatar Francesc Guasch
Browse files

refactor(test): lock improved so we parallel tests

parent a606611d
......@@ -1118,12 +1118,10 @@ sub _lock_fh($fh) {
flock($fh, LOCK_EX);
seek($fh, 0, SEEK_END) or die "Cannot seek - $!\n";
print $fh,''.localtime(time)." $0\n";
warn "Locking $fh\n";
$LOCKED_FH{$fh} = $fh;
sub _unlock_fh($fh) {
warn "Unlocking $fh\n";
flock($fh,LOCK_UN) or die "Cannot unlock - $!\n";
close $fh;
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment