Commit 0d251604 authored by Leigh Stoller's avatar Leigh Stoller

Minor tweak to creating fake intefaces.

parent 11b0f767
#!/usr/bin/perl -wT #!/usr/bin/perl -wT
# #
# Copyright (c) 2005-2012 University of Utah and the Flux Group. # Copyright (c) 2005-2013 University of Utah and the Flux Group.
# #
# {{{EMULAB-LICENSE # {{{EMULAB-LICENSE
# #
...@@ -1062,8 +1062,12 @@ sub Update($$) ...@@ -1062,8 +1062,12 @@ sub Update($$)
return -1 return -1
if (! ref($self)); if (! ref($self));
return 0 if (exists($self->{'FAKE'})) {
if (exists($self->{'FAKE'})); foreach my $key (keys(%{$argref})) {
$self->{"DBROW"}->{$key} = $argref->{$key};
}
return 0;
}
my $nodeid = $self->node_id(); my $nodeid = $self->node_id();
my $unit = $self->unit(); my $unit = $self->unit();
......
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