remove some internal subs

diff --git a/t/test.pm b/t/test.pm
index c76853e893093483998b3bd18231cdf73d85783c..94fc11dcbd99a68ef2aaeb605ae9e315b15cb1ce 100644 (file)
--- 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 {
   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 @_;
 sub min {
   croak "Can't min over 0 args!\n"
     unless @_;


@@ -156,13 +144,13 @@ sub min {
 # PACKAGE CONSTANTS
 # -------------------------------------
 
 # 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) {
 
 sub find_exec {
   my ($exec) = @_;
 
   for (split /:/, $PATH) {

-    my $try = catfile $_, $exec;
+    my $try = File::Spec->catfile($_, $exec);

     return rel2abs($try)
       if -x $try;
   }
     return rel2abs($try)
       if -x $try;
   }