diff options
-rw-r--r-- | ext/tk/tkutil/tkutil.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/tk/tkutil/tkutil.c b/ext/tk/tkutil/tkutil.c index 9fcae0e082..7aecc5c591 100644 --- a/ext/tk/tkutil/tkutil.c +++ b/ext/tk/tkutil/tkutil.c @@ -1461,6 +1461,7 @@ cbsubst_get_subst_key(self, str) char *buf, *ptr, *key; list = rb_funcall(cTclTkLib, ID_split_tklist, 1, str); + Check_Type(list, T_ARRAY); len = RARRAY_LEN(list); inf = cbsubst_get_ptr(self); |