[svn:parrot] r33948 - trunk/languages/perl6/src/builtins

[pmichaud]

Author: pmichaud
Date: Mon Dec 15 21:30:10 2008
New Revision: 33948

Modified:
   trunk/languages/perl6/src/builtins/assign.pir

Log:
[rakudo]:  Fix list assignment when rhs is short of elements (RT #61336)


Modified: trunk/languages/perl6/src/builtins/assign.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/assign.pir       (original)
+++ trunk/languages/perl6/src/builtins/assign.pir       Mon Dec 15 21:30:10 2008
@@ -119,6 +119,9 @@
     $I0 = isa cont, 'Perl6Hash'
     if $I0 goto assign_hash
   assign_scalar:
+    if slist goto have_slist
+    slist = new 'Nil'
+  have_slist:
     $P0 = shift slist
     'infix:='(cont, $P0)
     goto assign_loop