more robust getcurrenv

fperrad · Sep 29, 2009 · 4696621 · 4696621
1 parent 6b82566
commit 4696621
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/pmc/luathread.pmc b/src/pmc/luathread.pmc
@@ -26,7 +26,7 @@ This implementation is based on C<Parrot::Coroutine>.
 static PMC* getcurrenv(PARROT_INTERP) {
     PMC *env = NULL;
     PMC * const sub = Parrot_pcc_get_sub(interp, CURRENT_CONTEXT(interp));
-    if (sub) {
+    if (sub && PMC_type(sub) == dynpmc_LuaFunction) {
         env = _LuaFunction_get_environment(interp, sub);
     }
     return env;