Now I can haz make_set_make back :)

p4raw-id: //depot/metaconfig@34108

diff --git a/U/mkglossary b/U/mkglossary
index 1ee760e..e0dfb11 100755 (executable)
--- 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+)/);