This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Now I can haz make_set_make back :)
authorH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 7 Jul 2008 20:57:06 +0000 (20:57 +0000)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 7 Jul 2008 20:57:06 +0000 (20:57 +0000)
p4raw-id: //depot/metaconfig@34108

U/mkglossary

index 1ee760e..e0dfb11 100755 (executable)
@@ -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+)/);