Check read value in upforwd/ans4

The ans4 server wasn't shutting down cleanly sometimes.  Check that
read returns the expected value for the message length or exit read
loop.

diff --git a/bin/tests/system/upforwd/ans4/ans.pl b/bin/tests/system/upforwd/ans4/ans.pl
index 000be5636ca24ce2ef2e26f85de6d9ae64806ba4..20392a4c1154711fd3284e4a23655e9ae2bbdf0c 100644 (file)
--- a/bin/tests/system/upforwd/ans4/ans.pl
+++ b/bin/tests/system/upforwd/ans4/ans.pl
@@ -357,7 +357,9 @@ for (;;) {
                        last unless $n == 2;
                        my $len = unpack("n", $lenbuf);
                        $n = $conn->sysread($buf, $len);
+                       last unless $n == $len;
                }
                sleep(1);
+               $conn->close;
        }
 }