From 7d3e1db1dc03de209aac3954c74450f0d29df715 Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 15 Jul 2015 17:57:34 +0000 Subject: [9bad630c31] Prevent read outside of buffer bounds. --- generic/tclVar.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/generic/tclVar.c b/generic/tclVar.c index 33071ae..c013e8d 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -672,7 +672,7 @@ TclObjLookupVarEx( } part1 = TclGetStringFromObj(part1Ptr, &len1); - if (!parsed && (*(part1 + len1 - 1) == ')')) { + if (!parsed && len1 && (*(part1 + len1 - 1) == ')')) { /* * part1Ptr is possibly an unparsed array element. */ -- cgit v0.12