X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/0ae29078d8d26dce9785f0c38f7408bfab2083e9..89052f1b0f9c404f8c4a5183276fdbcfbbf38b80:/word.plp

diff --git a/word.plp b/word.plp
index 698dbd6..0e03f45 100644
--- a/word.plp
+++ b/word.plp
@@ -1,5 +1,6 @@
 <(common.inc.plp)><:
 
+my $wordlist = 'wordlist.inc.pl';
 Html({
 	title => 'words cheat sheet',
 	version => '1.0',
@@ -7,7 +8,7 @@ Html({
 	keywords => [qw'
 		language
 	'],
-	data => ['wordlist.inc.pl'],
+	data => [$wordlist],
 	raw => <<'EOT',
 <style>
 ul {
@@ -92,12 +93,12 @@ sub showimg {
 sub printimgs {
 	say '<ul>';
 	for my $row (@_) {
-		printf '<li%s>', defined $table{$row} && ' class="parent"';
+		printf '<li%s>', defined $table->{$row} && ' class="parent"';
 		print showimg($row);
-		printimgs(@{$_}) for $table{$row} // ();
+		printimgs(@{$_}) for $table->{$row} // ();
 		print '</li>';
 	}
 	say '</ul>';
 }
 
-printimgs($table{''});
+printimgs(@{$table->{''}});