diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2003-03-20 16:24:19 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2003-03-20 16:24:19 +0000 |
| commit | f040e6471feb088ec426c49a0d21bc4fc96db5a0 (patch) | |
| tree | b546fa38a480642bd826edb0ff10c566517c01db | |
| parent | d7aeed43974d053a88fd1b8310dcb412933ceff6 (diff) | |
Ne pas fermer deux fois la socket
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5447 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | otherlibs/threads/Tests/testsocket.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/otherlibs/threads/Tests/testsocket.ml b/otherlibs/threads/Tests/testsocket.ml index b8c04a6df..d0f14cbf5 100644 --- a/otherlibs/threads/Tests/testsocket.ml +++ b/otherlibs/threads/Tests/testsocket.ml @@ -11,7 +11,7 @@ let engine number address = print_int number; print_string ">"; print_string s; print_newline() done with End_of_file -> - close_in ic; close_out oc + close_out oc let main() = let addresses = Array.create (Array.length Sys.argv - 1) inet_addr_any in |