# Create the source tarball (both .gz and .bz2)
system("tar -cf $outDir/$name-src.tar -C $tempDir $name") == 0
- or die "Unable to create documentation tarball : $!";
+ or die "Unable to create source code tarball : $!";
push @toCompress, "$outDir/$name-src.tar";
# Construct the diffs, and zip them
push @toCompress, "$outDir/$name.diff";
}
-my @toMD5 = @toCompress;
+my @toMD5;
-# Compress everything that needs squashing
+# Compress everything that needs squashing,
+# and also set up a list for md5 checksumming.
foreach my $file (@toCompress) {
system("gzip < $file > $file.gz") == 0
or die "Unable to create gzip file of '$file' : $!";
system("bzip2 < $file > $file.bz2") == 0
or die "Unable to create bzip file of '$file' : $!";
push @toMD5, "$file.bz2";
+
+ # Delete the uncompressed tar files.
+ if ($file =~ /\.tar$/) {
+ unlink($file);
+ } else {
+ # Otherwise, queue this file for md5 checksumming.
+ push @toMD5, $file;
+ }
}
foreach my $file (@toMD5) {