[inseparable changes from match from perl-5.003_96 to perl-5.003_97]

[perl5.git] / lib / syslog.pl

diff --git a/lib/syslog.pl b/lib/syslog.pl
index 8807ef0..9e03399 100644 (file)
--- a/lib/syslog.pl
+++ b/lib/syslog.pl
@@ -143,7 +143,7 @@ sub xlate {
     $name = uc $name;
     $name = "LOG_$name" unless $name =~ /^LOG_/;
     $name = "syslog'$name";
-    eval(&$name) || -1;
+    defined &$name ? &$name : -1;
 }
 
 sub connect {