X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FApp%2FRgit%2FConfig.pm;h=ae850758197bd429fa540b8341ded6db55f187e0;hb=f00c02ec880d4c182584fc4f046df634df67401f;hp=846006ee97ddab1ddc7b00662527cba95b1507d1;hpb=4c6f2bc56bc50a662b2c2625bcc012d4757f9abf;p=perl%2Fmodules%2Frgit.git diff --git a/lib/App/Rgit/Config.pm b/lib/App/Rgit/Config.pm index 846006e..ae85075 100644 --- a/lib/App/Rgit/Config.pm +++ b/lib/App/Rgit/Config.pm @@ -7,8 +7,9 @@ use Carp qw/croak/; use Cwd qw/abs_path/; use File::Spec::Functions qw/file_name_is_absolute/; -use Object::Tiny qw/root git/; +use Object::Tiny qw/root git cwd_repo/; +use App::Rgit::Repository; use App::Rgit::Utils qw/validate/; =head1 NAME @@ -45,9 +46,12 @@ sub new { return unless defined $args{git} and -x $args{git}; my $conf = 'App::Rgit::Config::Default'; eval "require $conf; 1" or croak "Couldn't load $conf: $@"; + my $r = App::Rgit::Repository->new(fake => 1); + return unless defined $r; $conf->SUPER::new( - root => $args{root}, - git => $args{git}, + root => $root, + git => $args{git}, + cwd_repo => $r, ); } @@ -57,6 +61,8 @@ sub new { =head2 C +=head2 C + Accessors. =head1 SEE ALSO