I tried to narrow the problem down, but was not very successful.

With the attached file "trans.t" I can reproduce the segfault:

$ PERL6LIB=$(pwd)/lib:. ./perl6-m trans.t
alive
Segmentation fault

If I remove some variable declarations or the last say in that file, the 
segfault goes away. Even changing the quotation (s/'/"/g or s/"/'/g) avoids the 
segfault.

(On a second system I had to declare some more empty variables to get a 
segfault. But otherwise it behaves identically.)
use v6; 
use Test; 

'ABC'.trans( ('A'=>'a'), ('B'=>'b'), ('C'=>'c') );

'XYZ'.trans( ('XYZ' => 'xyz') );

'ABC-DEF'.trans( ('- A..Z' => '_ a..z') );

my ($var1,$var2,$var3,$var4,$var5,$var6,$var7,$var8,$var9,$var10);
my ($var11,$var12,$var13,$var14,$var15,$var16,$var17);
say "alive";  ## no segfault when commenting this line or not declaring one of 
those variables

Reply via email to