X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/ff415f6392ee38af55f1657c02d5a0069779b82f..6e5b350ed0447acfe7b0b4cf02a8b11de08d376f:/digraphs.plp?ds=sidebyside
diff --git a/digraphs.plp b/digraphs.plp
index 068961d..84b063e 100644
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -2,6 +2,7 @@
use utf8;
use strict;
use warnings;
+no warnings 'qw'; # to quote or not to quote, that is the question
use open IO => ':utf8';
our $VERSION = '1.0';
@@ -16,6 +17,7 @@ $header{content_type} = 'text/html; charset=utf-8';
digraph cheat sheet
+
@@ -46,11 +48,11 @@ my @chars = (
);
my @chars2 = (['_'], @chars); # trailing character (extended set)
-print '
';
+print '
';
print qq'
' for map {scalar @$_} @chars2;
print "
\n";
for my $section (qw{thead tfoot}) {
- print "<$section>
";
+ print "<$section>
â³";
print '
', quote($_) for map {@$_} @chars2;
print "
\n";
}
@@ -87,7 +89,7 @@ for my $c1group (@chars) {
print "