[GRASS-SVN] r50189 - grass/trunk/raster/r.in.gridatb

[svn_grass at osgeo.org]

Author: hamish
Date: 2012-01-14 16:48:55 -0800 (Sat, 14 Jan 2012)
New Revision: 50189

Modified:
   grass/trunk/raster/r.in.gridatb/file_io.c
Log:
avoid fclose()ing an already deallocated pointer (#1316)

Modified: grass/trunk/raster/r.in.gridatb/file_io.c
===================================================================
--- grass/trunk/raster/r.in.gridatb/file_io.c	2012-01-15 00:43:23 UTC (rev 50188)
+++ grass/trunk/raster/r.in.gridatb/file_io.c	2012-01-15 00:48:55 UTC (rev 50189)
@@ -63,7 +63,8 @@
 	Rast_put_f_row(fd, cell);
     }
     G_percent(i, cellhd.rows, 2);
-    fclose(fp);
+    if(fp)
+	fclose(fp);
     Rast_close(fd);
 
     Rast_put_cell_title(oname, buf);