1#!perl -wT
2use strict;
3use Test::More;
4
5# any remaining warning should be severly punished
6eval "use Test::NoWarnings";
7my $tests = $@ ? 0 : 1;
8plan skip_all => "Test::NoWarnings not available" if !$tests;
9plan tests => $tests;
10
11# ----------
12# CPAN-RT#25488: disconnect_log() produced a "uninitialized" warning
13# because $current_proto was used without being checked.
14#
15use Sys::Syslog  qw(:standard :macros);
16openlog("sys-syslog-test", "", LOG_USER);
17closelog();
18