X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FCommon.pm;h=101cee6283603405dfcc5830dd9e277e837a0613;hp=27993647cab189c2d926ab5c3d690e1de7cf6edd;hb=HEAD;hpb=c8c8d4ba8a2e5a3c8b6a6b787a354f72c29964e2

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 2799364..101cee6 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -226,13 +226,15 @@ sub ensure_disk_location_exists {
 	my $img_dir = $Sesse::pr0n::Config::image_base . "/images/$dir/";
 	if (! -d $img_dir) {
 		log_info($r, "Need to create new image directory $img_dir");
-		mkdir($img_dir) or die "Couldn't create new image directory $img_dir";
+		mkdir($img_dir);  # Ignore errors, there could be a race.
+		-d $img_dir or die "Couldn't create new image directory $img_dir";
 	}
 
 	my $cache_dir = $Sesse::pr0n::Config::image_base . "/cache/$dir/";
 	if (! -d $cache_dir) {
 		log_info($r, "Need to create new cache directory $cache_dir");
-		mkdir($cache_dir) or die "Couldn't create new image directory $cache_dir";
+		mkdir($cache_dir);  # Ignore errors, there could be a race.
+		-d $cache_dir or die "Couldn't create new cache directory $cache_dir";
 	}
 }