Commit d877c1f3 authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

Minor fixes to make perl 5.8 happy and quiet!

parent fdbb105c
......@@ -835,7 +835,7 @@ sub osload_setupswapinfo($$;@)
my $allnodes;
my $clause = "";
if (!defined(@nodelist)) {
if (!@nodelist) {
@nodelist = ExpNodes($pid, $eid, 1);
$clause .= "r.pid='$pid' and r.eid='$eid'";
$allnodes = 1;
......
Supports Markdown
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