digraphs: put _ at the left of table

[sheet.git] / digraphs.plp

diff --git a/digraphs.plp b/digraphs.plp
index d339b094001200692dc1e8b94a1ffe1cfdbe732e..81944b2e50c63d8186f81c3abbc8bb734b933c0d 100644 (file)
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -41,7 +41,7 @@ my @chars = (
        ['A'..'M'], ['N'..'Z'],
        ['a'..'m'], ['n'..'z'],
 );
-my @chars2 = (@chars, ['_']);  # trailing character (extended set)
+my @chars2 = (['_'], @chars);  # trailing character (extended set)
 
 print '<table><col>';
 print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;