develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35406 - trunk/languages/lua/src/lib

From:
fperrad
Date:
January 11, 2009 04:17
Subject:
[svn:parrot] r35406 - trunk/languages/lua/src/lib
Message ID:
20090111121737.7C3F0CB9F9@x12.develooper.com
Author: fperrad
Date: Sun Jan 11 04:17:36 2009
New Revision: 35406

Modified:
   trunk/languages/lua/src/lib/luaaux.pir

Log:
[Lua]
- fix traceback (vs regex.t)

Modified: trunk/languages/lua/src/lib/luaaux.pir
==============================================================================
--- trunk/languages/lua/src/lib/luaaux.pir	(original)
+++ trunk/languages/lua/src/lib/luaaux.pir	Sun Jan 11 04:17:36 2009
@@ -1037,7 +1037,13 @@
     $P0 = shift iter
     sub = $P0['sub']
     if null sub goto L2
+    $I0 = isa sub, 'LuaFunction'
+    unless $I0 goto L5
     $S0 = sub.'get_name'()
+    goto L6
+  L5:
+    $S0 = sub
+  L6:
     outer = sub.'get_outer'()
     ret .= "\n\t"
     unless null outer goto L3



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About