From @pmichaud

The .trans method appears to be modifying its argument​:

$ cat x
my $x = [1,2,3] => ['a', 'b', 'c'];

say $x.perl;
say 123.trans($x);
say $x.perl;

$ ./parrot perl6.pbc x
([1, 2, 3] => ["a", "b", "c"])
abc
([] => [])
$

Pm

From @cjfields

On Mon Sep 22 09​:11​:37 2008, pmichaud wrote​:

The .trans method appears to be modifying its argument​:

$ cat x
my $x = [1,2,3] => ['a', 'b', 'c'];

say $x.perl;
say 123.trans($x);
say $x.perl;

$ ./parrot perl6.pbc x
([1, 2, 3] => ["a", "b", "c"])
abc
([] => [])
$

Pm

From @cjfields

Index: languages/perl6/src/builtins/any-str.pir
===================================================================
--- languages/perl6/src/builtins/any-str.pir	(revision 31336)
+++ languages/perl6/src/builtins/any-str.pir	(working copy)
@@ -300,11 +300,12 @@
 
 .sub '!transtable' :multi(_)
     .param pmc r
-    .local pmc retval
+    .local pmc retval, tmps
     retval = new 'ResizableStringArray'
+    tmps = clone r
   range_loop:
-    unless r, done
-    $S0 = r.'shift'()
+    unless tmps, done
+    $S0 = tmps.'shift'()
     push retval, $S0
     goto range_loop
   done:

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

From @pmichaud

Applied in r31339, thanks!

Pm

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