Mention the actual exit code when a suite failed.

diff --git a/source/selftest/selftest.pl b/source/selftest/selftest.pl
index d6cf8d3a00f66d042a42e39518794f13fd0aed57..385d31bbfddced793f0a0f36d10dbab5f363d869 100755 (executable)
--- a/source/selftest/selftest.pl
+++ b/source/selftest/selftest.pl
@@ -256,10 +256,12 @@ sub run_testsuite($$$$$$)
        my $ret = close(RESULT);
        $ret = 0 unless $ret == 1;
 
+       my $exitcode = $? >> 8;
+
        if ($ret == 1) {
                $msg_ops->end_test([], $name, "success", $expected_ret != $ret, undef); 
        } else {
-               $msg_ops->end_test([], $name, "failure", $expected_ret != $ret, "Returned $ret");
+               $msg_ops->end_test([], $name, "failure", $expected_ret != $ret, "Exit code was $exitcode");
        }
 
        cleanup_pcap($pcap_file, $expected_ret, $ret);