diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-05-25 10:31:21 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-05-25 10:31:21 +0000 |
| commit | ae77835f9b08444f73b593d4cdc0758132dbbf00 (patch) | |
| tree | 5f626cfecad7636b4da1329b5602c41f2cf53d23 /lib/syslog.pl | |
| parent | c750a3ec3b866067ab46dbcc9083205d823047c3 (diff) | |
| parent | ec4e49dc1523dcdb6bec56a66be410eab95cfa61 (diff) | |
| download | perl-ae77835f9b08444f73b593d4cdc0758132dbbf00.tar.gz | |
First stab at 5.003 -> 5.004 integration.
p4raw-id: //depot/perl@18
Diffstat (limited to 'lib/syslog.pl')
| -rw-r--r-- | lib/syslog.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/syslog.pl b/lib/syslog.pl index 29c3a1cc9a..9e03399e4d 100644 --- a/lib/syslog.pl +++ b/lib/syslog.pl @@ -37,7 +37,7 @@ if ($] >= 5) { require 'syslog.ph'; - eval 'use Socket' || + eval 'use Socket; 1' || eval { require "socket.ph" } || require "sys/socket.ph"; @@ -140,10 +140,10 @@ sub main'syslog { sub xlate { local($name) = @_; - $name =~ y/a-z/A-Z/; + $name = uc $name; $name = "LOG_$name" unless $name =~ /^LOG_/; $name = "syslog'$name"; - eval(&$name) || -1; + defined &$name ? &$name : -1; } sub connect { |