[GRASS-SVN] r40734 - grass/branches/develbranch_6/raster/r.external

[svn_grass at osgeo.org]

Author: martinl
Date: 2010-01-29 09:44:54 -0500 (Fri, 29 Jan 2010)
New Revision: 40734

Modified:
   grass/branches/develbranch_6/raster/r.external/main.c
Log:
glynn: Close f_format file (fix #895)
(merge r40733 from trunk)


Modified: grass/branches/develbranch_6/raster/r.external/main.c
===================================================================
--- grass/branches/develbranch_6/raster/r.external/main.c	2010-01-29 14:22:27 UTC (rev 40733)
+++ grass/branches/develbranch_6/raster/r.external/main.c	2010-01-29 14:44:54 UTC (rev 40734)
@@ -424,6 +424,8 @@
     if (G_fwrite_key_value(fp, key_val) < 0)
 	G_fatal_error(_("Error writing cell_misc/%s/f_format file"), output);
 
+    fclose(fp);
+
     G_free_key_value(key_val);
 }