X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/165a497847540665bc2e4063b3d73b6c7c36b1df..HEAD:/writing.plp diff --git a/writing.plp b/writing.plp index a12c1f9..dfd78a4 100644 --- a/writing.plp +++ b/writing.plp @@ -40,12 +40,11 @@ $_ = showlink($_, "/latin") for $scriptname->{latn} || (); $_ = showlink($_, "/writing/brahmi") for $scriptname->{brah} || (); say $glyphs->table([map { - my $ref = $_; - my $lead = s/^(-)// && $1; - (map { ".>$lead$_" } - $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_ - ), - @{ $info->{table}->{$ref} || [] } + my $lead = s/^(-)// && $1; + (map { ".>$lead$_" } + $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_ + ), + @{ $info->{table}->{$_} || [] } } @{$rows}]); say "\n";