Correct Str.comb.count-only/bool-only semantics

rakudo · Sep 8, 2018 · d1e80df · d1e80df
1 parent 9738dfb
commit d1e80df
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Str.pm6 b/src/core/Str.pm6
@@ -371,8 +371,8 @@ my class Str does Stringy { # declared in BOOTSTRAP
               ($!pos = $pos)
             )
         }
-        method count-only() { nqp::p6box_i($!chars) }
-        method bool-only(--> True) { }
+        method count-only(--> Int:D) { $!chars - $!pos - 1 }
+        method bool-only(--> Bool:D) { nqp::p6bool(self.count-only) }
     }
     multi method comb(Str:D:) { Seq.new(CombAll.new(self)) }