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