1*de8cc8edSafresh1#!perl 2*de8cc8edSafresh1use strict; 3*de8cc8edSafresh1use Test::More; 4*de8cc8edSafresh1 5*de8cc8edSafresh1plan tests => 2; 6*de8cc8edSafresh1 7*de8cc8edSafresh1# -------------------- 8*de8cc8edSafresh1# CPAN-RT #55151: Allow temporary facility in syslog() for native mechanism 9*de8cc8edSafresh1# 10*de8cc8edSafresh1use Sys::Syslog qw< :standard :macros >; 11*de8cc8edSafresh1 12*de8cc8edSafresh1openlog("Sys::Syslog", "pid,ndelay", "user"); 13*de8cc8edSafresh1 14*de8cc8edSafresh1eval { syslog("local0|info", "Lorem ipsum dolor sit amet") }; 15*de8cc8edSafresh1is($@, "", "syslog('local0|info', ...)"); 16*de8cc8edSafresh1 17*de8cc8edSafresh1eval { syslog(LOG_LOCAL0|LOG_INFO, "Lorem ipsum dolor sit amet") }; 18*de8cc8edSafresh1is($@, "", "syslog(LOG_LOCAL0|LOG_INFO, ...)"); 19*de8cc8edSafresh1 20