aboutsummaryrefslogtreecommitdiffstats
path: root/io.c
diff options
context:
space:
mode:
authorJohn Malmberg <wb8tyw@qsl.net>2016-01-26 07:59:56 -0600
committerJohn Malmberg <wb8tyw@qsl.net>2016-01-26 08:10:12 -0600
commit39138de63889a40662461aeca6ac146ccaef90ab (patch)
treedd1dbcb137ea6cf4814a84453dbafe5c54ae5cff /io.c
parent87da302710201b28fe757cde0bf6ef8078aaaed5 (diff)
downloadegawk-39138de63889a40662461aeca6ac146ccaef90ab.tar.gz
egawk-39138de63889a40662461aeca6ac146ccaef90ab.tar.bz2
egawk-39138de63889a40662461aeca6ac146ccaef90ab.zip
VMS needs to close 2 files when out of file numbers
Diffstat (limited to 'io.c')
-rw-r--r--io.c4
1 files changed, 3 insertions, 1 deletions
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 {
/*