# fe dists.
# Download the files.
my $file;
+## my %ret;
foreach $file (keys %urls) {
my $url = $urls{$file};
$url =~ s/##DIST/$dist/g;
}
&main::DEBUG("deb: download: good.");
+## $ret{$
$good++;
} else {
&main::ERROR("Debian: invalid format of url => ($url).");
next unless ($basename =~ /\Q$query\E/);
}
next if ($query !~ /\.\d\.gz/ and $file =~ /\/man\//);
- next unless ($front and $file =~ /^\/\Q$query\E/);
+ next if ($front and $file !~ /^\/\Q$query\E/);
$contents{$package}{$file} = 1;
$found++;