X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FApp%2FRgit%2FRepository.pm;h=fbf3f8619f0ff5ec7a1dcea3d34eaf07f5fcc1c9;hb=2e8121b94bf4847686087060a709fa3bb433f4ee;hp=ec08d4b45e316c235e5b851fbc852f9beb1ff1eb;hpb=3ff07b59ff41754a77105973a4f1e9d6d25b2c3a;p=perl%2Fmodules%2Frgit.git diff --git a/lib/App/Rgit/Repository.pm b/lib/App/Rgit/Repository.pm index ec08d4b..fbf3f86 100644 --- a/lib/App/Rgit/Repository.pm +++ b/lib/App/Rgit/Repository.pm @@ -3,10 +3,12 @@ package App::Rgit::Repository; use strict; use warnings; -use Cwd (); # cwd, abs_path +use Cwd (); # cwd use File::Spec (); # canonpath, catdir, splitdir, abs2rel use POSIX (); # WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG SIGINT SIGQUIT +use App::Rgit::Utils (); # abs_path + my ($WIFEXITED, $WEXITSTATUS, $WIFSIGNALED, $WTERMSIG); BEGIN { @@ -26,11 +28,11 @@ App::Rgit::Repository - Class representing a Git repository. =head1 VERSION -Version 0.07 +Version 0.08 =cut -our $VERSION = '0.07'; +our $VERSION = '0.08'; =head1 DESCRIPTION @@ -55,7 +57,7 @@ sub new { my $dir = $args{dir}; if (defined $dir) { - $dir = Cwd::abs_path($dir); + $dir = App::Rgit::Utils::abs_path($dir); } else { $dir = Cwd::cwd; }