Removed
Link Here
|
1 |
Description: Fix FTBFS with OCaml 4.05.0 |
2 |
Author: Stephane Glondu <glondu@debian.org> |
3 |
Bug-Debian: https://bugs.debian.org/870150 |
4 |
Last-Update: 2017-08-01 |
5 |
|
6 |
--- sks-1.1.6.orig/eventloop.ml |
7 |
+++ sks-1.1.6/eventloop.ml |
8 |
@@ -26,6 +26,7 @@ open MoreLabels |
9 |
open Printf |
10 |
open Common |
11 |
open Packet |
12 |
+let unix_socket = Unix.socket |
13 |
module Unix = UnixLabels |
14 |
open Unix |
15 |
|
16 |
@@ -129,7 +130,7 @@ let create_sock addr = |
17 |
let domain = |
18 |
Unix.domain_of_sockaddr addr in |
19 |
let sock = |
20 |
- socket ~domain ~kind:SOCK_STREAM ~protocol:0 in |
21 |
+ unix_socket domain SOCK_STREAM 0 in |
22 |
setsockopt sock SO_REUSEADDR true; |
23 |
if domain = PF_INET6 then |
24 |
setsockopt sock IPV6_ONLY true; |
25 |
--- sks-1.1.6.orig/reconComm.ml |
26 |
+++ sks-1.1.6/reconComm.ml |
27 |
@@ -26,6 +26,7 @@ open Printf |
28 |
open Common |
29 |
open Packet |
30 |
|
31 |
+let unix_socket = Unix.socket |
32 |
module Unix = UnixLabels |
33 |
module Map = PMap.Map |
34 |
|
35 |
@@ -37,10 +38,10 @@ open DbMessages |
36 |
|
37 |
(** send DbMessages message and wait for response *) |
38 |
let send_dbmsg msg = |
39 |
- let s = Unix.socket |
40 |
- ~domain:(Unix.domain_of_sockaddr db_command_addr) |
41 |
- ~kind:Unix.SOCK_STREAM |
42 |
- ~protocol:0 in |
43 |
+ let s = unix_socket |
44 |
+ (Unix.domain_of_sockaddr db_command_addr) |
45 |
+ Unix.SOCK_STREAM |
46 |
+ 0 in |
47 |
protect ~f:(fun () -> |
48 |
Unix.connect s ~addr:db_command_addr; |
49 |
let cin = Channel.sys_in_from_fd s in |
50 |
@@ -54,10 +55,10 @@ let send_dbmsg msg = |
51 |
|
52 |
(** send DbMessages message, don't wait for response *) |
53 |
let send_dbmsg_noreply msg = |
54 |
- let s = Unix.socket |
55 |
- ~domain:(Unix.domain_of_sockaddr db_command_addr) |
56 |
- ~kind:Unix.SOCK_STREAM |
57 |
- ~protocol:0 in |
58 |
+ let s = unix_socket |
59 |
+ (Unix.domain_of_sockaddr db_command_addr) |
60 |
+ Unix.SOCK_STREAM |
61 |
+ 0 in |
62 |
protect ~f:(fun () -> |
63 |
Unix.connect s ~addr:db_command_addr; |
64 |
let cout = Channel.sys_out_from_fd s in |
65 |
@@ -75,10 +76,10 @@ let is_content_type line = |
66 |
let http_status_ok_regexp = Str.regexp "^HTTP/[0-9]+\\.[0-9]+ 2" |
67 |
|
68 |
let get_keystrings_via_http addr hashes = |
69 |
- let s = Unix.socket |
70 |
- ~domain:(Unix.domain_of_sockaddr addr) |
71 |
- ~kind:Unix.SOCK_STREAM |
72 |
- ~protocol:0 in |
73 |
+ let s = unix_socket |
74 |
+ (Unix.domain_of_sockaddr addr) |
75 |
+ Unix.SOCK_STREAM |
76 |
+ 0 in |
77 |
protect ~f:(fun () -> |
78 |
Unix.bind s ~addr:(match_client_recon_addr addr); |
79 |
Unix.connect s ~addr; |
80 |
--- sks-1.1.6.orig/sks_do.ml |
81 |
+++ sks-1.1.6/sks_do.ml |
82 |
@@ -27,6 +27,7 @@ open Printf |
83 |
open Common |
84 |
open Packet |
85 |
open DbMessages |
86 |
+let unix_socket = Unix.socket |
87 |
module Unix = UnixLabels |
88 |
module PTree = PrefixTree |
89 |
module Map = PMap.Map |
90 |
@@ -37,10 +38,10 @@ let fail reason = |
91 |
exit (-1) |
92 |
|
93 |
let send_dbmsg msg = |
94 |
- let s = Unix.socket |
95 |
- ~domain:(Unix.domain_of_sockaddr db_command_addr) |
96 |
- ~kind:Unix.SOCK_STREAM |
97 |
- ~protocol:0 in |
98 |
+ let s = unix_socket |
99 |
+ (Unix.domain_of_sockaddr db_command_addr) |
100 |
+ Unix.SOCK_STREAM |
101 |
+ 0 in |
102 |
protect ~f:(fun () -> |
103 |
Unix.connect s ~addr:db_command_addr; |
104 |
let cin = Channel.sys_in_from_fd s in |
105 |
--- sks-1.1.6.orig/tester.ml |
106 |
+++ sks-1.1.6/tester.ml |
107 |
@@ -26,6 +26,7 @@ open Printf |
108 |
open Common |
109 |
open Packet |
110 |
open DbMessages |
111 |
+let unix_socket = Unix.socket |
112 |
module Unix = UnixLabels |
113 |
|
114 |
let settings = { |
115 |
@@ -46,10 +47,10 @@ module Keydb = Keydb.Safe |
116 |
|
117 |
|
118 |
let send_msg addr msg = |
119 |
- let s = Unix.socket |
120 |
- ~domain:(Unix.domain_of_sockaddr addr) |
121 |
- ~kind:Unix.SOCK_STREAM |
122 |
- ~protocol:0 in |
123 |
+ let s = unix_socket |
124 |
+ (Unix.domain_of_sockaddr addr) |
125 |
+ Unix.SOCK_STREAM |
126 |
+ 0 in |
127 |
protect ~f:( fun () -> |
128 |
Unix.connect s ~addr:addr; |
129 |
let cin = Channel.sys_in_from_fd s |
130 |
@@ -62,10 +63,10 @@ let send_msg addr msg = |
131 |
~finally:(fun () -> Unix.close s) |
132 |
|
133 |
let send_msg_noreply addr msg = |
134 |
- let s = Unix.socket |
135 |
- ~domain:(Unix.domain_of_sockaddr addr) |
136 |
- ~kind:Unix.SOCK_STREAM |
137 |
- ~protocol:0 in |
138 |
+ let s = unix_socket |
139 |
+ (Unix.domain_of_sockaddr addr) |
140 |
+ Unix.SOCK_STREAM |
141 |
+ 0 in |
142 |
protect ~f:(fun () -> |
143 |
Unix.connect s ~addr:addr; |
144 |
let cout = Channel.sys_out_from_fd s in |