match fn with
| Some filename ->
let outchan = Gzip.open_out filename in
- (try
+ begin try
pp_to_gzipchan strm outchan;
with e ->
Gzip.close_out outchan;
- raise e);
- Gzip.close_out outchan
+ raise e
+ end;
+ Gzip.close_out outchan;
+ HExtlib.chmod 0o664 filename;
| None -> failwith "Can't sent gzipped output to stdout"
else
match fn with
| Some filename ->
let outchan = open_out filename in
- (try
+ begin try
pp_to_outchan strm outchan;
with e ->
close_out outchan;
- raise e);
- close_out outchan
+ raise e
+ end;
+ close_out outchan;
+ HExtlib.chmod 0o664 filename
| None -> pp_to_outchan strm stdout
;;