Author: jonathan
Date: Wed Nov 26 05:50:37 2008
New Revision: 33218
Modified:
trunk/languages/perl6/src/classes/Object.pir
Log:
[rakudo] Add a missing null check in !clone_attr.
Modified: trunk/languages/perl6/src/classes/Object.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Object.pir (original)
+++ trunk/languages/perl6/src/classes/Object.pir Wed Nov 26 05:50:37 2008
@@ -484,7 +484,9 @@
$S0 = shift attr_it
unless $S0 goto attr_loop
$P1 = getattribute self, $S0
+ if null $P1 goto null_attr
$P1 = clone $P1
+ null_attr:
setattribute result, $S0, $P1
goto attr_loop
attr_end:
