fix function require

fperrad · Oct 28, 2009 · 8e0fa68 · 8e0fa68
1 parent e0819c5
commit 8e0fa68
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/src/lib/luapackage.pir b/src/lib/luapackage.pir
@@ -472,12 +472,16 @@ any loader for the module, then C<require> signals an error.
     new $P0, 'LuaNil'
     $P0 = $P1(modname)  # run loaded module
     $I0 = isa $P0, 'LuaNil'
-    unless $I0 goto L7
+    if $I0 goto L7
+    _LOADED[modname] = $P0
+  L7:
+    $P0 = _LOADED[modname]
+    unless $P0 == sentinel goto L8
     # use true as result
     new $P0, 'LuaBoolean'
     set $P0, 1
-  L7:
     _LOADED[modname] = $P0
+  L8:
     .return ($P0)
 .end
 

diff --git a/t/lua-TestMore b/t/lua-TestMore