[Git][ocaml-team/ocaml-cry][master] 3 commits: New upstream version 1.0.3

Kyle Robbertze pushed to branch master at Debian OCaml Maintainers / ocaml-cry

Commits:

aac8a37f
by Kyle Robbertze at 2024-04-06T09:29:27+01:00
```
New upstream version 1.0.3
```

a15577a4

by Kyle Robbertze at 2024-04-06T09:29:28+01:00

Update upstream source from tag 'upstream/1.0.3'

Update to upstream version '1.0.3'
with Debian dir 51813f45f7f70593709b39f1a87e7efc499e9a22

17a0aeee
by Kyle Robbertze at 2024-04-06T09:31:50+01:00
```
prepare upload to unstable
```

Changes:

CHANGES

 +1.0.3 (2024-03-18)
 +=====
 +* Raise a proper error when non-blocking connection
 +  fails.
 +* Fix poll segfault.
++
 .0.2 (2024-01-08)
  ======
  * Use `poll` for select when available.

cry.opam

  # This file is generated by dune, edit dune-project instead
  opam-version: "2.0"
 -version: "1.0.2"
 +version: "1.0.3"
  synopsis: "OCaml client for the various icecast & shoutcast source protocols"
  description:
    "The cry library is an implementation of the various icecast & shoutcast protocols to connect to streaming servers such as icecast"

debian/changelog

 +ocaml-cry (1.0.3-1) unstable; urgency=medium
++
 +  * New upstream version 1.0.3
++
 + -- Kyle Robbertze <paddatrapper@debian.org>  Sat, 06 Apr 2024 09:29:34 +0100
++
  ocaml-cry (1.0.2-2) unstable; urgency=medium
    * Team upload

dune-project

  (lang dune 2.8)
 -(version 1.0.2)
 +(version 1.0.3)
  (name cry)
  (source (github savonet/ocaml-cry))
  (license GPL-2.0-only)

src/cry.ml

@@ -163,14 +163,15 @@ let connect_sockaddr ?bind_address ?timeout sockaddr =
       Printexc.raise_with_backtrace exn bt);
    let do_timeout = timeout <> None in
    let check_timeout () =
 -    match timeout with
 -      | Some timeout ->
 -          (* Block in a select call for [timeout] seconds. *)
 -          let _, w, _ = select [] [socket] [] timeout in
 -          if w = [] then raise Timeout;
 +    let timeout = Option.get timeout in
 +    (* Block in a select call for [timeout] seconds. *)
 +    let _, w, _ = select [] [socket] [] timeout in
 +    if w = [] then raise Timeout;
 +    match Unix.getsockopt_error socket with
 +      | Some err -> raise (Unix.Unix_error (err, "connect", ""))
 +      | None ->
            Unix.clear_nonblock socket;
            socket
 -      | None -> assert false
    in
    let finish () =
      try

src/cry_stubs.c


       nwrite++;
     }
     if (fds[n].revents & POLLERR) {
-      Store_field(_pread, nerr, Val_fd(fds[n].fd));
+      Store_field(_perr, nerr, Val_fd(fds[n].fd));
       nerr++;
     }
   }