--- rbclient.pl	2009-06-25 22:02:26.000000000 +0200
+++ rbclient.pl.new 2009-06-25 23:30:14.000000000 +0200
@@ -229,6 +229,7 @@
$busy += $builds{$id}{cores};
}
else {
+ setpgrp;
$pipe->writer();
$pipe->autoflush();
my $starttime = time();
@@ -515,7 +516,7 @@
{
my ($id) = @_;
my $pid = $builds{$id}{pid};
- kill 9, $pid;
+ kill 9, -$pid;
print "Killed build $id\n";
waitpid $pid, 0;