Open coke opened 11 years ago
< [Coke]> pugs: my $str = "foobar"; say substr($str, *-1); <+p6eval> pugs: OUTPUT«foobar» < [Coke]> pugs: my $str = "foobar"; say substr($str, -1); <+p6eval> pugs: OUTPUT«r»
See t/spec/S32-str/substr.t for tests.
< [Coke]> pugs: my $str = "foobar"; say substr($str, *-1); <+p6eval> pugs: OUTPUT«foobar» < [Coke]> pugs: my $str = "foobar"; say substr($str, -1); <+p6eval> pugs: OUTPUT«r»
See t/spec/S32-str/substr.t for tests.