From 0a751838ae37b5872a187e3af3f6d78a73b268f5 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Tom=C3=A1=C5=A1=20Brada?= <tomasbrod@azet.sk>
Date: Tue, 15 Dec 2015 16:45:02 +0100
Subject: [PATCH] Fix broken bucket node search treshold.

---
 dht.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/dht.pas b/dht.pas
index 7b57a5c..1941f2a 100644
--- a/dht.pas
+++ b/dht.pas
@@ -359,7 +359,6 @@ procedure tBucket.Refresh;
   {no usable nodes in this bucket, try to recover from other buckets}
   rv:=0; rvb:=@self;
   GetNextNode(rvb,rv,prefix,desperate);
-  inc(desperate);
   if not assigned(rvb) then begin
    rv:=0; rvb:=Table; {in extreme cases, try the whole table}
    GetNextNode(rvb,rv,prefix,desperate);
@@ -367,7 +366,7 @@ procedure tBucket.Refresh;
   if assigned(rvb) then begin
    writeln('DHT: Refresh (RV) #',rv,' ',string(rvb^.peer[rv].addr));
    lSend(rvb^.peer[rv],prefix);
-  end;
+  end else inc(desperate);
  end else desperate:=3;
  if my
   then wait:=18000+(depth*600)
-- 
2.11.4.GIT