Tweak recompress code

This commit is contained in:
Steve McIntyre 2019-07-06 11:19:02 +01:00
parent 6ae364773a
commit 330c63e67d
1 changed files with 2 additions and 2 deletions

View File

@ -647,13 +647,13 @@ sub recompress {
# Packages and Sources files; workaround for bug #402482
if ($filename =~ m/\/.*\/(Packages|Sources)$/o) {
print LOG "Recompressing $filename\n";
system("rm -f $_.gz");
system("gzip -9c < $_ >$_.gz");
}
# Translation files need to be compressed in .gz format on CD?
if ($filename =~ m/\/.*\/i18n\/(Translation.*)$/o &&
! ($filename =~ m/\/.*\/i18n\/(Translation.*gz)$/o)) {
print LOG "Recompressing $filename\n";
system("rm -f $_.gz");
system("gzip -9c < $_ >$_.gz");
}
}