perl 4.0 patch 31: patch #20, continued

[p5sagit/p5-mst-13.2.git] / lib / syslog.pl

diff --git a/lib/syslog.pl b/lib/syslog.pl
index d5f9812..842414e 100644 (file)
--- a/lib/syslog.pl
+++ b/lib/syslog.pl
@@ -2,6 +2,9 @@
 # syslog.pl
 #
 # $Log:        syslog.pl,v $
+# Revision 4.0.1.1  92/06/08  13:48:05  lwall
+# patch20: new warning for ambiguous use of unary operators
+# 
 # Revision 4.0  91/03/20  01:26:24  lwall
 # 4.0 baseline.
 # 
@@ -164,7 +167,7 @@ sub xlate {
     $name =~ y/a-z/A-Z/;
     $name = "LOG_$name" unless $name =~ /^LOG_/;
     $name = "syslog'$name";
-    eval &$name || -1;
+    eval(&$name) || -1;
 }
 
 sub connect {