Conservancy/gpl-compliance-tools
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change sorting order.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-08-30 13:24:39 -04:00
parent f4147dc085
commit c13600b7fb
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
blame-find-by-name.plx
View file

@ -49,7 +49,6 @@ while (my $dataLine = <DATA_FILE>) {
die "invalid line: $dataLine in blame output" unless ($dataLine =~ die "invalid line: $dataLine in blame output" unless ($dataLine =~
/^\s*(\S+)\s+\S+\s+\d+\s+\((.+)\s+(\d{4,4}\-\d{2,2}\-\d{2,2}\s+\d{2,2}:\d{2,2}:\d{2,2})\s+([\+\-\d]+)\s+(\d+)\s*\)\s+(.*)$/); /^\s*(\S+)\s+\S+\s+\d+\s+\((.+)\s+(\d{4,4}\-\d{2,2}\-\d{2,2}\s+\d{2,2}:\d{2,2}:\d{2,2})\s+([\+\-\d]+)\s+(\d+)\s*\)\s+(.*)$/);
my($commitID, $name, $date, $tz, $curLineNumber, $actualCurrentLine) = ($1, $2, $3, $4, $5, $6); my($commitID, $name, $date, $tz, $curLineNumber, $actualCurrentLine) = ($1, $2, $3, $4, $5, $6);
if ($name =~ /$NAME_REGEX/i) { if ($name =~ /$NAME_REGEX/i) {
$commitsMatchingRegex{$commitID} = { __totalLines => 0 } unless defined $commitsMatchingRegex{$commitID}; $commitsMatchingRegex{$commitID} = { __totalLines => 0 } unless defined $commitsMatchingRegex{$commitID};
$commitsMatchingRegex{$commitID}{$currentFile} = 0 unless defined $commitsMatchingRegex{$commitID}{$currentFile}; $commitsMatchingRegex{$commitID}{$currentFile} = 0 unless defined $commitsMatchingRegex{$commitID}{$currentFile};
@ -59,7 +58,7 @@ while (my $dataLine = <DATA_FILE>) {
} }
} }
close DATA_FILE; close DATA_FILE;
foreach my $commitID (sort { $commitsMatchingRegex{$a}{__totalLines} <=> $commitsMatchingRegex{$b}{__totalLines} } keys %commitsMatchingRegex ) { foreach my $commitID (sort { $commitsMatchingRegex{$b}{__totalLines} <=> $commitsMatchingRegex{$a}{__totalLines} } keys %commitsMatchingRegex ) {
print sprintf("%s: %d\n", $commitID, $commitsMatchingRegex{$commitID}{__totalLines}); print sprintf("%s: %d\n", $commitID, $commitsMatchingRegex{$commitID}{__totalLines});
} }
# #