Permit new foundry names to contain "."s.

1 files changed, 1 insertions, 1 deletions

diff --git a/update-xfonts-traditional b/update-xfonts-traditional
index 895be6d..51ab164 100755
--- 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;