Have Cool.chomp return a proper Str.

rakudo · Aug 31, 2010 · 2ac5feb · 2ac5feb
1 parent f8e959c
commit 2ac5feb
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/Cool-str.pm b/src/core/Cool-str.pm
@@ -28,7 +28,8 @@ augment class Cool {
             unless $I0 == 13 goto done
             $S0 = chopn $S0, 1
           done:
-            %r = box $S0
+            %r = new ['Str']
+            assign %r, $S0
         }
     }