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#21866: openlog() produced a "use of uninitialized value in split"
13# warning when given undefined arguments.
14#
15use Sys::Syslog;
16openlog();
17