Just FYI, there are now two tests for that (marked as TODO) in t/spec/S29-str/substr.t
Carl MXXsak (via RT) wrote: > # New Ticket Created by "Carl Mäsak" > # Please include the string: [perl #57434] > # in the subject line of all future correspondence about this issue. > # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=57434 > > > > $ svn info | grep Revi > Revision: 29869 > > $ ./perl6 -e 'say substr( "foo", 0, 2 )' > fo > $ ./perl6 -e 'say substr( "foo", 0, 1 )' > f > $ ./perl6 -e 'say substr( "foo", 0, 0 )' # wrong! > foo > > $ ./perl6 -e 'say substr( "foo", 1, 2 )' > oo > $ ./perl6 -e 'say substr( "foo", 1, 1 )' > o > $ ./perl6 -e 'say substr( "foo", 1, 0 )' # wrong! > oo -- Moritz Lenz http://moritz.faui2k3.org/ | http://perl-6.de/
