Make the path to the git executable absolute in App::Rgit::Config->new

[perl/modules/rgit.git] / lib / App / Rgit / Config.pm

diff --git a/lib/App/Rgit/Config.pm b/lib/App/Rgit/Config.pm
index 1cac51d6a75854b7c2e8c9c78f216ec717d09106..dd6dff2af7f24ad8b2d7224255eea8878cf90bfd 100644 (file)
--- 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.