[GRASS-SVN] r55836 - grass/branches/releasebranch_6_4/raster/r.in.gridatb

[svn_grass at osgeo.org]

Author: hamish
Date: 2013-04-16 22:47:09 -0700 (Tue, 16 Apr 2013)
New Revision: 55836

Modified:
   grass/branches/releasebranch_6_4/raster/r.in.gridatb/file_io.c
Log:
avoid fclose()ing an already deallocated pointer (#1316, backport from devbr6)

Modified: grass/branches/releasebranch_6_4/raster/r.in.gridatb/file_io.c
===================================================================
--- grass/branches/releasebranch_6_4/raster/r.in.gridatb/file_io.c	2013-04-17 03:02:55 UTC (rev 55835)
+++ grass/branches/releasebranch_6_4/raster/r.in.gridatb/file_io.c	2013-04-17 05:47:09 UTC (rev 55836)
@@ -61,7 +61,8 @@
 	G_put_f_raster_row(fd, cell);
     }
     G_percent(i, cellhd.rows, 2);
-    fclose(fp);
+    if(fp)
+	fclose(fp);
     G_close_cell(fd);
 
     G_put_cell_title(oname, buf);