diff options
| author | Jim Schneider <jschneid@netilla.com> | 2004-03-05 09:03:10 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-06 21:09:10 +0000 |
| commit | 3d0a40792c82863a5c2f99c9481ed777f3c57373 (patch) | |
| tree | 7bb0759e8f1689ddb1231a9579b3920285a9695a | |
| parent | ae2ce6b2de03088561da4cb576cf92242b262c09 (diff) | |
| download | perl-3d0a40792c82863a5c2f99c9481ed777f3c57373.tar.gz | |
Allow syslog() to use numeric constants in addition to strings for
facility names and priorities.
Subject: Patch for Sys::Syslog
Message-Id: <200403051403.10674.jschneid@netilla.com>
p4raw-id: //depot/perl@22451
| -rw-r--r-- | ext/Sys/Syslog/Syslog.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/Sys/Syslog/Syslog.pm b/ext/Sys/Syslog/Syslog.pm index 13598e7de0..244157f755 100644 --- a/ext/Sys/Syslog/Syslog.pm +++ b/ext/Sys/Syslog/Syslog.pm @@ -7,7 +7,7 @@ use Carp; @ISA = qw(Exporter DynaLoader); @EXPORT = qw(openlog closelog setlogmask syslog); @EXPORT_OK = qw(setlogsock); -$VERSION = '0.04'; +$VERSION = '0.05'; # it would be nice to try stream/unix first, since that will be # most efficient. However streams are dodgy - see _syslog_send_stream @@ -394,6 +394,7 @@ sub _syslog_send_socket { sub xlate { local($name) = @_; + return $name+0 if $name =~ /^\s*\d+\s*$/; $name = uc $name; $name = "LOG_$name" unless $name =~ /^LOG_/; $name = "Sys::Syslog::$name"; |