OS becomes a dynpmc, so load it

fperrad · May 5, 2010 · bd7eedd · bd7eedd
1 parent f2bd831
commit bd7eedd
Show file tree

Hide file tree

Showing 7 changed files with 7 additions and 0 deletions.
diff --git a/lua/lib/luaaux.pir b/lua/lib/luaaux.pir
@@ -693,6 +693,7 @@ This function only loads the chunk; it does not run it.
     pbcname .= '.pbc'
     $I0 = stat pbcname, .STAT_EXISTS
     unless $I0 goto L3
+    $P0 = loadlib 'os'
     new $P0, 'OS'
     $S0 = $P0.'cwd'()
     $S0 .= '/'

diff --git a/lua/lib/luaos.pir b/lua/lib/luaos.pir
@@ -22,6 +22,7 @@ L<http://www.lua.org/manual/5.1/manual.html#5.8>.
 
 .sub 'luaopen_os'
 #    print "init Lua OS\n"
+    $P0 = loadlib 'os'
 
     .local pmc _lua__GLOBAL
     _lua__GLOBAL = get_hll_global '_G'

diff --git a/lua/lib/luaperl.pir b/lua/lib/luaperl.pir
@@ -30,6 +30,7 @@ It's a temporary work. Waiting for the real PIR compiler/interpreter.
 .namespace []
 
 .sub '__onload' :anon :load
+    $P0 = loadlib 'os'
     $P0 = newclass [ 'Lua'; 'PerlCompiler' ]
     new $P1, $P0
     compreg 'lua', $P1

diff --git a/t/env.t b/t/env.t
@@ -13,6 +13,7 @@
 =cut
 
 .sub 'main' :main
+    $P0 = loadlib 'os'
     .include 'test_more.pir'
 
     $P0 = new 'FileHandle'

diff --git a/t/lexico.t b/t/lexico.t
@@ -16,6 +16,7 @@ L<http://www.lua.org/manual/5.1/manual.html#2.1>.
 =cut
 
 .sub 'main' :main
+    $P0 = loadlib 'os'
     .include 'test_more.pir'
 
     plan(3)

diff --git a/t/luad.t b/t/luad.t
@@ -19,6 +19,7 @@ by Kein-Hong Man
 =cut
 
 .sub 'main' :main
+    $P0 = loadlib 'os'
     .include 'test_more.pir'
 
     $P0 = open 'luac -v', 'rp'

diff --git a/t/test_lex.t b/t/test_lex.t
@@ -19,6 +19,7 @@ L<http://www.lua.org/manual/5.1/manual.html#2.1>.
 =cut
 
 .sub 'main' :main
+    $P0 = loadlib 'os'
     .include 'test_more.pir'
 
     plan(23)