diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-13 11:09:05 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-13 11:09:05 +0000 |
| commit | c8fb55d18cd8451b03663f333ebc053a6b458c90 (patch) | |
| tree | 46e26336d8cdf0e9f503f5650660a4aafcc09411 /lib/syslog.pl | |
| parent | 75ccd24da206fac28123ca873a612ce4dde0bb85 (diff) | |
| download | perl-c8fb55d18cd8451b03663f333ebc053a6b458c90.tar.gz | |
final touches for lexical warnings (from Paul Marquess)
p4raw-id: //depot/perl@5702
Diffstat (limited to 'lib/syslog.pl')
| -rw-r--r-- | lib/syslog.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/syslog.pl b/lib/syslog.pl index 9e03399e4d..70c439b9ae 100644 --- a/lib/syslog.pl +++ b/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'; |