--- ray/src/common/rglfile.c	2003/11/14 17:22:06	3.10
+++ ray/src/common/rglfile.c	2019/05/04 00:36:58	3.12
@@ -1,5 +1,5 @@
 #ifndef lint
-static const char	RCSid[] = "$Id: rglfile.c,v 3.10 2003/11/14 17:22:06 schorsch Exp $";
+static const char	RCSid[] = "$Id: rglfile.c,v 3.12 2019/05/04 00:36:58 greg Exp $";
 #endif
 /*
  * Load Radiance object(s) and create OpenGL display lists
@@ -21,8 +21,8 @@ FUN  ofun[NUMOTYPE] = INIT_OTYPE;
 static int	nextlist, nlistleft = 0;
 
 
-static void
-initotypes()			/* initialize ofun array */
+void
+initotypes(void)			/* initialize ofun array */
 {
 	if (ofun[OBJ_SPHERE].funp == o_sphere)
 		return;			/* already done */
@@ -184,7 +184,7 @@ char	*inpspec;
 	}
 	if (inpspec[0] == '!')
 		pclose(infp);
-	else
+	else if (infp != stdin)
 		fclose(infp);
 }