X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FApp%2FRgit%2FConfig.pm;h=dd6dff2af7f24ad8b2d7224255eea8878cf90bfd;hb=e295d1865b0480223b82fe2373ba79cf5485466e;hp=1cac51d6a75854b7c2e8c9c78f216ec717d09106;hpb=1c5bf56c6f80e4cd818c341b34ba3410f34ed514;p=perl%2Fmodules%2Frgit.git diff --git a/lib/App/Rgit/Config.pm b/lib/App/Rgit/Config.pm index 1cac51d..dd6dff2 100644 --- a/lib/App/Rgit/Config.pm +++ b/lib/App/Rgit/Config.pm @@ -3,7 +3,7 @@ package App::Rgit::Config; use strict; use warnings; -use Carp qw/croak/; +use Carp (); use Cwd qw/abs_path/; use File::Spec::Functions qw/file_name_is_absolute/; @@ -58,9 +58,10 @@ sub new { } else { return unless -x $git; } + $git = abs_path $git unless file_name_is_absolute $git; my $conf = 'App::Rgit::Config::Default'; - eval "require $conf; 1" or croak "Couldn't load $conf: $@"; + eval "require $conf; 1" or Carp::confess("Couldn't load $conf: $@"); my $r = App::Rgit::Repository->new(fake => 1); return unless defined $r; @@ -143,7 +144,7 @@ You can find documentation for this module with the perldoc command. =head1 COPYRIGHT & LICENSE -Copyright 2008-2009 Vincent Pit, all rights reserved. +Copyright 2008,2009,2010 Vincent Pit, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.