X-Git-Url: https://git.donarmstrong.com/?p=function2gene.git;a=blobdiff_plain;f=bin%2Fget_harvester_results;h=7446e088c245d9d58adcafef59dd04f769edb6a8;hp=97734e9348963e9ede2a8e45a00a91d74b2a3d7b;hb=dd8ec1d4cecf282940831171ef0f796570d781fd;hpb=1c08756f612648e7c2823b0a8e9acfdbb833470e

diff --git a/bin/get_harvester_results b/bin/get_harvester_results
index 97734e9..7446e08 100755
--- a/bin/get_harvester_results
+++ b/bin/get_harvester_results
@@ -125,7 +125,9 @@ while (<$terms>) {
      my $url = $uri->as_string;
      my $queue = Thread::Queue->new();
      my $dir_name = eval qq("$options{name}") or die $@;
-     mkdir("$options{dir}/$dir_name") or die "Unable to make directory $options{dir}/$dir_name $!";
+     if (not -d "$options{dir}/$dir_name") {
+	mkdir("$options{dir}/$dir_name") or die "Unable to make directory $options{dir}/$dir_name $!";
+     }
      my $wget_thread = threads->new(\&get_url,"$options{dir}/$dir_name",$queue);
      push @threads,$wget_thread;