From fec6265dfb087ecc8a26a9d8917bcd05bb4b1860 Mon Sep 17 00:00:00 2001 From: "Arnold D. Robbins" Date: Thu, 12 May 2016 18:38:23 +0300 Subject: Fix array indexing to disallow numeric string. --- str_array.c | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'str_array.c') diff --git a/str_array.c b/str_array.c index db24980a..9514d515 100644 --- a/str_array.c +++ b/str_array.c @@ -168,6 +168,15 @@ str_lookup(NODE *symbol, NODE *subs) subs = dupnode(subs); } + /* + * Repeat after me: "Array indices are always strings." + * "Array indices are always strings." + * "Array indices are always strings." + * "Array indices are always strings." + * .... + */ + subs->flags &= ~MAYBE_NUM; + getbucket(b); b->ahnext = symbol->buckets[hash1]; symbol->buckets[hash1] = b; -- cgit v1.2.3