Change 14554 by jhi@alpha on 2002/02/04 23:22:28
Subject: [PATCH] File::Find tests not cleaning up properly
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Mon, 4 Feb 2002 22:09:07 +0100
Message-ID: <20020204220907.A8288@rafael>
Affected files ...
.... //depot/perl/lib/File/Find/t/find.t#7 edit
.... //depot/perl/lib/File/Find/t/taint.t#8 edit
Differences ...
==== //depot/perl/lib/File/Find/t/find.t#7 (text) ====
Index: perl/lib/File/Find/t/find.t
--- perl/lib/File/Find/t/find.t.~1~ Mon Feb 4 16:30:05 2002
+++ perl/lib/File/Find/t/find.t Mon Feb 4 16:30:05 2002
@@ -64,23 +64,25 @@
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";
}
}
==== //depot/perl/lib/File/Find/t/taint.t#8 (text) ====
Index: perl/lib/File/Find/t/taint.t
--- perl/lib/File/Find/t/taint.t.~1~ Mon Feb 4 16:30:05 2002
+++ perl/lib/File/Find/t/taint.t Mon Feb 4 16:30:05 2002
@@ -66,23 +66,25 @@
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";
}
}
End of Patch.
