From: beware <beware@bircd.org>
Date: Fri, 26 Feb 2010 03:43:23 +0000 (+0000)
Subject: ip6bintostr run length atleast 2 0 words
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/ee62c0d008ff4a83ab86597030637636c2fa5d13?ds=sidebyside

ip6bintostr run length atleast 2 0 words

git-svn-id: file:///svnroot/lcore/trunk@85 b1de8a11-f9be-4011-bde0-cc7ace90066a
---

diff --git a/binipstuff.pas b/binipstuff.pas
index 94a0c03..1f5fed4 100644
--- a/binipstuff.pas
+++ b/binipstuff.pas
@@ -384,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 + ':';