remove some debug relicts

clusterd

@@ -1314,7 +1314,6 @@ sub lsof_rx {
 	my ($host,$s,$pbufref,$olbufref)=@_;
 	my $data;
 	defined $s->recv($data,$TCP_MAX*2) or return;
-	#print "$host : received ",length($data),"\n";
 	if (!length($data)) {
 		close $s;
 		--$slave;
@@ -1325,12 +1324,9 @@ sub lsof_rx {
 	while (1) {
 		last if length($$pbufref)<2;
 		my $l=unpack('n',$$pbufref);
-		#print "$host : unpacked length $l\n";
 		last if length($$pbufref)<2+$l;
 		my $msg=substr($$pbufref,2,$l);
 		$$pbufref=substr($$pbufref,2+$l);
-		#print "$host : remaining pbuf length ",length($$pbufref),"\n";
-		#print "$host : message length ",length($msg),"\n";
 		lsof_msg($host,$s,$msg,$olbufref);
 	}
 	Donald::Select::reader_requeue();
@@ -1355,18 +1351,13 @@ sub cmd_rx {
 		exit $exit_value unless $slave;
 		return;
 	}
-	#print "$host received ".length($data),"\n";
 	$$pbufref.=$data;
 	while (1) {
 		last if length($$pbufref)<2;
 		my $l=unpack('n',$$pbufref);
-		#print "$host : unpacked length $l\n";
-		#die "$host: to long" if $l>1024;
 		last if length($$pbufref)<2+$l;
 		my $msg=substr($$pbufref,2,$l);
 		$$pbufref=substr($$pbufref,2+$l);
-		#print "$host : remaining pbuf length ",length($$pbufref),"\n";
-		#print "$host : message length ",length($msg),"\n";
 		cmd_msg($host,$s,$msg,$olbufref,$elbufref);
 	}
 	Donald::Select::reader_requeue();