Set directory permissions upon creation

perlpilot · perlpilot · commit ef3187b16230 · 2016-03-10T10:42:26.000-06:00
diff --git a/META6.json b/META6.json
@@ -1,6 +1,6 @@
 {
     "name" : "File::Temp",
-    "version" : "0.0.4",
+    "version" : "0.0.5",
     "description" : "Create temporary files & directories",
     "depends" : [ "File::Directory::Tree" ],
     "build-depends" : [ ],
diff --git a/lib/File/Temp.pm b/lib/File/Temp.pm
@@ -44,8 +44,7 @@ sub make-temp($type, $template, $tempdir, $prefix, $suffix, $unlink) {
             chmod(0o600,$name);
         }
         else {
-            try { CATCH { next }; mkdir($name) };
-            chmod(0o700,$name);
+            try { CATCH { next }; mkdir($name, 0o700) };
         }
         if $unlink {
             $roster-lock.protect: {

Original file line number	Diff line number	Diff line change
`@@ -1,6 +1,6 @@`
`1`	`1`	`{`
`2`	`2`	`"name" : "File::Temp",`
`3`		`- "version" : "0.0.4",`
	`3`	`+ "version" : "0.0.5",`
`4`	`4`	`"description" : "Create temporary files & directories",`
`5`	`5`	`"depends" : [ "File::Directory::Tree" ],`
`6`	`6`	`"build-depends" : [ ],`
Original file line number	Diff line number	Diff line change
`@@ -44,8 +44,7 @@ sub make-temp($type, $template, $tempdir, $prefix, $suffix, $unlink) {`
`44`	`44`	`chmod(0o600,$name);`
`45`	`45`	`}`
`46`	`46`	`else {`
`47`		`- try { CATCH { next }; mkdir($name) };`
`48`		`- chmod(0o700,$name);`
	`47`	`+ try { CATCH { next }; mkdir($name, 0o700) };`
`49`	`48`	`}`
`50`	`49`	`if $unlink {`
`51`	`50`	`$roster-lock.protect: {`