Make the data directory, even on AUTOMATED TESTING environments

Makefile.PL

@@ -4,6 +4,17 @@ use strict;
 use warnings;
 use ExtUtils::MakeMaker 6.64;	# 6.64 for TEST_REQUIRES
 
+my @dirs = (
+	'lib/Genealogy/ObituaryDailyTimes/data'
+);
+
+foreach my $dir(@dirs) {
+	if(! -d $dir) {
+		print "Creating the download directory $dir\n";
+		mkdir $dir, 0755 || die "$dir: $@";
+	}
+}
+
 my $prereqs = {
 	'autodie' => 0,
 	'Carp' => 0,

bin/create_db.PL

@@ -44,17 +44,16 @@ my %normalised;
 my $force_flag;
 my $dir = 'lib/Genealogy/ObituaryDailyTimes/data';
 
-if(!-d $dir) {
-	# Make the data directory, even on AUTOMATED TESTING environments
-	mkdir $dir, 0755;
-}
-
 if(defined($ARGV[0]) && ($ARGV[0] eq '-f')) {
 	$force_flag++;
 } elsif($ENV{'AUTOMATED_TESTING'}) {
 	exit;
 }
 
+if(!-d $dir) {
+	mkdir $dir, 0755;
+}
+
 my $filename = File::Spec->catdir($dir, 'obituaries.sql');
 
 if(-r $filename) {