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