cpan/Sys-Syslog/t/cpan-rt-64287.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

#!perl
use strict;
use Test::More;

plan tests => 4;

# --------------------
# CPAN-RT #64287: Avoid memory corruption when closelog() is called twice.
#
use Sys::Syslog;

openlog("Sys::Syslog", "pid", "user");
syslog(debug => "Lorem ipsum dolor sit amet");

# first call to closelog()
eval { closelog() };
is($@, "", "closelog()");

# create a variable with a reference to something
$a = {};
isa_ok($a, "HASH");

# second call to closelog()
eval { closelog() };
is($@, "", "closelog()");

# check that the variable still is what it's supposed to be
isa_ok($a, "HASH");