PathTools: use mkpath instead of make_path in tests
authorRicardo Signes <rjbs@cpan.org>
Thu, 14 Jan 2016 13:17:44 +0000 (08:17 -0500)
committerRicardo Signes <rjbs@cpan.org>
Thu, 14 Jan 2016 13:17:44 +0000 (08:17 -0500)
make_path doesn't exist until File::Path 2.08, which didn't ship
with core until v5.12.  Adding a prerequisite on File::Path would
put us one step closer to a horrible circular dependency between
non-core PathTools and non-core File::Path.  This avoids that by
using the ancient and adequate mkpath.

dist/PathTools/t/abs2rel.t

index 5e33ab6..b77a1c2 100644 (file)
@@ -6,7 +6,7 @@ use Test::More;
 use Cwd qw(cwd getcwd abs_path);
 use File::Spec();
 use File::Temp qw(tempdir);
-use File::Path qw(make_path);
+use File::Path qw(mkpath);
 
 my $startdir = cwd();
 my @files = ( 'anyfile', './anyfile', '../first_sub_dir/anyfile', '../second_sub_dir/second_file' );
@@ -25,8 +25,8 @@ sub test_rel2abs {
         File::Spec->catdir('first_sub_dir',  'sub_sub_dir'),
         'second_sub_dir'
     );
-    make_path(@subdirs, { mode => 0711 })
-        or die "Unable to make_path: $!";
+    mkpath(@subdirs, { mode => 0711 })
+        or die "Unable to mkpath: $!";
 
     open my $OUT2, '>',
         File::Spec->catfile('second_sub_dir', 'second_file')