[GRASS-SVN] r40735 - grass/branches/releasebranch_6_4/raster/r.external

[svn_grass at osgeo.org]

Author: martinl
Date: 2010-01-29 09:48:01 -0500 (Fri, 29 Jan 2010)
New Revision: 40735

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


Modified: grass/branches/releasebranch_6_4/raster/r.external/main.c
===================================================================
--- grass/branches/releasebranch_6_4/raster/r.external/main.c	2010-01-29 14:44:54 UTC (rev 40734)
+++ grass/branches/releasebranch_6_4/raster/r.external/main.c	2010-01-29 14:48:01 UTC (rev 40735)
@@ -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);
 }