diff options
| author | George Greer <perl@greerga.m-l.org> | 2011-06-15 23:59:22 -0400 |
|---|---|---|
| committer | George Greer <perl@greerga.m-l.org> | 2011-06-16 00:01:26 -0400 |
| commit | eb883b9286505f2ba163b6a72b9978e9a3645b4d (patch) | |
| tree | 5d9a175148a497bcf1cef5b2362315d3e4266a68 /cpan | |
| parent | 6294fed80448f0136ca1d81cbf068a7ed0168d09 (diff) | |
| download | perl-eb883b9286505f2ba163b6a72b9978e9a3645b4d.tar.gz | |
CGI: Reset permissions during temporary directory test so Win32 can remove.
The 'tmpdir.t' test leaves the permissions of the directories at 0500, which
translates into setting the 'read-only' bit in Win32-speak. That makes the
'rmdir' in the END block fail (silently) and thus the test is very unhappy
the next time through. It is easy enough to just run the test twice to see.
Diffstat (limited to 'cpan')
| -rw-r--r-- | cpan/CGI/t/tmpdir.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cpan/CGI/t/tmpdir.t b/cpan/CGI/t/tmpdir.t index 6e3fcbd87d..1407356a2f 100644 --- a/cpan/CGI/t/tmpdir.t +++ b/cpan/CGI/t/tmpdir.t @@ -37,4 +37,4 @@ isnt($CGITempFile::TMPDIRECTORY, $testdir, "unwritable \$ENV{TMPDIR} not overridden with an unwritable \$CGITempFile::TMPDIRECTORY"); } -END { rmdir for ($testdir, $testdir2) } +END { for ($testdir, $testdir2) { chmod 0700, $_; rmdir; } } |