fixed dup printing
git-svn-id: svn://10.0.0.236/trunk@107828 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
parent
29e6249ac1
commit
d13f63a9db
@ -28,12 +28,11 @@ while (<>)
|
||||
if (!-f $url) {
|
||||
push @nonexistentfiles, $url;
|
||||
} else {
|
||||
if (exists($seen{$url})) {
|
||||
$seen{$url}++;
|
||||
$seen{$url}++;
|
||||
if ($seen{$url} > 1) {
|
||||
$extnumdups{$e}++;
|
||||
next;
|
||||
}
|
||||
$seen{$url}++;
|
||||
push @allurls, $url;
|
||||
if (exists $ext{$e}) {
|
||||
$ext{$e} .= "---";
|
||||
@ -47,12 +46,11 @@ while (<>)
|
||||
if (/jar:/) {
|
||||
$url = getjarurl($_);
|
||||
$e = getext($url);
|
||||
if (exists($seen{$url})) {
|
||||
$seen{$url}++;
|
||||
$seen{$url}++;
|
||||
if ($seen{$url} > 1) {
|
||||
$extnumdups{$e}++;
|
||||
next;
|
||||
}
|
||||
$seen{$url}++;
|
||||
push @allurls, $url;
|
||||
if (exists $ext{$e}) {
|
||||
$ext{$e} .= "---";
|
||||
@ -98,7 +96,7 @@ foreach $e (@extsorted)
|
||||
foreach $i (split("---", $ext{$e})) {
|
||||
printf "%2d. %s", $n++, $i;
|
||||
if ($seen{$i} > 1) {
|
||||
printf " [%d]", $seen{$i};
|
||||
printf " [%d]", $seen{$i}-1;
|
||||
}
|
||||
printf "\n";
|
||||
}
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user