From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 22 Feb 2015 01:20:06 +0000 (+0100)
Subject: digraphs: include first line of rfc
X-Git-Tag: v1.7~102
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/dbe8796e044611c3d0f0f83b2f2e152e339acd48

digraphs: include first line of rfc

Do not eat SP entry while skipping headers.
---

diff --git a/tools/mkdigraphs-rfc b/tools/mkdigraphs-rfc
index d33503d..007e7b0 100755
--- a/tools/mkdigraphs-rfc
+++ b/tools/mkdigraphs-rfc
@@ -56,8 +56,9 @@ my %replace = (
 do {
 	$_ = readline;
 	defined or die "Premature input end";
-} until /^\s\S/;
+} until s/^\s(?=\S)//;
 
+chomp;
 my @line = $_;  # add first line (already read, assume it's ok)
 
 # read the rest of the character table