Improved exit status handling.

[wget] / tests / WgetTest.pm.in

diff --git a/tests/WgetTest.pm.in b/tests/WgetTest.pm.in
index 5cd6769b8c0686d395c230ac9449fe341c7cca69..c4c0d4d94dad44ccf3d4756fd5da59faeb397c93 100644 (file)
--- a/tests/WgetTest.pm.in
+++ b/tests/WgetTest.pm.in
@@ -88,6 +88,7 @@ sub run {
         ($cmdline =~ m{^/.*})
             ? system ($cmdline)
             : system ("$self->{_workdir}/../src/$cmdline");
+    $errcode >>= 8; # XXX: should handle abnormal error codes.
 
     # Shutdown server
     # if we didn't explicitely kill the server, we would have to call