Browse files

remove use of Cwd::abs_path without argument preferring Cwd::getcwd i…

…nstead
  • Loading branch information...
1 parent f208289 commit 35592d5e083fde603497a72bb44577b6c6df9b17 @jberger jberger committed Dec 2, 2012
Showing with 10 additions and 10 deletions.
  1. +3 −3 t/array.t
  2. +2 −2 t/chdir.t
  3. +3 −3 t/delete-array.t
  4. +2 −2 t/var.t
View
6 t/array.t
@@ -3,7 +3,7 @@
use strict;
use Test::More tests => 55;
use File::Spec::Functions qw/canonpath splitdir catdir splitpath catpath/;
-use Cwd qw/getcwd abs_path/;
+use Cwd qw/getcwd/;
BEGIN { use_ok('File::chdir') }
@@ -12,7 +12,7 @@ BEGIN { use_ok('File::chdir') }
#--------------------------------------------------------------------------#-
# _catdir has OS-specific path separators so do the same for getcwd
-sub _getcwd { canonpath( abs_path ) }
+sub _getcwd { canonpath( getcwd ) }
# reassemble
sub _catpath {
@@ -21,7 +21,7 @@ sub _catpath {
}
# get $vol here and use it later
-my ($vol,$cwd) = splitpath(canonpath(abs_path),1);
+my ($vol,$cwd) = splitpath(canonpath(getcwd),1);
# get directory list the way a user would use it -- without empty leading dir
# as returned by splitdir;
View
4 t/chdir.t
@@ -3,12 +3,12 @@
use strict;
use Test::More tests => 6;
use File::Spec::Functions qw/canonpath catdir/;
-use Cwd qw/getcwd abs_path/;
+use Cwd qw/getcwd/;
BEGIN { use_ok('File::chdir') }
# _catdir has OS-specific path separators so do the same for getcwd
-sub _getcwd { canonpath( abs_path ) }
+sub _getcwd { canonpath( getcwd ) }
my($cwd) = _getcwd =~ /(.*)/; # detaint otherwise nothing's gonna work
View
6 t/delete-array.t
@@ -14,7 +14,7 @@ BEGIN {
}
use File::Spec::Functions qw/canonpath splitdir catdir splitpath catpath/;
-use Cwd qw/getcwd abs_path/;
+use Cwd qw/getcwd/;
BEGIN { use_ok('File::chdir') }
@@ -23,7 +23,7 @@ BEGIN { use_ok('File::chdir') }
#--------------------------------------------------------------------------#-
# _catdir has OS-specific path separators so do the same for getcwd
-sub _getcwd { canonpath( abs_path ) }
+sub _getcwd { canonpath( getcwd ) }
# reassemble
sub _catpath {
@@ -32,7 +32,7 @@ sub _catpath {
}
# get $vol here and use it later
-my ($vol,$cwd) = splitpath(canonpath(abs_path),1);
+my ($vol,$cwd) = splitpath(canonpath(getcwd),1);
# get directory list the way a user would use it -- without empty leading dir
# as returned by splitdir;
View
4 t/var.t
@@ -3,12 +3,12 @@
use strict;
use Test::More tests => 13;
use File::Spec::Functions qw/canonpath catdir/;
-use Cwd qw/getcwd abs_path/;
+use Cwd qw/getcwd/;
BEGIN { use_ok('File::chdir') }
# _catdir has OS-specific path separators so do the same for getcwd
-sub _getcwd { canonpath( abs_path ) }
+sub _getcwd { canonpath( getcwd ) }
my $cwd = _getcwd;

0 comments on commit 35592d5

Please sign in to comment.