fixed P5Str for Array/List

rakudo-p5 · May 22, 2013 · 76db4d2 · 76db4d2
1 parent 59ca6bd
commit 76db4d2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Perl5/Terms.pm b/lib/Perl5/Terms.pm
@@ -114,12 +114,12 @@ augment class Bool {
 
 augment class Array {
     multi method P5Str(Array:U:) { '' }
-    multi method P5Str(Array:D:) { join '', map { $_ ?? $_.P5Str !! '' }, @(self) }
+    multi method P5Str(Array:D:) { join '', map { $_.defined ?? $_.P5Str !! '' }, @(self) }
 }
 
 augment class List {
     multi method P5Str(List:U:) { '' }
-    multi method P5Str(List:D:) { join '', map { $_ ?? $_.P5Str !! '' }, @(self) }
+    multi method P5Str(List:D:) { join '', map { $_.defined ?? $_.P5Str !! '' }, @(self) }
 }
 
 augment class Str {