or die "$0: failed to open \"$tarball\": $!\n";
}
-my $commit_user = `git config --get user.name`;
-chomp $commit_user;
-my $commit_email = `git config --get user.email`;
-chomp $commit_email;
-my $committer = "$commit_user <$commit_email>";
+my $committer_ident = `git var GIT_COMMITTER_IDENT`;
+chomp $committer_ident;
open (GFI, "|-", "git fast-import --date-format=raw --quiet")
or die "$0: \"git fast-import\" failed to start: $!\n";
my $commit = $mark++;
print GFI "commit $branch\n";
print GFI "mark :$commit\n";
-print GFI "committer $committer ", time(), " +0000\n";
+print GFI "committer $committer_ident\n";
print GFI "data ", length($message), "\n";
print GFI $message, "\n";
print GFI "merge $branch^0\n" if !$new_branch;