- foreach my $rewrite ($need_rewrite ? 1 : qw(0 1)) {
- if ($rewrite) {
- $ch =~ s{^committer .*$}{$committer_authline}m
- or confess "$ch ?";
- $need_rewrite = 1;
- }
- my $cf = "$rd/m$rewrite"
- open CD, ">", $cf or die $!;
- print CD $ch, "\n", $cl->{Msg}; or die $!;
- close CD or die $!;
- my @cmd = (@git, qw(hash-object));
- push @cmd, qw(-w) if $rewrite;
- push @cmd, qw(-t commit), $cf;
- my $newcommit = cmdoutput @cmd;
- next unless $rewrite or $newcommit eq $cl->{CommitId};
- $build = $newcommit;
- last;