From a25b8ff69c76515563c18dad715ee8daa8b847fd Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Tue, 15 Dec 2009 09:25:16 -0200
Subject: detail ('lua_tolstring' instead of lua_objlen)

---
 lbaselib.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'lbaselib.c')

diff --git a/lbaselib.c b/lbaselib.c
index d5596d1f..419fdc52 100644
--- a/lbaselib.c
+++ b/lbaselib.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lbaselib.c,v 1.230 2009/12/10 18:17:37 roberto Exp roberto $
+** $Id: lbaselib.c,v 1.231 2009/12/11 13:40:44 roberto Exp roberto $
 ** Basic library
 ** See Copyright Notice in lua.h
 */
@@ -346,12 +346,13 @@ static const char *generic_reader (lua_State *L, void *ud, size_t *size) {
 static int luaB_load_aux (lua_State *L, int farg) {
   int status;
   Readstat stat;
-  const char *s = lua_tostring(L, farg);
+  size_t l;
+  const char *s = lua_tolstring(L, farg, &l);
   stat.mode = luaL_optstring(L, farg + 2, "bt");
   if (s != NULL) {  /* loading a string? */
     const char *chunkname = luaL_optstring(L, farg + 1, s);
     status = (checkrights(L, stat.mode, s) != NULL)
-           || luaL_loadbuffer(L, s, lua_objlen(L, farg), chunkname);
+           || luaL_loadbuffer(L, s, l, chunkname);
   }
   else {  /* loading from a reader function */
     const char *chunkname = luaL_optstring(L, farg + 1, "=(load)");
-- 
cgit v1.2.3-55-g6feb