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 {
}
}
return unless defined $repo;
+ $repo = canonpath $repo;
@chunks = splitdir $repo;
$last = pop @chunks;
if ($last eq '.git') {