[Expat-checkins] expat/xmlwf readfilemap.c,1.14,1.15

[Karl Waclawek]

Update of /cvsroot/expat/expat/xmlwf
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv7653

Modified Files:
	readfilemap.c 
Log Message:
Fix for issue # 2895533.

Index: readfilemap.c
===================================================================
RCS file: /cvsroot/expat/expat/xmlwf/readfilemap.c,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- readfilemap.c	5 Aug 2006 22:43:57 -0000	1.14
+++ readfilemap.c	12 Nov 2009 16:51:39 -0000	1.15
@@ -58,10 +58,12 @@
   }
   if (fstat(fd, &sb) < 0) {
     perror(name);
+    close(fd);
     return 0;
   }
   if (!S_ISREG(sb.st_mode)) {
     fprintf(stderr, "%s: not a regular file\n", name);
+    close(fd);
     return 0;
   }
   nbytes = sb.st_size;