Testsuite: case 0601 logging ordering
authorJeremy Harris <jgh146exb@wizmail.org>
Fri, 21 Nov 2014 15:12:17 +0000 (15:12 +0000)
committerJeremy Harris <jgh146exb@wizmail.org>
Fri, 21 Nov 2014 15:13:45 +0000 (15:13 +0000)
test/aux-fixed/0601.udpserver

index 5513402b06101721cee964118e2c91b5fc1574c9..2638ef55f6c1287d2249430c9fe80b9676d4a1a8 100644 (file)
@@ -18,5 +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);
        print "received: $recieved_data\n";
 }