digraphs: include first line of rfc

[sheet.git] / tools / mkdigraphs-rfc

diff --git a/tools/mkdigraphs-rfc b/tools/mkdigraphs-rfc
index d33503d397cb805d9333265cc2030b7f96aab320..007e7b0441aa758bebede0ddaa4e9bf0ef836d5c 100755 (executable)
--- 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