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 UDP to the loghost. 4# The server receives the message on its UDP socket. 5# Find the message in client, file, pipe, syslogd, server log. 6# Check in log and ktrace that kqueue has been used. 7 8use strict; 9use warnings; 10 11$ENV{EVENT_NOKQUEUE} = 0; 12$ENV{EVENT_NOPOLL} = 1; 13$ENV{EVENT_NOSELECT} = 1; 14 15our %args = ( 16 syslogd => { 17 loggrep => qr/libevent using: kqueue/, 18 ktrace => qr/CALL kqueue/, 19 }, 20); 21 221; 23