Make join not explode over Str type objects.

Fixes RT#120846.
rakudo · Jun 2, 2014 · d78b631 · d78b631
1 parent f993683
commit d78b631
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/Any.pm b/src/core/Any.pm
@@ -213,7 +213,7 @@ my class Any { # declared in BOOTSTRAP
         while $list.gimme(0) {
             $tmp := $list.shift;
             nqp::push_s($rsa,
-              nqp::unbox_s(nqp::istype($tmp, Str) ?? $tmp !! $tmp.Str));
+              nqp::unbox_s(nqp::istype($tmp, Str) && nqp::isconcrete($tmp) ?? $tmp !! $tmp.Str));
         }
         nqp::push_s($rsa, '...') if $list.infinite;
         nqp::p6box_s(nqp::join(nqp::unbox_s($separator.Str), $rsa))