r1982 - Minor fixup such that kargs() method doesn't always return scalar

[com...@warewulf.lbl.gov]

Author: gmk
Date: 2016-04-13 10:50:24 -0700 (Wed, 13 Apr 2016)
New Revision: 1982

Modified:
trunk/provision/lib/Warewulf/Provision.pm
Log:
Minor fixup such that kargs() method doesn't always return scalar


Modified: trunk/provision/lib/Warewulf/Provision.pm
===================================================================
--- trunk/provision/lib/Warewulf/Provision.pm 2016-04-10 02:56:44 UTC (rev 1981)
+++ trunk/provision/lib/Warewulf/Provision.pm 2016-04-13 17:50:24 UTC (rev 1982)
@@ -175,6 +175,7 @@
my ($self, @strings) = @_;
my $key = "kargs";
my $default = "quiet";
+ my @return;

if (scalar(@_) > 1) {
my $name = $self->get("name");
@@ -194,7 +195,14 @@
$self->set($key, @new);
}
}
- return ($self->get($key) || $default);
+
+ @return = $self->get($key);
+
+ if (@return) {
+ return(@return);
+ } else {
+ return($default);
+ }
}