The #11132 missed singleton characters (not part

[p5sagit/p5-mst-13.2.git] / lib / unicode / mktables.PL

diff --git a/lib/unicode/mktables.PL b/lib/unicode/mktables.PL
index ca9f6d9..f86ff69 100755 (executable)
--- a/lib/unicode/mktables.PL
+++ b/lib/unicode/mktables.PL
@@ -279,7 +279,7 @@ while (<UD>) {
     next if /^#/;
     next if /^$/;
     chomp;
-    ($code, $last, $name) = /^([0-9a-f]+)\.\.([0-9a-f]+)\s+;\s+(.+)\s+\#/i;
+    ($code, $last, $name) = /^([0-9a-f]+)(?:\.\.([0-9a-f]+))?\s+;\s+(.+)\s+\#/i;
     if ($name) {
        my $InName = lc($name);
        $InName =~ s/\b(\w)/uc($1)/ge;
@@ -299,6 +299,7 @@ EOH
        } else {
            $id = $InId{$InName};
        }
+       $last = "" unless defined $last;
        print OUT "$code\t$last\t$name\t# $InName In/$id.pl\n";
         open(SCRIPT, ">>In/$id.pl");
        print SCRIPT <<END;