1 files changed, 1 insertions, 0 deletions
diff --git a/lptree.c b/lptree.c
index 330471a..475b0c3 100644
--- a/lptree.c
+++ b/lptree.c
@@ -1253,6 +1253,7 @@ static int lp_match (lua_State *L) {
  const char *s = luaL_checklstring(L, SUBJIDX, &l);
  size_t i = initposition(L, l);
  int ptop = lua_gettop(L);
+  luaL_argcheck(L, l < MAXINDT, SUBJIDX, "subject too long");
  lua_pushnil(L);  /* initialize subscache */
  lua_pushlightuserdata(L, capture);  /* initialize caplistidx */
  lua_getuservalue(L, 1);  /* initialize ktableidx */

diff --git a/lptree.c b/lptree.c index 330471a..475b0c3 100644 --- a/lptree.c +++ b/lptree.c
@@ -1253,6 +1253,7 @@ static int lp_match (lua_State *L) {
1253	const char *s = luaL_checklstring(L, SUBJIDX, &l);	1253	const char *s = luaL_checklstring(L, SUBJIDX, &l);
1254	size_t i = initposition(L, l);	1254	size_t i = initposition(L, l);
1255	int ptop = lua_gettop(L);	1255	int ptop = lua_gettop(L);
		1256	luaL_argcheck(L, l < MAXINDT, SUBJIDX, "subject too long");
1256	lua_pushnil(L); /* initialize subscache */	1257	lua_pushnil(L); /* initialize subscache */
1257	lua_pushlightuserdata(L, capture); /* initialize caplistidx */	1258	lua_pushlightuserdata(L, capture); /* initialize caplistidx */
1258	lua_getuservalue(L, 1); /* initialize ktableidx */	1259	lua_getuservalue(L, 1); /* initialize ktableidx */