projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Debugger update
[p5sagit/p5-mst-13.2.git]
/
lib
/
syslog.pl
diff --git
a/lib/syslog.pl
b/lib/syslog.pl
index
614068e
..
9e03399
100644
(file)
--- 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 {