From 797d964df9c0b1bf09338cea3d578f1985fe2ee0 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Thu, 23 Jan 2003 09:34:18 -0200
Subject: detail

---
 lauxlib.c | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/lauxlib.c b/lauxlib.c
index d64cc2ca..9ecec884 100644
--- a/lauxlib.c
+++ b/lauxlib.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lauxlib.c,v 1.90 2002/11/14 15:41:38 roberto Exp roberto $
+** $Id: lauxlib.c,v 1.91 2002/12/04 17:38:31 roberto Exp roberto $
 ** Auxiliary functions for building Lua libraries
 ** See Copyright Notice in lua.h
 */
@@ -176,6 +176,9 @@ LUALIB_API void luaL_openlib (lua_State *L, const char *libname,
     if (lua_isnil(L, -1)) {  /* no? */
       lua_pop(L, 1);
       lua_newtable(L);  /* create it */
+      lua_pushstring(L, libname);
+      lua_pushvalue(L, -2);
+      lua_settable(L, LUA_GLOBALSINDEX);  /* register it with given name */
     }
     lua_insert(L, -(nup+1));  /* move library table to below upvalues */
   }
@@ -188,11 +191,6 @@ LUALIB_API void luaL_openlib (lua_State *L, const char *libname,
     lua_settable(L, -(nup+3));
   }
   lua_pop(L, nup);  /* remove upvalues */
-  if (libname) {
-    lua_pushstring(L, libname);
-    lua_pushvalue(L, -2);
-    lua_settable(L, LUA_GLOBALSINDEX);
-  }
 }
 
 
-- 
cgit v1.2.3-55-g6feb