+foreach my $fn ($srctar_file, $pattar_file, $diff_file) {
+ unlink("$fn.asc");
+ open(GPG, '|-', "gpg --batch --passphrase-fd=0 -ba $fn") or die $!;
+ print GPG $passphrase, "\n";
+ close GPG;
+}
+
+if (!$pre) {
+ system "rm $dest/rsync-*.gz $dest/rsync-*.asc $dest/rsync-*-NEWS $dest/src-previews/rsync-*diffs.gz*";
+
+ foreach my $fn ($srctar_file, "$srctar_file.asc",
+ $pattar_file, "$pattar_file.asc",
+ $diff_file, "$diff_file.asc", $news_file) {
+ (my $top_fn = $fn) =~ s#/src(-\w+)?/#/#;
+ link($fn, $top_fn);
+ }
+}
+
+print $break, <<'EOT';