********> bugfix.24
Author:   Bill Ross
Date:     6/28/01

Programs: carnal

Severity: moderate

Description: Crashes on at least one version of linux when 2 (maybe more)
	files given in STREAM. Reason is a file is closed twice; other
	OS's don't mind this.

Fix: Make the following changes to stream.c:
---------------------------------------------------------------------------
*** OLD stream.c
--- NEW stream.c
***************
*** 247,252 ****
--- 247,253 ----
  	for (i=1; i<serptr->idunion.ser.nfiles; i++) {
  		startser(serptr, i);
  		genclose(serptr->idunion.ser.fileptr, serptr->idunion.ser.name);
+ 		serptr->idunion.ser.fileptr = NULL;
  	}
  
  	/*
***************
*** 293,300 ****
  	 *  if something is already open, close it
  	 */
  
! 	if (serptr->idunion.ser.fileptr != NULL) 
  		genclose(serptr->idunion.ser.fileptr,serptr->idunion.ser.name);
  
  	/*
  	 *  now open the file
--- 294,303 ----
  	 *  if something is already open, close it
  	 */
  
! 	if (serptr->idunion.ser.fileptr != NULL) {
  		genclose(serptr->idunion.ser.fileptr,serptr->idunion.ser.name);
+ 		serptr->idunion.ser.fileptr = NULL;
+ 	}
  
  	/*
  	 *  now open the file
---------------------------------------------------------------------------