VMS needs to close 2 files when out of file numbers

2 files changed, 8 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 07ffd0a6..77a8ffbc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2016-01-25         John E. Malmberg      <wb8tyw@qsl.net>
+
+	* io.c (redirect): Need to call close_one more than once after
+	  running out of file handles.
+
 2016-01-25         Arnold D. Robbins     <arnold@skeeve.com>
 
 	* NEWS: Document VMS support updated.
diff --git a/io.c b/io.c
index 8b95b3f1..d700d87a 100644
--- a/io.c
+++ b/io.c
@@ -1001,8 +1001,10 @@ redirect(NODE *redir_exp, int redirtype, int *errflg)
                                  (vaxc$errno == SS$_EXQUOTA ||
                                   vaxc$errno == SS$_EXBYTLM ||
                                   vaxc$errno == RMS$_ACC ||
-				  vaxc$errno == RMS$_SYN))
+				  vaxc$errno == RMS$_SYN)) {
 				close_one();
+				close_one();
+			}
 #endif
 			else {
 				/*