diff --git a/lib/Lingua/tlhInganHol/yIghun.pm b/lib/Lingua/tlhInganHol/yIghun.pm index 2b3ad60..0d63318 100644 --- a/lib/Lingua/tlhInganHol/yIghun.pm +++ b/lib/Lingua/tlhInganHol/yIghun.pm @@ -209,7 +209,7 @@ my $v_listop = enqr keys %v_listop; sub to_listop { my ($block, @list) = @_; my $op = pop @list; - return join " ", map("$_->{trans} ", $op, $block), + return join " ", map($_->{trans}, $op, $block), join ",", map $_->{trans}, @list; }