25 lines
1,008 B
OCaml
25 lines
1,008 B
OCaml
--- syslog.ml.orig 2006-02-23 06:34:35 UTC
|
|
+++ syslog.ml
|
|
@@ -142,18 +142,18 @@ let syslog ?fac lev str =
|
|
let realmsg = ref (Buffer.contents msg) in
|
|
if String.length !realmsg > 1024 then begin
|
|
realmsg := String.sub !realmsg 0 1024;
|
|
- String.blit "<truncated>\000" 0 !realmsg 1012 12
|
|
+ String.blit "<truncated>\000" 0 (Bytes.unsafe_of_string !realmsg) 1012 12
|
|
end;
|
|
begin try
|
|
- ignore (Unix.write loginfo.fd !realmsg 0 (String.length !realmsg))
|
|
+ ignore (Unix.write_substring loginfo.fd !realmsg 0 (String.length !realmsg))
|
|
with
|
|
| Unix.Unix_error(_,_,_) ->
|
|
if List.mem `LOG_CONS loginfo.flags then
|
|
log_console !realmsg
|
|
end;
|
|
if List.mem `LOG_PERROR loginfo.flags then begin
|
|
- ignore (Unix.write Unix.stderr !realmsg 0 (String.length !realmsg));
|
|
- ignore (Unix.write Unix.stderr "\n" 0 1)
|
|
+ ignore (Unix.write_substring Unix.stderr !realmsg 0 (String.length !realmsg));
|
|
+ ignore (Unix.write_substring Unix.stderr "\n" 0 1)
|
|
end
|
|
|
|
let closelog () =
|