add variable $git_command

diff --git a/Topbloke.pm b/Topbloke.pm
index b469f26ba5c3341476722f8e19d488c66dd093eb..fac5c35d6957b09355b25a208535995c97043da2 100644 (file)
--- a/Topbloke.pm
+++ b/Topbloke.pm
@@ -26,6 +26,8 @@ BEGIN {
     @EXPORT_OK   = qw();
 }
 
+our $git_command = 'git';
+
 sub debug ($) {
     my ($msg) = @_;
     print STDERR "DEBUG: $msg\n" or die $!;
@@ -49,18 +51,18 @@ sub run_git {
            die ref($ref)." @_ ?";
        }
     }
-    open GIT, "-|", 'git', @_ or die $!;
+    open GIT, "-|", $git_command, @_ or die $!;
     if ($linecallr) {
        while (<GIT>) {
-           chomp or die "$_ ?";
+           chomp or die "$git_command @_ gave $_ ?";
            $linecallr->();
        }
        GIT->eof or die $!;
     }
     if (!close GIT) {
-       die "git @_ $!" if $!;
+       die "$git_command @_ $!" if $!;
        die unless $?;
-       die "git @_ ($?)" unless $estatusr;
+       die "$git_command @_ ($?)" unless $estatusr;
        $$estatusr = $?;
     } else {
        $$estatusr = 0 if $estatusr;