develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
pmichaud
Date:
December 15, 2008 21:30
Subject:
[svn:parrot] r33948 - trunk/languages/perl6/src/builtins
Message ID:
20081216053011.C0D10CBA12@x12.develooper.com
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



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