From e49e41725abbd851e501855c4139b4826093ba0d Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Sun, 22 Apr 2012 20:49:39 +0000
Subject: unposted: add test for valid identifier to 30431

---
 Src/subst.c | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'Src/subst.c')

diff --git a/Src/subst.c b/Src/subst.c
index 079d9efde..932f41287 100644
--- a/Src/subst.c
+++ b/Src/subst.c
@@ -2879,7 +2879,14 @@ paramsubst(LinkList l, LinkNode n, char **str, int qt, int pf_flags)
     } else if (inbrace && (*s == '|' || *s == Bar ||
 			   *s == '*' || *s == Star)) {
 	int intersect = (*s == '*' || *s == Star);
-	char **compare = getaparam(++s), **ap, **apsrc;
+	char **compare, **ap, **apsrc;
+	++s;
+	if (*itype_end(s, IIDENT, 0)) {
+	    untokenize(s);
+	    zerr("not an identifier: %s", s);
+	    return NULL;
+	}
+	compare = getaparam(s);
 	if (compare) {
 	    HashTable ht = newuniqtable(arrlen(compare)+1);
 	    int present;
-- 
cgit 1.4.1