Str.chop accepts count of number of chars to chop

rakudo · May 15, 2014 · 831b1d4 · 831b1d4
1 parent ea173d0
commit 831b1d4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -77,9 +77,9 @@ my class Str does Stringy { # declared in BOOTSTRAP
         nqp::p6box_s(nqp::substr($sself, 0, $chars - $to_remove))
     }
 
-    method chop(Str:D:) {
+    method chop(Str:D: $chars = 1) {
         my str $sself = nqp::unbox_s(self);
-        nqp::p6box_s(nqp::substr($sself, 0, nqp::chars($sself) - 1))
+        nqp::p6box_s(nqp::substr($sself, 0, nqp::chars($sself) - $chars))
     }
 
     method substr(Str:D: $start, $length? is copy) {