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