X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Frgit.git;a=blobdiff_plain;f=lib%2FApp%2FRgit%2FConfig.pm;fp=lib%2FApp%2FRgit%2FConfig.pm;h=903b3e4f9a433055274f96f511dfed03ed9039f1;hp=94a3359ff98767303214c7a5e1a8a25afb0cbd8e;hb=569b85b70a20cac15bc2ff0bed6df11ac0e844ec;hpb=1df4b5b8d8d71567094a0c6ec3702ab71b614bd9

diff --git a/lib/App/Rgit/Config.pm b/lib/App/Rgit/Config.pm
index 94a3359..903b3e4 100644
--- a/lib/App/Rgit/Config.pm
+++ b/lib/App/Rgit/Config.pm
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Carp       (); # confess
-use Cwd        (); # abs_path
+use Cwd        (); # cwd, abs_path
 use File::Spec (); # canonpath, catfile, path
 
 use App::Rgit::Repository;
@@ -44,8 +44,12 @@ sub new {
 
  my %args = @_;
 
- my $root = $args{root};
- return unless defined $root and -d $root;
+ my $root = defined $args{root}
+              ? $args{root}
+              : defined $ENV{GIT_DIR}
+                  ? $ENV{GIT_DIR}
+                  : Cwd::cwd;
+ Carp::confess("Invalid root directory") unless -d $root;
  $root = File::Spec->canonpath(Cwd::abs_path($root));
 
  my $git;