digraphs: include first line of rfc
authorMischa POSLAWSKY <perl@shiar.org>
Sun, 22 Feb 2015 01:20:06 +0000 (02:20 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 9 Jun 2015 03:43:42 +0000 (05:43 +0200)
Do not eat SP entry while skipping headers.

tools/mkdigraphs-rfc

index d33503d397cb805d9333265cc2030b7f96aab320..007e7b0441aa758bebede0ddaa4e9bf0ef836d5c 100755 (executable)
@@ -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