[perl #57434] substr( $str, $pos, 0 ) in rakudo returns rest of string, not empty string

[Carl Mäsak]

# 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