X-Git-Url: https://git.donarmstrong.com/?p=term-progressbar.git;a=blobdiff_plain;f=t%2Ftest.pm;fp=t%2Ftest.pm;h=94fc11dcbd99a68ef2aaeb605ae9e315b15cb1ce;hp=c76853e893093483998b3bd18231cdf73d85783c;hb=e59392b1f706692841626e7549aecf0d12e8e39f;hpb=f3f7c5cc6858ded8808153746c8eb6a2c8f824b9

diff --git a/t/test.pm b/t/test.pm
index c76853e..94fc11d 100644
--- a/t/test.pm
+++ b/t/test.pm
@@ -124,22 +124,10 @@ sub rel2abs {
   if ( File::Spec->file_name_is_absolute($_[0]) ) {
     return $_[0];
   } else {
-    return catdir(cwd, $_[0]);
+    return File::Spec->catdir(cwd, $_[0]);
   }
 }
 
-sub catdir {
-  File::Spec->catdir(@_);
-}
-
-sub catfile {
-  File::Spec->catfile(@_);
-}
-
-sub updir {
-  File::Spec->updir(@_);
-}
-
 sub min {
   croak "Can't min over 0 args!\n"
     unless @_;
@@ -156,13 +144,13 @@ sub min {
 # PACKAGE CONSTANTS
 # -------------------------------------
 
-use constant BUILD_SCRIPT_DIR => => catdir $Bin, updir, qw( blib script );
+use constant BUILD_SCRIPT_DIR => => File::Spec->catdir( $Bin, File::Spec->updir, qw( blib script ) );
 
 sub find_exec {
   my ($exec) = @_;
 
   for (split /:/, $PATH) {
-    my $try = catfile $_, $exec;
+    my $try = File::Spec->catfile($_, $exec);
     return rel2abs($try)
       if -x $try;
   }