From 0d7094f36e62854d882c528efb634210b6c9455d Mon Sep 17 00:00:00 2001
From: Mike Pall <mike>
Date: Tue, 2 Oct 2012 11:56:33 +0200
Subject: [PATCH] From Lua 5.2: Return nil for bad position in string.find().

Needs -DLUAJIT_ENABLE_LUA52COMPAT.
---
 src/lib_string.c | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/lib_string.c b/src/lib_string.c
index d894f9f4..9c4cee8b 100644
--- a/src/lib_string.c
+++ b/src/lib_string.c
@@ -487,10 +487,16 @@ static int str_find_aux(lua_State *L, int find)
   const char *s = luaL_checklstring(L, 1, &l1);
   const char *p = luaL_checklstring(L, 2, &l2);
   ptrdiff_t init = posrelat(luaL_optinteger(L, 3, 1), l1) - 1;
-  if (init < 0)
+  if (init < 0) {
     init = 0;
-  else if ((size_t)(init) > l1)
+  } else if ((size_t)(init) > l1) {
+#if LJ_52
+    setnilV(L->top-1);
+    return 1;
+#else
     init = (ptrdiff_t)l1;
+#endif
+  }
   if (find && (lua_toboolean(L, 4) ||  /* explicit request? */
       strpbrk(p, SPECIALS) == NULL)) {  /* or no special characters? */
     /* do a plain search */