Less namespace pollution

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

diff --git a/lib/App/Rgit/Config.pm b/lib/App/Rgit/Config.pm
index 2ac22b23c149cc268412cabf80d9b52097cf560d..7a247eb7dc67357b73d018a3c884eeb12ba5a5fa 100644 (file)
--- a/lib/App/Rgit/Config.pm
+++ b/lib/App/Rgit/Config.pm
@@ -3,9 +3,9 @@ package App::Rgit::Config;
 use strict;
 use warnings;
 
-use Carp                  ();
-use Cwd                   qw/abs_path/;
-use File::Spec::Functions qw/canonpath/;
+use Carp       (); # confess
+use Cwd        (); # abs_path
+use File::Spec (); # canonpath
 
 use App::Rgit::Repository;
 use App::Rgit::Utils qw/:levels/;
@@ -46,7 +46,7 @@ sub new {
 
  my $root = $args{root};
  return unless defined $root and -d $root;
- $root = canonpath abs_path $root;
+ $root = File::Spec->canonpath(Cwd::abs_path($root));
 
  my $git = $args{git};
  return unless defined $git;
@@ -58,7 +58,7 @@ sub new {
  } else {
   return unless -x $git;
  }
- $git = canonpath abs_path $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: $@");