From: Jari Aalto <jari.aalto@poboxes.com>
Date: Sat, 5 Jan 2008 13:22:17 +0000 (+0200)
Subject: v5.8.8: File::Temp.pm (_gettemp): ignore dir -w test on Cygwin
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=205f85e8dfcf175bc1c738360c2006da8eac7816;p=p5sagit%2Fp5-mst-13.2.git

v5.8.8: File::Temp.pm (_gettemp): ignore dir -w test on Cygwin
Message-ID: <bq8034ba.fsf@blue.sea.net>

p4raw-id: //depot/perl@32892
---

diff --git a/lib/File/Temp.pm b/lib/File/Temp.pm
index 120b532..e77bb82 100644
--- a/lib/File/Temp.pm
+++ b/lib/File/Temp.pm
@@ -203,7 +203,7 @@ Exporter::export_tags('POSIX','mktemp','seekable');
 
 # Version number
 
-$VERSION = '0.20';
+$VERSION = '0.20_01';
 
 # This is a list of characters that can be used in random filenames
 
@@ -462,7 +462,13 @@ sub _gettemp {
     ${$options{ErrStr}} = "Parent directory ($parent) is not a directory";
     return ();
   }
-  unless (-w $parent) {
+
+  if ( $^O eq 'cygwin' ) {
+      # No-op special case. Under Windows Cygwin (FAT32) the directory
+      # permissions cannot be trusted. Directories are always
+      # writable.
+  }
+  elsif (not -w $parent) {
     ${$options{ErrStr}} = "Parent directory ($parent) is not writable\n";
       return ();
   }