Permit new foundry names to contain "."s.

[xfonts-traditional.git] / update-xfonts-traditional

diff --git a/update-xfonts-traditional b/update-xfonts-traditional
index 895be6d5671bcda3db31455eccac0c2da3373572..51ab164d4d942dbb3c2fe2c405659ae1e520e8e4 100755 (executable)
--- a/update-xfonts-traditional
+++ b/update-xfonts-traditional
@@ -160,7 +160,7 @@ sub loadfoundries () {
        while (<$f>) {
            s/^\s*//; s/\s+$//;
            next if m/^\#/;
-           m/^(\w+)\s+(\w+)$/ or die;
+           m/^([.0-9A-Za-z]+)\s+([.0-9A-Za-z]+)$/ or die;
            my $k = lc $1;
            next if exists $foundrymap{$k};
            $foundrymap{$k}=$2;