another <case> converted to sysread

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 4c7643a..abc0f74 100644 (file)
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -123,7 +123,8 @@ sub startsf {
     print STDERR "$cmd\n" if($verbose);
 
     print SFWRITE "PING\n";
-    my $pong = <SFREAD>;
+    my $pong;
+    sysread SFREAD, $pong, 5;
 
     if($pong !~ /^PONG/) {
         logmsg "Failed sockfilt command: $cmd\n";