read from the open2 filehandle with sysread, not <handle>

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 77c800221b712eebd93b480383839654cb2f2185..4c7643ad7c583e8f8f4c6950edfd30b1c1ba2eea 100644 (file)
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -541,7 +541,9 @@ sub PASV_command {
                       "./server/sockfilt --port 0 --logfile log/sockdata$ftpdnum$ext.log --pidfile .sockdata$ftpdnum$ext.pid $ipv6");
 
     print DWRITE "PING\n";
-    my $pong = <DREAD>;
+    my $pong;
+
+    sysread(DREAD, $pong, 5) || die;
 
     if($pong !~ /^PONG/) {
         kill(9, $slavepid);
@@ -668,7 +670,8 @@ sub PORT_command {
                       "./server/sockfilt --connect $port --logfile log/sockdata$ftpdnum$ext.log --pidfile .sockdata$ftpdnum$ext.pid $ipv6");
 
     print DWRITE "PING\n";
-    my $pong = <DREAD>;
+    my $pong;
+    sysread DREAD, $pong, 5;
 
     if($pong !~ /^PONG/) {
         logmsg "Failed sockfilt for data connection\n";