stop exporting unused subs

[term-progressbar.git] / t / test.pm

diff --git a/t/test.pm b/t/test.pm
index c76853e893093483998b3bd18231cdf73d85783c..1a7422945c06df796a1ee8959812b6d33146796f 100644 (file)
--- a/t/test.pm
+++ b/t/test.pm
@@ -100,8 +100,7 @@ The following symbols are exported upon request:
 
 =cut
 
-@EXPORT_OK = qw( compare evcheck  
-                 save_output restore_output tempdir tmpnam );
+@EXPORT_OK = qw( evcheck save_output restore_output );
 
 # Utility -----------------------------
 
@@ -124,22 +123,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 +143,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;
   }