Option for taint when setting variable under -be

[exim.git] / test / aux-fixed / 0601.udpserver

diff --git a/test/aux-fixed/0601.udpserver b/test/aux-fixed/0601.udpserver
index 2638ef55f6c1287d2249430c9fe80b9676d4a1a8..31ff65262df2e104d0a2c0170021c7746bb6e9bb 100644 (file)
--- a/test/aux-fixed/0601.udpserver
+++ b/test/aux-fixed/0601.udpserver
@@ -18,6 +18,6 @@ $select = IO::Select->new($socket) or die "IO::Select $!";
 
 if (scalar ($select->can_read(5)) == 1) {
        $socket->recv($recieved_data,1024);
-       select(undef, undef, undef, 0.5);
+       select(undef, undef, undef, 1);
        print "received: $recieved_data\n";
 }