From 2e48eceb1ad2b7b33170d7104e94351cc7231e51 Mon Sep 17 00:00:00 2001
From: Peter Stephenson
Date: Fri, 17 Apr 2015 22:43:38 +0100
Subject: 34921: handle error in recursive par_event().
Here documents in an interrupted list caused bad juju.
---
Src/parse.c | 1 +
1 file changed, 1 insertion(+)
(limited to 'Src/parse.c')
diff --git a/Src/parse.c b/Src/parse.c
index 91a81e1ff..985eb8e71 100644
--- a/Src/parse.c
+++ b/Src/parse.c
@@ -605,6 +605,7 @@ par_event(int endtok)
if (!par_event(endtok)) {
ecused = oec;
ecbuf[p] |= wc_bdata(Z_END);
+ return errflag ? 0 : 1;
}
}
return 1;
--
cgit 1.4.1