# New Ticket Created by Moritz Lenz
# Please include the string: [perl #59730]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=59730 >
r31792:
$ ../../parrot perl6.pbc -e 'say "hello".trans(/(l)/ => { $_[0].ord })'
he10848o
that should have been 'he108108o'. Printing $_[0] in the closure reveals
that it's wrong on the second call:
$ ../../parrot perl6.pbc -e 'say "hello".trans(/(l)/ => { say $_[0];
$_[0].ord })'
l
0
he10848o
Not sure if that's yet another manifestation of RT #57094 or something
different. Will add TODO test to t/spec/S05-transliteration/with-closure.t.
Moritz
--
Moritz Lenz
http://perlgeek.de/ | http://perl-6.de/ | http://sudokugarden.de/
