metaconfig tweak for #17156.

[metaconfig.git] / U / mkglossary

diff --git a/U/mkglossary b/U/mkglossary
index e76373d..725be20 100755 (executable)
--- a/U/mkglossary
+++ b/U/mkglossary
@@ -44,7 +44,7 @@ foreach $file (@perl_units) {
               @var = ();            
            } else {
                s/^\?S://;      # Remove leading ?S: markers.
               @var = ();            
            } else {
                s/^\?S://;      # Remove leading ?S: markers.

-               s/^\s+/\t/;     # Ensure all lines begin with tabs.
+               s/^\s+(?=.)/\t/;        # Ensure all lines begin with tabs.

                push @var, $_;
             }
        }
                push @var, $_;
             }
        }