From @moritz

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/

From @moritz

On Wed Oct 08 12​:56​:14 2008, moritz@​casella.verplant.org wrote​:

r31792​:

$ ../../parrot perl6.pbc -e 'say "hello".trans(/(l)/ => { $_[0].ord })'
he10848o

that should have been 'he108108o'.

Worked around in r31835 (by Chris Fields).
Moritz

@moritz - Status changed from 'new' to 'resolved'