From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Mon, 7 Jul 2008 20:57:06 +0000 (+0000)
Subject: Now I can haz make_set_make back :)
X-Git-Tag: 5.26.1~292
X-Git-Url: https://perl5.git.perl.org/metaconfig.git/commitdiff_plain/53068161d14f4c319b4e95a1909d5649c15ffaf7?ds=inline

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
--- 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+)/);