Commit 9d1aba78 authored by Leigh Stoller's avatar Leigh Stoller

Minor bug fix to error handling when swapexp fails unusually.

parent 48a54107
#!/usr/bin/perl -w
#
# Copyright (c) 2000-2011 University of Utah and the Flux Group.
# Copyright (c) 2000-2018 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -511,8 +511,13 @@ sub startexp($)
system("$swapexp -b -s in $pid $eid");
$exit_status = $? >> 8;
$running = 1;
if ($exit_status) {
if ($?) {
$running = 0;
if ($? >> 8 == 0) {
# Some other error, say signaled. Bad.
print "$swapexp exit with a signal: $exit_status\n";
$exit_status = -1;
}
}
#
......
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