math/unuran/files/patch-src__utils__stream.c


1
2
3
4
5
6
7
8
9
10

--- src/utils/stream.c.orig	2009-06-23 04:04:56.000000000 -0400
+++ src/utils/stream.c	2009-06-23 04:21:12.000000000 -0400
@@ -329,6 +329,7 @@
 
   /* o.k. */
   *ar = data;
+  fclose(fp);
   return n_data;
 
   /* ------------------------------------------------------- */