1#!perl
2use strict;
3use Test::More;
4
5plan tests => 4;
6
7# --------------------
8# CPAN-RT #64287: Avoid memory corruption when closelog() is called twice.
9#
10use Sys::Syslog;
11
12openlog("Sys::Syslog", "pid", "user");
13syslog(debug => "Lorem ipsum dolor sit amet");
14
15# first call to closelog()
16eval { closelog() };
17is($@, "", "closelog()");
18
19# create a variable with a reference to something
20$a = {};
21isa_ok($a, "HASH");
22
23# second call to closelog()
24eval { closelog() };
25is($@, "", "closelog()");
26
27# check that the variable still is what it's supposed to be
28isa_ok($a, "HASH");
29
30