use strict;
use warnings;
-use Carp ();
-use Cwd qw/abs_path/;
-use File::Spec::Functions qw/file_name_is_absolute/;
+use Carp (); # confess
+use Cwd (); # abs_path
+use File::Spec (); # canonpath
use App::Rgit::Repository;
use App::Rgit::Utils qw/:levels/;
my $root = $args{root};
return unless defined $root and -d $root;
- $root = abs_path $root unless file_name_is_absolute $root;
+ $root = File::Spec->canonpath(Cwd::abs_path($root));
my $git = $args{git};
return unless defined $git;
} else {
return unless -x $git;
}
+ $git = File::Spec->canonpath(Cwd::abs_path($git));
my $conf = 'App::Rgit::Config::Default';
eval "require $conf; 1" or Carp::confess("Couldn't load $conf: $@");
=head1 BUGS
-Please report any bugs or feature requests to C<bug-rgit at rt.cpan.org>, or through the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=rgit>. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
+Please report any bugs or feature requests to C<bug-rgit at rt.cpan.org>, or through the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=rgit>.
+I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
=head1 SUPPORT