X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FApp%2FRgit%2FConfig.pm;h=8044f57c15b9a398d7953b6c593539becbdb021b;hb=34eec9dcea44c01535ee6ab4593d98a724ce7e06;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..8044f57 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 root_repo git/; +use App::Rgit::Repository; use App::Rgit::Utils qw/validate/; =head1 NAME @@ -45,14 +46,19 @@ 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 => $args{root}, + root_repo => $r, + git => $args{git}, ); } =head2 C +=head2 C + =head2 C =head2 C