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

[svn:parrot] r35389 - trunk/languages/perl6/src/classes

From:
pmichaud
Date:
January 10, 2009 22:20
Subject:
[svn:parrot] r35389 - trunk/languages/perl6/src/classes
Message ID:
20090111061955.4CCB5CB9F9@x12.develooper.com
Author: pmichaud
Date: Sat Jan 10 22:19:54 2009
New Revision: 35389

Modified:
   trunk/languages/perl6/src/classes/List.pir

Log:
[rakudo]:  Handle .perl on Arrays with missing elements.


Modified: trunk/languages/perl6/src/classes/List.pir
==============================================================================
--- trunk/languages/perl6/src/classes/List.pir	(original)
+++ trunk/languages/perl6/src/classes/List.pir	Sat Jan 10 22:19:54 2009
@@ -223,8 +223,13 @@
     unless iter goto iter_done
   iter_loop:
     $P1 = shift iter
+    if null $P1 goto iter_null
     $S1 = $P1.'perl'()
     result .= $S1
+    goto iter_next
+  iter_null:
+    result .= 'undef'
+  iter_next:
     unless iter goto iter_done
     result .= ', '
     goto iter_loop



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