Improve.

diff --git a/grading/threads/run-tests b/grading/threads/run-tests
index 1783ca9550c421547161fd249c75375e0e0f6b5c..028f4a5a6a20fc5f43b7b3ab5280d198f832afdd 100755 (executable)
--- a/grading/threads/run-tests
+++ b/grading/threads/run-tests
@@ -156,7 +156,7 @@ sub run_test {
     }
 
     # Really run the test.
-    $status = really_run_test ($test);
+    my ($status) = really_run_test ($test);
 
     # Save the results for later.
     open (DONE, ">output/$test/done") or die "output/$test/done: create: $!\n";