Permalink
Browse files

Remove tcuc, fix warning.

tcuc has been removed from the spec, so we remove it here as well.
  • Loading branch information...
1 parent aee6525 commit b8f846e59b436bd0e66bc4887cede3ce404f73f1 @colomon colomon committed Jun 6, 2013
Showing with 1 addition and 4 deletions.
  1. +1 −4 lib/CORE.setting
View
@@ -727,9 +727,6 @@ my class Cool {
method tclc() {
self ~~ /^(.)(.*)$/ ?? Q:CgOp { (box Str (ucd_titlecase { $0.ord })) } ~ $1.lc !! "";
}
- method tcuc() {
- self ~~ /^(.)(.*)$/ ?? Q:CgOp { (box Str (ucd_titlecase { $0.ord })) } ~ $1.uc !! "";
- }
method flip() { Q:CgOp { (box Str (str_flip (obj_getstr {self}))) }}
method lcfirst() { lcfirst(self) }
method ord() { ord(self) }
@@ -3900,7 +3897,7 @@ class IO::Path is Cool does IO::FileTestable {
self;
}
- method IO(IO::Path:D: *%opts) {
+ method IO(IO::Path:D:) {
# IO::Handle.new(:path(~self), |%opts);
IO.new(path => ~self);
}

0 comments on commit b8f846e

Please sign in to comment.