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

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;

	}

-- 
To UNSUBSCRIBE, email to debian-cd-REQUEST@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmaster@lists.debian.org