X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fsyslog.pl;h=9e03399e4df608371ccf957a03fbae2ecbea9afc;hb=054b02d6604bb3beeebed2d8a040d025b131c9a6;hp=614068e7fc039942e6d1fe95d65eb1289b5649e8;hpb=8e4ea0b466a4933c45646f1d6fefe96c799d2a72;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/syslog.pl b/lib/syslog.pl
index 614068e..9e03399 100644
--- a/lib/syslog.pl
+++ b/lib/syslog.pl
@@ -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 {