[patch] Sys::Syslog POD - $Sys::Syslog::host

From: "Jay Hannah" <jhannah@omnihotels.com>
Message-ID: <002001c49b5d$6d0d79c0$4722000a@omarests2>

p4raw-id: //depot/perl@23341

diff --git a/ext/Sys/Syslog/Syslog.pm b/ext/Sys/Syslog/Syslog.pm
index 244157f..551a885 100644 (file)
--- a/ext/Sys/Syslog/Syslog.pm
+++ b/ext/Sys/Syslog/Syslog.pm
@@ -128,6 +128,12 @@ Note that C<openlog> now takes three arguments, just like C<openlog(3)>.
     $! = 55;
     syslog('info', 'problem was %m'); # %m == $! in syslog(3)
 
+    # Log to UDP port on $remotehost instead of logging locally
+    setlogsock('udp');
+    $Sys::Syslog::host = $remotehost;
+    openlog($program, 'ndelay', 'user');
+    syslog('info', 'something happened over here');
+
 =head1 SEE ALSO
 
 L<syslog(3)>