Re: fix: $MIRROR/dists/$CODENAME/Release file

["Bruce Korb" <bruce.korb@gmail.com>]

Rework this routine in make_disc_trees.pl

sub md5_files_for_release {
	my ($md5, $size, $filename);

	$filename = $File::Find::name;

	if ($filename =~ m/\/.*\/(Packages|Sources)\.gz$/o) {
		return 0;
	}

	# Recompress the Packages and Sources files; workaround for bug
	# #402482
	if ($filename =~ m/\/.*\/(Packages|Sources)$/o) {
		system("gzip -9c < $_ >$_.gz");
		($md5, $size) = md5_file($_ . ".gz");
		$filename =~ s/^\.\///;
		printf RELEASE " %s %8d %s\n", $md5, $size, $filename . ".gz";
	}

	if ($filename =~ m/\/.*\/(Packages|Sources|Release)/o) {
		$filename =~ s/^\.\///;
		($md5, $size) = md5_file($_);
		printf RELEASE " %s %8d %s\n", $md5, $size, $filename;
	}
}