Improve.

diff --git a/grading/threads/run-tests b/grading/threads/run-tests
index a4afa14c6afc322ef852a2048e506a2dc4493853..75d4a704b8a05a55d8730288123949302c4f5c15 100755 (executable)
--- a/grading/threads/run-tests
+++ b/grading/threads/run-tests
@@ -432,7 +432,7 @@ sub verify_common {
            open (A2L, "$A2L -fe output/$test/kernel.o @addrs|");
            for (;;) {
                my ($function, $line);
-               last unless $function = <A2L>;
+               last unless defined ($function = <A2L>);
                $line = <A2L>;
                chomp $function;
                chomp $line;