1*de8cc8edSafresh1#!perl 2*de8cc8edSafresh1use strict; 3*de8cc8edSafresh1#use Test::More; 4*de8cc8edSafresh1 5*de8cc8edSafresh1#plan tests => 2; 6*de8cc8edSafresh1 7*de8cc8edSafresh1# -------------------- 8*de8cc8edSafresh1# CPAN-RT #49877: Options not reset after closelog() 9*de8cc8edSafresh1# 10*de8cc8edSafresh1use Sys::Syslog qw< :standard :macros >; 11*de8cc8edSafresh1 12*de8cc8edSafresh1openlog("Sys::Syslog", "pid,ndelay,perror", "user"); 13*de8cc8edSafresh1syslog(info => "Lorem ipsum dolor sit amet"); 14*de8cc8edSafresh1closelog(); 15*de8cc8edSafresh1 16*de8cc8edSafresh1openlog("Sys::Syslog", "ndelay,perror", "user"); 17*de8cc8edSafresh1syslog(info => "Lorem ipsum dolor sit amet"); 18*de8cc8edSafresh1closelog(); 19*de8cc8edSafresh1 20