--- projects/cms/source/ihost/libstatgrab/process_stats.c	2002/05/18 18:15:56	1.3
+++ projects/cms/source/ihost/libstatgrab/process_stats.c	2002/05/19 12:27:32	1.4
@@ -118,19 +118,24 @@ char *get_process_stats(){
 			return NULL;
       		}
 
-      	while((line=fpgetline(f)) != NULL){
-         	if(strncasecmp(line,"State:",6)==0) break;
-      	}
+      		while((line=fpgetline(f)) != NULL){
+         		if(strncasecmp(line,"State:",6)==0) break;
+      		}
 
-      	line_p=line;
-      	for(;*line_p++ != '\t';);
+     	 	line_p=line;
+      		for(;*line_p++ != '\t';);
 
 
-      	if(*line_p=='R') running++;
-      	if(*line_p=='S') sleeping++;
-      	if(*line_p=='Z') zombie++;
-      	if(*line_p=='T') stopped++;
-      	if(*line_p=='D') stopped++;
+      		if(*line_p=='R') running++;
+      		if(*line_p=='S') sleeping++;
+      		if(*line_p=='Z') zombie++;
+      		if(*line_p=='T') stopped++;
+      		if(*line_p=='D') stopped++;
+			
+       		if ((fclose(f)) != 0) {
+			errf("Failed to close file (%m)");
+		        return NULL;
+	      	}
 
     	}
     	closedir(procdir);