[GRASS-SVN] r40733 - grass/trunk/raster/r.external

[svn_grass at osgeo.org]

Author: glynn
Date: 2010-01-29 09:22:27 -0500 (Fri, 29 Jan 2010)
New Revision: 40733

Modified:
   grass/trunk/raster/r.external/main.c
Log:
Close f_format file (fix #895)


Modified: grass/trunk/raster/r.external/main.c
===================================================================
--- grass/trunk/raster/r.external/main.c	2010-01-29 11:03:33 UTC (rev 40732)
+++ grass/trunk/raster/r.external/main.c	2010-01-29 14:22:27 UTC (rev 40733)
@@ -441,6 +441,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);
 }