From e68a27ec7b22753dd2a61585a69290ca2e3c9d80 Mon Sep 17 00:00:00 2001
From: Paul Smith <psmith@gnu.org>
Date: Wed, 9 Feb 2000 07:02:18 +0000
Subject: * Fix some warnings in gettext.c and function.c * Don't try to
 execute tests which are actually directories.

---
 tests/test_driver.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'tests/test_driver.pl')

diff --git a/tests/test_driver.pl b/tests/test_driver.pl
index 4fb738b..18dcc4b 100644
--- a/tests/test_driver.pl
+++ b/tests/test_driver.pl
@@ -117,7 +117,8 @@ sub toplevel
     closedir (SCRIPTDIR);
     foreach $dir (@dirs)
     {
-      next if ! -d "$scriptpath/$dir" || $dir =~ /^\.\.?$/ || $dir eq 'CVS';
+      next if ($dir =~ /^\.\.?$/ || $dir eq 'CVS' || $dir eq 'RCS'
+               || ! -d "$scriptpath/$dir");
       push (@rmdirs, $dir);
       mkdir ("$workpath/$dir", 0777)
            || &error ("Couldn't mkdir $workpath/$dir: $!\n");
@@ -127,7 +128,7 @@ sub toplevel
       closedir (SCRIPTDIR);
       foreach $test (@files)
       {
-        next if $test =~ /^\.\.?$/ || $test =~ /~$/ || $test eq 'CVS';
+        next if $test =~ /~$/ || -d $test;
 	push (@TESTS, "$dir/$test");
       }
     }
-- 
cgit v1.2.3