open (GFI, "|-", "git fast-import --date-format=raw --quiet")
or die "$0: \"git fast-import\" failed to start: $!\n";
open (GFI, "|-", "git fast-import --date-format=raw --quiet")
or die "$0: \"git fast-import\" failed to start: $!\n";
print GFI "data ", length($message), "\n";
print GFI $message, "\n";
print GFI "merge $branch^0\n" if !$new_branch;
print GFI "data ", length($message), "\n";
print GFI $message, "\n";
print GFI "merge $branch^0\n" if !$new_branch;