X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/e27ef2c6aab3a2a8051314bd37bb3b2386775f36..3745aa61ef489e4b143b5c753a006d0613a0297f:/binipstuff.pas

diff --git a/binipstuff.pas b/binipstuff.pas
index ae3d23a..1f5fed4 100644
--- a/binipstuff.pas
+++ b/binipstuff.pas
@@ -9,7 +9,9 @@ interface
 {$include lcoreconfig.inc}
 
 uses
-  {$ifndef win32}{$ifdef ipv6}sockets,{$endif}{$endif}
+{$ifndef win32}
+  sockets,
+{$endif}
   pgtypes;
 
 {$ifdef fpc}
@@ -382,6 +384,13 @@ begin
       end;
     end;
   end;
+
+  {run length atleast 2 0 words}
+  if (runlength = 1) then begin
+    runlength := 0;
+    runbegin := 0;
+  end;
+
   result := '';
   for a := 0 to runbegin-1 do begin
     if (a <> 0) then result := result + ':';