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