$_ = 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 "</div>\n";