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");
|
