1*de8cc8edSafresh1#!perl -wT 2*de8cc8edSafresh1use strict; 3*de8cc8edSafresh1use Test::More; 4*de8cc8edSafresh1 5*de8cc8edSafresh1plan tests => 1; 6*de8cc8edSafresh1 7*de8cc8edSafresh1# ---------- 8*de8cc8edSafresh1# CPAN-RT#21516: closelog() wasn't correctly calling closelog_xs() when 9*de8cc8edSafresh1# using the native mechanism. 10*de8cc8edSafresh1# 11*de8cc8edSafresh1use Sys::Syslog; 12*de8cc8edSafresh1openlog("sys-syslog-test", 'pid,ndelay', 'user'); 13*de8cc8edSafresh1closelog(); 14*de8cc8edSafresh1is( $@, '', "was closelog_xs() correctly called?" ); 15