Commit ade5ae45 authored by Mike Hibler's avatar Mike Hibler

Avoid those unsightly undefined variable references

parent aa08bdbf
#!/usr/bin/perl -wT
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2004 University of Utah and the Flux Group.
# Copyright (c) 2000-2005 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
......@@ -40,10 +40,11 @@ use libtmcc;
# We assume that we are in the same domain as our boss node
#
my $bossname = tmccbossname();
$bossname = "UNKNOWN"
if (!defined($bossname));
if ($bossname =~ /^[^\.]+\.(.*)$/) {
$domain = ".$1";
}
else {
} else {
$domain = ".foo.net";
}
......
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