Delete killtree method in Cluster.pm as it depends on Proc::ProcessTable and isn't actually used anywhere

kelvich · kelvich · commit 75ce47bb6918 · 2017-02-15T18:20:59.000+03:00
diff --git a/contrib/mmts/Cluster.pm b/contrib/mmts/Cluster.pm
@@ -3,7 +3,6 @@ package Cluster;
 use strict;
 use warnings;
 
-use Proc::ProcessTable;
 use PostgresNode;
 use TestLib;
 use Test::More;
@@ -166,45 +165,6 @@ sub stopid
 	return stopnode($self->{nodes}->[$idx]);
 }
 
-sub killtree
-{
-	my $root = shift;
-	diag("killtree $root\n");
-
-	my $t = new Proc::ProcessTable;
-
-	my %parent = ();
-	#my %cmd = ();
-	foreach my $p (@{$t->table}) {
-		$parent{$p->pid} = $p->ppid;
-	#	$cmd{$p->pid} = $p->cmndline;
-	}
-
-	if (!defined $root) {
-		return;
-	}
-	my @queue = ($root);
-	my @killist = ();
-
-	while (scalar @queue) {
-		my $victim = shift @queue;
-		while (my ($pid, $ppid) = each %parent) {
-			if ($ppid == $victim) {
-				push @queue, $pid;
-			}
-		}
-		diag("SIGSTOP to $victim");
-		kill 'STOP', $victim;
-		unshift @killist, $victim;
-	}
-
-	diag("SIGKILL to " . join(' ', @killist));
-	kill 'KILL', @killist;
-	#foreach my $victim (@killist) {
-	#	print("kill $victim " . $cmd{$victim} . "\n");
-	#}
-}
-
 sub stop
 {
 	my ($self, $mode) = @_;
