Commit cfe745d5 authored by Christopher Alfeld's avatar Christopher Alfeld
Browse files

Added extra output.

parent 34580b0a
......@@ -405,7 +405,7 @@ foreach $link (keys(%links)) {
# TOP file
# It's time to write out the top file.
$topfile = "/tmp/$$.top";
$topfile = "$$.top";
open(TOPFILE,"> $topfile") || do {
print STDERR "Could not open $topfile.";
exit(1);
......@@ -520,8 +520,15 @@ while ($run <= $maxrun) {
print "Found garbage: $line\n";
}
}
} else {
# spit out up to nodes
print "ASSIGN FAILED:\n";
while (<ASSIGNFP>) {
if (/^Nodes:/) {last;}
print "$_";
}
}
while (<ASSIGNFP>) { } # Read anything left in the pipe before closing
close(ASSIGNFP);
......
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