Author: jonathan
Date: Tue Mar 25 15:18:24 2008
New Revision: 26547
Modified:
trunk/languages/perl6/src/classes/Object.pir
Log:
[rakudo] Fix new method for Object.
Modified: trunk/languages/perl6/src/classes/Object.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Object.pir (original)
+++ trunk/languages/perl6/src/classes/Object.pir Tue Mar 25 15:18:24 2008
@@ -240,12 +240,13 @@
iter_loop:
unless iter goto iter_end
$S0 = shift iter
- $I0 = exists init_attribs[$S0]
+ $S1 = substr $S0, 2
+ $I0 = exists init_attribs[$S1]
if $I0 goto have_init_value
$P2 = new 'Undef'
goto init_done
have_init_value:
- $P2 = init_attribs[$S0]
+ $P2 = init_attribs[$S1]
init_done:
push_eh set_attrib_eh
setattribute $P1, $S0, $P2
