From f3f7c5cc6858ded8808153746c8eb6a2c8f824b9 Mon Sep 17 00:00:00 2001
From: Gabor Szabo <gabor@szabgab.com>
Date: Tue, 29 Nov 2011 17:02:49 +0200
Subject: [PATCH] remove unused sub only_files

---
 t/test.pm | 65 -------------------------------------------------------
 1 file changed, 65 deletions(-)

diff --git a/t/test.pm b/t/test.pm
index b1c8587..c76853e 100644
--- 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
-- 
2.39.2