X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/040311428c70a1f0f9f166d921ca45ff0840f3fd..d494c925843581855627a24887ee3282a49dd514:/latin.plp

diff --git a/latin.plp b/latin.plp
index 406cfa3..ed68cae 100644
--- a/latin.plp
+++ b/latin.plp
@@ -1,4 +1,5 @@
 <(common.inc.plp)><:
+use 5.014;
 
 Html({
 	title => 'latin alphabet cheat sheet',
@@ -43,7 +44,7 @@ or <span title="fuck yeah!">'mercan</span>) letters A–Z.
 Also see <a href="/writing">related alphabets</a>
 and <a href="/unicode">common chars</a>.</p>
 
-<div class="-diinfo">
+<div>
 
 <:
 my @table = do 'writing-latn.inc.pl';
@@ -51,10 +52,11 @@ if ($! or $@) {
 	printf "<p class=error>Table data not found: <em>%s</em>.</p>\n", $@ || $!;
 }
 else {
-	print '<table class="glyphs">';
-	print ref $_ ne 'ARRAY' ? "<tr><th>$_" : map {/^<td/ ? $_ : "<td>$_"} @$_ for @table;
-	print "</table>\n\n";
+	say '<table class="glyphs">';
+	print ref $_ ne 'ARRAY' ? "<tr><th>$_\n" : map {/^<td/ ? $_ : "\t<td>$_\n"} @$_
+		for @table;
+	say "</table>\n";
 }
 
-print "</div>\n";
+:></div>