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

* cygwin.din: Resort.
This commit is contained in:
Christopher Faylor
2006-07-05 16:06:50 +00:00
parent 03ac0afe48
commit 8307a41117
3 changed files with 69 additions and 64 deletions

View File

@@ -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;
}