add native str concatenation op

rakudo · May 8, 2012 · ad3a7b6 · ad3a7b6
1 parent 3c92ea2
commit ad3a7b6
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -782,6 +782,9 @@ multi prefix:<~>(Str:D \$a) { $a }
 multi infix:<~>(Str:D \$a, Str:D \$b) {
     nqp::p6box_s(nqp::concat_s(nqp::unbox_s($a), nqp::unbox_s($b)))
 }
+multi infix:<~>(str $a, str $b) returns str {
+    nqp::concat_s($a, $b);
+}
 
 multi infix:<x>(Str:D $s, Int:D $repetition) {
     $repetition <= 0