Author: jonathan Date: Wed Dec 17 08:59:59 2008 New Revision: 34031 Modified: trunk/languages/perl6/src/builtins/any-str.pir
Log: [rakudo] Make substr handle being given a negative start and length. Patch courtesy of Ronald Schmidt <[email protected]>. Modified: trunk/languages/perl6/src/builtins/any-str.pir ============================================================================== --- trunk/languages/perl6/src/builtins/any-str.pir (original) +++ trunk/languages/perl6/src/builtins/any-str.pir Wed Dec 17 08:59:59 2008 @@ -517,8 +517,10 @@ len = self.'chars'() have_len: if len >= 0 goto len_done + if start < 0 goto neg_start $I0 = self.'chars'() len += $I0 + neg_start: len -= start len_done: $S0 = self
