workaround older git without "commit-tree -m"

We need to support older git versions lying around.
Some versions broke argument ordering, too.

diff --git a/lib/Ssoma/Git.pm b/lib/Ssoma/Git.pm
index 5f5702bbcaf7cf281c0fe6aa1085e5e61b0725aa..22118932c8043c99038dfa085359069a430fe4b8 100644 (file)
--- a/lib/Ssoma/Git.pm
+++ b/lib/Ssoma/Git.pm
@@ -263,10 +263,13 @@ sub commit_index {
        }
 
        # make the commit
-       my @cmd = (qw/git commit-tree -m/, $message);
-       push @cmd, '-p', $parent if $parent;
+       my @cmd = qw/git commit-tree/;
        push @cmd, $tree;
-       my $commit = $self->qx_sha1(join(' ', @cmd));
+       push @cmd, '-p', $parent if $parent;
+
+       # git commit-tree -m didn't work in older git versions
+       $message =~ /\A\w+\z/ or die "message must be \\w+ only\n";
+       my $commit = $self->qx_sha1("echo $message |". join(' ', @cmd));
 
        # update the ref
        @cmd = (qw/git update-ref/, $ref, $commit);