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 -6 does not pass it via IPv4 UDP to the loghost. 4# Find the message in client, file, pipe, syslogd log. 5# Check that the syslogd logs the error. 6 7use strict; 8use warnings; 9 10our %args = ( 11 syslogd => { 12 loghost => '@udp4://127.0.0.1', 13 loggrep => { 14 qr/syslogd\[\d+\]: no udp4 "\@udp4:\/\/127.0.0.1/ => 1, 15 get_testgrep() => 1, 16 }, 17 options => ["-6"], 18 }, 19 server => { 20 noserver => 1, 21 }, 22); 23 241; 25