From 53068161d14f4c319b4e95a1909d5649c15ffaf7 Mon Sep 17 00:00:00 2001
From: "H.Merijn Brand" <h.m.brand@xs4all.nl>
Date: Mon, 7 Jul 2008 20:57:06 +0000
Subject: [PATCH] Now I can haz make_set_make back :)

p4raw-id: //depot/metaconfig@34108
---
 U/mkglossary | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/U/mkglossary b/U/mkglossary
index 1ee760e..e0dfb11 100755
--- a/U/mkglossary
+++ b/U/mkglossary
@@ -21,6 +21,7 @@ my @WANTED = map  { $_->[0] }
 	     sort { $a->[1] cmp $b->[1] }
 	     map  { [ $_, lc $_ ] } <$wanted>;
 close $wanted;
+
 print <<'EOM';
 
 !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
@@ -41,7 +42,7 @@ foreach my $file (@perl_units) {
     $Loc = $file, next if $base eq "Loc.U" and not defined $Loc;
     my @var;
     while (<$fh>) {
-	if (m/^\?S:\w+[ \t:]/ .. m/^\?S:.$/) {
+	if (m/^\?S:\w+[ \t:]/ .. m/^\?S:\.$/) {
 	    s/[ \t]+$//;
 	    if (m/^\?S:.$/) {
 		my ($var) = ((shift @var) =~ /^(\w+)/);
-- 
1.8.3.1