From: Vincent Pit <vince@profvince.com>
Date: Sat, 27 Dec 2008 21:52:37 +0000 (+0100)
Subject: Canonify the repository path
X-Git-Tag: v0.06~4
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=c3b443e68bbe06efc7c40f0f9ace3919a6d0864b;p=perl%2Fmodules%2Frgit.git

Canonify the repository path
---

diff --git a/lib/App/Rgit/Repository.pm b/lib/App/Rgit/Repository.pm
index f415a81..dbdfe73 100644
--- a/lib/App/Rgit/Repository.pm
+++ b/lib/App/Rgit/Repository.pm
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Cwd qw/cwd abs_path/;
-use File::Spec::Functions qw/catdir splitdir abs2rel file_name_is_absolute/;
+use File::Spec::Functions qw/canonpath catdir splitdir abs2rel file_name_is_absolute/;
 use POSIX qw/WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG SIGINT SIGQUIT/;
 
 BEGIN {
@@ -66,6 +66,7 @@ sub new {
    }
   }
   return unless defined $repo;
+  $repo = canonpath $repo;
   @chunks = splitdir $repo;
   $last = pop @chunks;
   if ($last eq '.git') {