Make sure newly created dir is writeable

rakudo · May 5, 2020 · ef90599 · ef90599
1 parent 6a79e18
commit ef90599
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core.c/CompUnit/PrecompilationStore/File.pm6 b/src/core.c/CompUnit/PrecompilationStore/File.pm6
@@ -243,8 +243,8 @@ class CompUnit::PrecompilationStore::File
             self!file($compiler-id, $precomp-id, :$extension);
         }
 
-        # directory creation successful
-        elsif $!prefix.mkdir {
+        # directory creation successful and writeable
+        elsif $!prefix.mkdir && $!prefix.w {
 
             # make sure we have a tag in it
             $!prefix.child('CACHEDIR.TAG').spurt: