Rewrite Any.join() to avoid the "Cannot reduce() empty list" error.

Might as well use the Parrot 'join' opcode since we have one.
rakudo · May 2, 2009 · cacc976 · cacc976
1 parent ec69e24
commit cacc976
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/src/setting/Any-list.pm b/src/setting/Any-list.pm
@@ -11,8 +11,14 @@ class Any is also {
         }
     }
 
-    our Str multi method join(Str $separator = '') {
-        @.list.reduce({ $^a ~ $separator ~ $^b })
+    our Str multi method join($separator = '') {
+        Q:PIR {
+            $P0 = self.'list'()
+            $P1 = find_lex '$separator'
+            $S1 = $P1
+            $S0 = join $S1, $P0
+            %r = box $S0
+        }
     }
 
     our List multi method map(*&expr) {