From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 4 Feb 2002 22:09:07 +0000 (+0100)
Subject: File::Find tests not cleaning up properly
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6fecce66bf5da93daf0d8b2ef8093422a24df6a3;p=p5sagit%2Fp5-mst-13.2.git

File::Find tests not cleaning up properly
Message-ID: <20020204220907.A8288@rafael>

p4raw-id: //depot/perl@14554
---

diff --git a/lib/File/Find/t/find.t b/lib/File/Find/t/find.t
index 0a84a0e..c74a646 100644
--- a/lib/File/Find/t/find.t
+++ b/lib/File/Find/t/find.t
@@ -64,23 +64,25 @@ my $FastFileTests_OK = 0;
 sub cleanup {
     if (-d dir_path('for_find')) {
         chdir(dir_path('for_find'));
-	if (-d dir_path('fa')) {
-            unlink file_path('fa', 'fa_ord'),
-                   file_path('fa', 'fsl'),
-                   file_path('fa', 'faa', 'faa_ord'),
-                   file_path('fa', 'fab', 'fab_ord'),
-                   file_path('fa', 'fab', 'faba', 'faba_ord'),
-                   file_path('fb', 'fb_ord'),
-                   file_path('fb', 'fba', 'fba_ord');
-            rmdir dir_path('fa', 'faa');
-            rmdir dir_path('fa', 'fab', 'faba');
-            rmdir dir_path('fa', 'fab');
-            rmdir dir_path('fa');
-            rmdir dir_path('fb', 'fba');
-            rmdir dir_path('fb');
-        }
-        chdir(File::Spec->updir);
-        rmdir dir_path('for_find');
+    }
+    if (-d dir_path('fa')) {
+	unlink file_path('fa', 'fa_ord'),
+	       file_path('fa', 'fsl'),
+	       file_path('fa', 'faa', 'faa_ord'),
+	       file_path('fa', 'fab', 'fab_ord'),
+	       file_path('fa', 'fab', 'faba', 'faba_ord'),
+	       file_path('fb', 'fb_ord'),
+	       file_path('fb', 'fba', 'fba_ord');
+	rmdir dir_path('fa', 'faa');
+	rmdir dir_path('fa', 'fab', 'faba');
+	rmdir dir_path('fa', 'fab');
+	rmdir dir_path('fa');
+	rmdir dir_path('fb', 'fba');
+	rmdir dir_path('fb');
+    }
+    chdir(File::Spec->updir);
+    if (-d dir_path('for_find')) {
+	rmdir dir_path('for_find') or print "# Can't rmdir for_find: $!\n";
     }
 }
 
diff --git a/lib/File/Find/t/taint.t b/lib/File/Find/t/taint.t
index af0e24f..2c76138 100644
--- a/lib/File/Find/t/taint.t
+++ b/lib/File/Find/t/taint.t
@@ -66,23 +66,25 @@ my $FastFileTests_OK = 0;
 sub cleanup {
     if (-d dir_path('for_find')) {
         chdir(dir_path('for_find'));
-        if (-d dir_path('fa')) {
-            unlink file_path('fa', 'fa_ord'),
-                   file_path('fa', 'fsl'),
-                   file_path('fa', 'faa', 'faa_ord'),
-                   file_path('fa', 'fab', 'fab_ord'),
-                   file_path('fa', 'fab', 'faba', 'faba_ord'),
-                   file_path('fb', 'fb_ord'),
-                   file_path('fb', 'fba', 'fba_ord');
-            rmdir dir_path('fa', 'faa');
-            rmdir dir_path('fa', 'fab', 'faba');
-            rmdir dir_path('fa', 'fab');
-            rmdir dir_path('fa');
-            rmdir dir_path('fb', 'fba');
-            rmdir dir_path('fb');
-        }
-        chdir File::Spec->updir;
-        rmdir dir_path('for_find');
+    }
+    if (-d dir_path('fa')) {
+	unlink file_path('fa', 'fa_ord'),
+	       file_path('fa', 'fsl'),
+	       file_path('fa', 'faa', 'faa_ord'),
+	       file_path('fa', 'fab', 'fab_ord'),
+	       file_path('fa', 'fab', 'faba', 'faba_ord'),
+	       file_path('fb', 'fb_ord'),
+	       file_path('fb', 'fba', 'fba_ord');
+	rmdir dir_path('fa', 'faa');
+	rmdir dir_path('fa', 'fab', 'faba');
+	rmdir dir_path('fa', 'fab');
+	rmdir dir_path('fa');
+	rmdir dir_path('fb', 'fba');
+	rmdir dir_path('fb');
+    }
+    chdir File::Spec->updir;
+    if (-d dir_path('for_find')) {
+	rmdir dir_path('for_find') or print "# Can't rmdir for_find: $!\n";
     }
 }