return Perl 6 strings from substr and join. Patch courtesy of felliott++

rakudo · Jul 23, 2010 · 4bf6c0f · 4bf6c0f
1 parent bc3e181
commit 4bf6c0f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/core/Any-list.pm b/src/core/Any-list.pm
@@ -23,7 +23,7 @@ augment class Any {
     }
 
     our Str multi method join($separator = '') {
-        pir::join__SsP($separator, self.flat.eager);
+        ~pir::join__SsP($separator, self.flat.eager);
     }
 
     multi method elems() {

diff --git a/src/core/Cool-str.pm b/src/core/Cool-str.pm
@@ -131,7 +131,7 @@ augment class Cool {
             return Mu;
         }
 
-        pir::substr(self, $start, $len);
+        ~pir::substr(self, $start, $len);
     }
 
     multi method trans(*@changes) {