Fix File::Path calls for older File::Path versions

kblin · Aug 23, 2010 · b1f171e · b1f171e
1 parent 7020019
commit b1f171e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/t/SeqIO/mbsout.t b/t/SeqIO/mbsout.t
@@ -3,7 +3,7 @@ use version;
 our $API_VERSION = qv('1.1.3');
 
 use strict;
-use File::Path qw(make_path remove_tree);
+use File::Path qw(mkpath rmtree);
 
 BEGIN {
     use lib '.';    # for core package test scripts only
@@ -34,7 +34,7 @@ sub create_dir {
     $dir = test_input_file($dir);
 
     unless ( -d $dir ) {
-        make_path($dir);
+        mkpath($dir);
     }
 }
 

diff --git a/t/SeqIO/msout.t b/t/SeqIO/msout.t
@@ -3,7 +3,7 @@ use version;
 our $API_VERSION = qv('1.1.5');
 
 use strict;
-use File::Path qw(make_path remove_tree);
+use File::Path qw(mkpath rmtree);
 
 BEGIN {
     use lib '.';    # for core package test scripts only
@@ -36,7 +36,7 @@ sub create_dir {
     $dir = test_input_file($dir);
 
     unless ( -d $dir ) {
-        make_path($dir);
+        mkpath($dir);
     }
 }
 
@@ -47,7 +47,7 @@ sub remove_dir {
     $dir = test_input_file($dir);
 
     if ( -d $dir ) {
-        remove_tree($dir);
+        rmtree($dir);
     }
     else { warn "Tried to remove $dir, but it does not exist" }
 }