Not easy finding a non-writeable directory on Windows

nigelhorne · Nov 26, 2019 · 4a14127 · 4a14127
1 parent 737581b
commit 4a14127
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/t/carp.t b/t/carp.t
@@ -15,8 +15,8 @@ if($@) {
 
 	CARP: {
 		# test save_to is not writable
-		if($^O ne 'MSWin32') {
-			SKIP: {
+		SKIP: {
+			if($^O ne 'MSWin32') {
 				sub test1 {
 					my $b = new_ok('FCGI::Buffer');
 					$b->init(save_to => { directory => '/' });
@@ -32,9 +32,9 @@ if($@) {
 				};
 
 				does_carp_that_matches(\&test1, qr/isn't writeable/);
+			} else {
+				skip("It's tricky finding a directory that isn't writeable on Windows", 3);
 			}
-		} else {
-			skip("It's tricky finding a directory that isn't writeable on Windows", 3);
 		}
 
 		# test save_to is a directory