1# The client writes a message to Sys::Syslog native method. 2# The syslogd writes it into a file and through a pipe. 3# The syslogd passes it via IPv4 TCP to an explicit loghost. 4# The server receives the message on its TCP socket. 5# Find the message in client, file, pipe, syslogd, server log. 6# Check that the syslogd has closed UDP sockets in fstat output. 7 8use strict; 9use warnings; 10use Socket; 11 12our %args = ( 13 syslogd => { 14 loghost => '@tcp://127.0.0.1:$connectport', 15 fstat => { 16 qr/ internet dgram udp \*:514$/ => 0, 17 qr/ internet6 dgram udp \*:514$/ => 0, 18 }, 19 }, 20 server => { 21 listen => { domain => AF_INET, proto => "tcp", addr => "127.0.0.1" }, 22 }, 23); 24 251; 26