diff options
| author | markm <markm@FreeBSD.org> | 2000-06-25 11:04:01 +0000 |
|---|---|---|
| committer | markm <markm@FreeBSD.org> | 2000-06-25 11:04:01 +0000 |
| commit | 2618fad5bbb2d0182eb31ed805c41b543c513940 (patch) | |
| tree | 52ba93338b13aefd02a0055304a9eccfa0e049f5 /contrib/perl5/lib/syslog.pl | |
| parent | 77644ee620b6a79cf8c538abaf7cd301a875528d (diff) | |
| download | FreeBSD-src-2618fad5bbb2d0182eb31ed805c41b543c513940.zip FreeBSD-src-2618fad5bbb2d0182eb31ed805c41b543c513940.tar.gz | |
Vendor import of Perl 5.006
Diffstat (limited to 'contrib/perl5/lib/syslog.pl')
| -rw-r--r-- | contrib/perl5/lib/syslog.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/contrib/perl5/lib/syslog.pl b/contrib/perl5/lib/syslog.pl index 9e03399..70c439b 100644 --- a/contrib/perl5/lib/syslog.pl +++ b/contrib/perl5/lib/syslog.pl @@ -29,10 +29,12 @@ package syslog; +use warnings::register; + $host = 'localhost' unless $host; # set $syslog'host to change -if ($] >= 5) { - warn "You should 'use Sys::Syslog' instead; continuing" # if $^W +if ($] >= 5 && warnings::enabled()) { + warnings::warn "You should 'use Sys::Syslog' instead; continuing"; } require 'syslog.ph'; |
