X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Frgit.git;a=blobdiff_plain;f=bin%2Frgit;fp=bin%2Frgit;h=19558a3d85bbf66e8e1777c748e3ab8ce205e62a;hp=98510c2879ab92f7565abe3332f3952552a179b2;hb=1df4b5b8d8d71567094a0c6ec3702ab71b614bd9;hpb=511d4fe4b46173353cd1fdcac0d26ac067868280 diff --git a/bin/rgit b/bin/rgit index 98510c2..19558a3 100755 --- a/bin/rgit +++ b/bin/rgit @@ -3,10 +3,9 @@ use strict; use warnings; -use Carp qw/croak/; -use Config qw/%Config/; -use Cwd qw/cwd/; -use File::Spec (); # catfile, path +use Carp qw/croak/; +use Config qw/%Config/; +use Cwd qw/cwd/; use App::Rgit; use App::Rgit::Utils qw/:levels/; @@ -44,23 +43,11 @@ if (not defined $policy) { setpgrp 0, 0 if $Config{d_setpgrp}; -my $git = $ENV{GIT_EXEC_PATH}; -unless (defined $git) { - for (File::Spec->path) { - my $g = File::Spec->catfile($_, 'git'); - if (-x $g) { - $git = $g; - last; - } - } -} -croak "Couldn't find any valid git executable" unless defined $git; - my $root = $ENV{GIT_DIR}; $root = cwd unless defined $root; my $ar = App::Rgit->new( - git => $git, + git => undef, # Autodiscovery root => $root, cmd => $cmd, args => \@ARGV,