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