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