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

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

From:
pmichaud
Date:
December 13, 2008 12:11
Subject:
[svn:parrot] r33864 - trunk/languages/perl6/src/builtins
Message ID:
20081213201055.AC77BCBAC8@x12.develooper.com
Author: pmichaud
Date: Sat Dec 13 12:10:54 2008
New Revision: 33864

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

Log:
[rakudo]:  Fix problem with null elements passed to print (partial fix RT #61324).


Modified: trunk/languages/perl6/src/builtins/io.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/io.pir	(original)
+++ trunk/languages/perl6/src/builtins/io.pir	Sat Dec 13 12:10:54 2008
@@ -19,8 +19,11 @@
     it = iter args
   iter_loop:
     unless it goto iter_end
-    $S0 = shift it
-    print $S0
+    $P0 = shift it
+    unless null $P0 goto iter_nonull
+    $P0 = new 'Failure'
+  iter_nonull:
+    print $P0
     goto iter_loop
   iter_end:
     .return (1)



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