]> git.donarmstrong.com Git - function2gene.git/blobdiff - bin/get_harvester_results
update everything again
[function2gene.git] / bin / get_harvester_results
index 97734e9348963e9ede2a8e45a00a91d74b2a3d7b..7446e088c245d9d58adcafef59dd04f769edb6a8 100755 (executable)
@@ -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;