[Mldonkey-commits] Changes to mldonkey/src/utils/lib/unix32.ml

[mldonkey-commits]

Index: mldonkey/src/utils/lib/unix32.ml
diff -u mldonkey/src/utils/lib/unix32.ml:1.37 
mldonkey/src/utils/lib/unix32.ml:1.38
--- mldonkey/src/utils/lib/unix32.ml:1.37       Sun Aug 28 11:09:14 2005
+++ mldonkey/src/utils/lib/unix32.ml    Mon Aug 29 14:54:59 2005
@@ -435,9 +435,11 @@
       let fd = FDCache.local_force_fd file_out true in
       try 
         let v = f fd zero in
+        FDCache.close file_out;
         Sys.remove temp_file;
         v
       with e -> 
+          FDCache.close file_out;
           Sys.remove temp_file;
           raise e