This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
metaconfig tweak for #17156.
[metaconfig.git] / U / mkglossary
index e76373d..725be20 100755 (executable)
@@ -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, $_;
             }
        }