CGI: Reset permissions during temporary directory test so Win32 can remove.
authorGeorge Greer <perl@greerga.m-l.org>
Thu, 16 Jun 2011 03:59:22 +0000 (23:59 -0400)
committerGeorge Greer <perl@greerga.m-l.org>
Thu, 16 Jun 2011 04:01:26 +0000 (00:01 -0400)
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.

cpan/CGI/t/tmpdir.t

index 6e3fcbd..1407356 100644 (file)
@@ -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; } }