Commit 9a5c2a3f authored by Mike Hibler's avatar Mike Hibler
Browse files

Avoid unsightly undefined var reference.

parent 92214a94
#!/usr/bin/perl -w
#
# Copyright (c) 2000-2009 University of Utah and the Flux Group.
# Copyright (c) 2000-2014 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -214,7 +214,8 @@ sub UpdateField {
if ($Status ne $val) {
print "Setting $port to $val..." if $self->{DEBUG};
$retval = $self->{SESS}->set([[$OID,$port,$val,"INTEGER"]]);
print "Set returned '$retval'" if $self->{DEBUG};
$retval = "" if (!defined($retval));
print "Set returned '$retval'\n" if $self->{DEBUG};
if ($retval) { return 0; } else { return 1; }
}
return 0;
......
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