X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/ff415f6392ee38af55f1657c02d5a0069779b82f..8c1a0b561ab0ebdbc88d801ff07ebba90999e1c0:/digraphs.plp?ds=inline
diff --git a/digraphs.plp b/digraphs.plp
index 068961d..b4d3d01 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';
@@ -46,11 +47,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 +88,7 @@ for my $c1group (@chars) {
print " |
---|
\n";
:>
-
+
control
| spacing
| modifier
@@ -108,7 +109,7 @@ print " |
\n";
chinese
|
-
+
unicode
| latin1
| ascii
@@ -117,10 +118,10 @@ print " |
\n";