From: George Greer <perl@greerga.m-l.org>
Date: Thu, 16 Jun 2011 03:59:22 +0000 (-0400)
Subject: CGI: Reset permissions during temporary directory test so Win32 can remove.
X-Git-Tag: accepted/trunk/20130322.191538~3713
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=eb883b9286505f2ba163b6a72b9978e9a3645b4d;p=platform%2Fupstream%2Fperl.git

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.
---

diff --git a/cpan/CGI/t/tmpdir.t b/cpan/CGI/t/tmpdir.t
index 6e3fcbd..1407356 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; } }