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 (file)
--- 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 (file)
--- 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";
     }
 }