1*de8cc8edSafresh1#!perl -wT 2*de8cc8edSafresh1use strict; 3*de8cc8edSafresh1use Test::More; 4*de8cc8edSafresh1 5*de8cc8edSafresh1# any remaining warning should be severly punished 6*de8cc8edSafresh1eval "use Test::NoWarnings"; 7*de8cc8edSafresh1my $tests = $@ ? 0 : 1; 8*de8cc8edSafresh1plan skip_all => "Test::NoWarnings not available" if !$tests; 9*de8cc8edSafresh1plan tests => $tests; 10*de8cc8edSafresh1 11*de8cc8edSafresh1# ---------- 12*de8cc8edSafresh1# CPAN-RT#21866: openlog() produced a "use of uninitialized value in split" 13*de8cc8edSafresh1# warning when given undefined arguments. 14*de8cc8edSafresh1# 15*de8cc8edSafresh1use Sys::Syslog; 16*de8cc8edSafresh1openlog(); 17