@EXPORT_OK = qw();
}
+our $git_command = 'git';
+
sub debug ($) {
my ($msg) = @_;
print STDERR "DEBUG: $msg\n" or die $!;
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;