+ my $commithash = make_commit qw(../commit.tmp);
+ if ($upload_hash) {
+ open C, ">../commit2.tmp" or die $!;
+ print C <<END or die $!;
+tree $tree
+parent $upload_hash
+parent $commithash
+author $authline
+committer $authline
+
+Record $package ($clogp->{Version}) in archive suite $suite
+END
+ $commithash = make_commit qw(../commit2.tmp);
+ }