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)
