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