From @masak

$ 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

From @moritz

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/

The RT System itself - Status changed from 'new' to 'open'

From @pmichaud

Now fixed in r29970, thanks!

Pm

@pmichaud - Status changed from 'open' to 'resolved'