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

[Bruce Korb]

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 [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]