Commit aa25701a authored by Mike Hibler's avatar Mike Hibler

Fix bonehead logic error in waiting for DNS to come on line.

parent 895a7e94
#!/usr/bin/perl -wT
#
# Copyright (c) 2000-2012 University of Utah and the Flux Group.
# Copyright (c) 2000-2013 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -83,11 +83,10 @@ my $bossname = tmccbossname();
if (!$bossname) {
for (my $i = 1; $i <= 3; $i++) {
print STDERR "Waiting for DNS...\n";
sleep(1);
sleep($i);
$bossname = tmccbossname();
last if ($bossname);
}
$bossname = "";
}
if ($bossname =~ /^[^\.]+\.(.*)$/) {
$domain = ".$1";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment