remove unused sub only_files

diff --git a/t/test.pm b/t/test.pm
index b1c85878eeb70e9b10684573bd8f6a93e0788d7f..c76853e893093483998b3bd18231cdf73d85783c 100644 (file)
--- a/t/test.pm
+++ b/t/test.pm
@@ -86,8 +86,6 @@ The following symbols are exported upon request:
 
 =item evcheck
 
-=item only_files
-
 =item save_output
 
 =item restore_output
@@ -194,69 +192,6 @@ chdir $tmpdn;
 # PACKAGE FUNCTIONS
 # -------------------------------------
 
-=head2 only_files
-
-=over 4
-
-=item ARGUMENTS
-
-=over 4
-
-=item expect
-
-Arrayref of names of files to expect to exist.
-
-=back
-
-=item RETURNS
-
-=over 4
-
-=item ok
-
-1 if exactly expected files exist, false otherwise.
-
-=back
-
-=back
-
-=cut
-
-sub only_files {
-  my ($expect) = @_;
-
-  local *MYDIR;
-  opendir MYDIR, '.';
-  my %files = map { $_ => 1 } readdir MYDIR;
-  closedir MYDIR;
-
-  my $ok = 1;
-
-  for (@$expect, '.', '..') {
-    if ( exists $files{$_} ) {
-      delete $files{$_};
-    } elsif ( ! -e $_ ) { # $_ might be absolute
-      carp "File not found: $_\n"
-        if $ENV{TEST_DEBUG};
-      $ok = 0;
-    }
-  }
-
-  for (keys %files) {
-    carp "Extra file found: $_\n"
-      if $ENV{TEST_DEBUG};
-    $ok = 0;
-  }
-
-  if ( $ok ) {
-    return 1;
-  } else {
-    return;
-  }
-}
-
-# -------------------------------------
-
 =head2 evcheck
 
 Eval code, return status