Parent Directory | Revision Log | Patch
revision 1.11 by spiralvoice, Sat Dec 3 16:20:26 2005 UTC | revision 1.12 by spiralvoice, Tue Dec 6 20:26:40 2005 UTC | |
---|---|---|
# | Line 535 let dump_socket t buf = | Line 535 let dump_socket t buf = |
535 | ||
536 | let create name fd handler = | let create name fd handler = |
537 | if !debug then begin | if !debug then begin |
538 | lprintf "[fd %d %s]\n" (Obj.magic fd) name; | lprintf_nl "[fd %d %s]\n" (Obj.magic fd) name; |
539 | end; | end; |
540 | MlUnix.set_close_on_exec fd; | MlUnix.set_close_on_exec fd; |
541 | let t = { | let t = { |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |