# XXX: collecting in reverse order
push @{ $ci{'parents'} }, $1;
# XXX: collecting in reverse order
push @{ $ci{'parents'} }, $1;
my ($who, $name, $epoch, $tz) =
($1, $2, $3, $4 );
my ($who, $name, $epoch, $tz) =
($1, $2, $3, $4 );
my ($fullname, $username) = ($1, $2);
$ci{"${who}_fullname"} = $fullname;
$ci{"${who}_username"} = $username;
my ($fullname, $username) = ($1, $2);
$ci{"${who}_fullname"} = $fullname;
$ci{"${who}_username"} = $username;
my ($file, $message, $rcstoken, $user, $ipaddr) = @_;
if (defined $user) {
my ($file, $message, $rcstoken, $user, $ipaddr) = @_;
if (defined $user) {
$user = $ci->{'author_username'};
$message = join "\n", @{ $ci->{'comment'} };
}
$user = $ci->{'author_username'};
$message = join "\n", @{ $ci->{'comment'} };
}
},
sub {
join "\n", run_or_die('git-diff', "${sha1}^", $sha1);
},
sub {
join "\n", run_or_die('git-diff', "${sha1}^", $sha1);