* sortdin: Ignore all leading underscores when deriving a sort key.

* cygwin.din: Resort.

1 files changed, 1 insertions, 1 deletions

diff --git a/winsup/cygwin/sortdin b/winsup/cygwin/sortdin
index bdb4323aa..dafb329ff 100755
--- a/winsup/cygwin/sortdin
+++ b/winsup/cygwin/sortdin
@@ -17,7 +17,7 @@ while (<>) {
     $arr = /\sDATA\s*$/o ? \%data : \%code;
     $_ =~ s/^\s+//;
     my $key = (split(' ', $_))[0];
-    substr($key, 0, 1) = '' if /^_/o;
+    substr($key, 0, 1) = '' while $key =~ /^_/o;
     chomp $key;
     $arr->{$key}->{$_} = 1;
 }