perl: mention breaking changes and feature removals

[sheet.git] / writing.plp

diff --git a/writing.plp b/writing.plp
index a12c1f94c540ee5a411af718e02433cb6233931d..56910829af1442f10e92e1ffb970aa431ec350bd 100644 (file)
--- a/writing.plp
+++ b/writing.plp
@@ -14,7 +14,6 @@ Html({
                writing script glyph unicode character letter comparison history
                alphabet sample test language multilingual
        )],
-       stylesheet => [qw'light circus dark red mono'],
        data => ["$include.inc.pl"],
 });
 
@@ -40,12 +39,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 "</div>\n";