10883: scancel slurm job when erroring out early.

refs #10883

diff --git a/sdk/cli/bin/crunch-job b/sdk/cli/bin/crunch-job
index a2e42d6fac498b1b30437ad71def8bad7e946f3d..68c925259cec4729a41c17a716946d2a5d28a7d0 100755 (executable)
--- a/sdk/cli/bin/crunch-job
+++ b/sdk/cli/bin/crunch-job
@@ -1843,6 +1843,7 @@ sub croak
   my ($package, $file, $line) = caller;
   my $message = "@_ at $file line $line\n";
   Log (undef, $message);
+  release_allocation();
   freeze() if @jobstep_todo;
   create_output_collection() if @jobstep_todo;
   cleanup();