[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/daemon/common/guiEncoding.ml
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/daemon/common/guiEncoding.ml |
Date: |
Mon, 28 Nov 2005 09:32:31 -0500 |
Index: mldonkey/src/daemon/common/guiEncoding.ml
diff -u mldonkey/src/daemon/common/guiEncoding.ml:1.41
mldonkey/src/daemon/common/guiEncoding.ml:1.42
--- mldonkey/src/daemon/common/guiEncoding.ml:1.41 Sat Nov 12 22:53:51 2005
+++ mldonkey/src/daemon/common/guiEncoding.ml Mon Nov 28 14:32:28 2005
@@ -569,8 +569,15 @@
| Ip.AddrName s ->
buf_int8 buf 1;
buf_string buf s);
- if proto > 33 then
- buf_bool buf (Ip_set.ip_blocked (Ip.ip_of_addr addr))
+ if proto > 33 then begin
+ let is_blocked =
+ try
+ Ip_set.ip_blocked (Ip.ip_of_addr addr)
+ with _ ->
+ false
+ in
+ buf_bool buf is_blocked
+ end
let buf_server proto buf s =
buf_int buf s.server_num;