Commit f6d50733 authored by Mike Hibler's avatar Mike Hibler
Browse files

Mike still doesn't know perl after all this time...

Make the check-for-disk-state-saving check actually work!
parent 2ecf8fee
......@@ -4278,12 +4278,14 @@ sub TBExptGetSwapoutAction($$$) {
# Only perform if the experiment has desired state saving.
#
if ($action =~ /create-swapimage/) {
my $doit;
my $doit = 0;
my $query_result =
DBQueryWarn("select savedisk from experiments ".
"where pid='$pid' and eid='$eid'");
if (!$query_result || $query_result->num_rows == 0 ||
(($doit) = $query_result->fetchrow_array()) == 0) {
if ($query_result && $query_result->num_rows != 0) {
($doit) = $query_result->fetchrow_array();
}
if (!$doit) {
%$ref = ();
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