fixed dup printing

git-svn-id: svn://10.0.0.236/trunk@107828 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
dp%netscape.com 2001-11-10 09:18:45 +00:00
parent 29e6249ac1
commit d13f63a9db

View File

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