|
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 |