Also IRIX wants setlogsock('stream').

p4raw-id: //depot/perl@21227

diff --git a/ext/Sys/Syslog/Syslog.pm b/ext/Sys/Syslog/Syslog.pm
index a63c8bc..13598e7 100644 (file)
--- a/ext/Sys/Syslog/Syslog.pm
+++ b/ext/Sys/Syslog/Syslog.pm
@@ -88,6 +88,7 @@ systems a character special device) returned by the C<_PATH_LOG> macro
 (if your system defines it), or F</dev/log> or F</dev/conslog>,
 whatever is writable.  A value of 'stream' will connect to the stream
 indicated by the pathname provided as the optional second parameter.
+(For example Solaris and IRIX require 'stream' instead of 'unix'.)
 A value of 'inet' will connect to an INET socket (either tcp or udp,
 tried in that order) returned by getservbyname(). 'tcp' and 'udp' can
 also be given as values. The value 'console' will send messages

diff --git a/ext/Sys/Syslog/t/syslog.t b/ext/Sys/Syslog/t/syslog.t
index 9caecb4..cf38032 100755 (executable)
--- a/ext/Sys/Syslog/t/syslog.t
+++ b/ext/Sys/Syslog/t/syslog.t
@@ -47,8 +47,8 @@ print "1..6\n";
 
 if (Sys::Syslog::_PATH_LOG()) {
     if (-e Sys::Syslog::_PATH_LOG()) {
-        if ($^O =~ /^solaris$/) {
-            # we should check for stream support here, not for solaris
+        if ($^O =~ /^(solaris|irix)$/) {
+            # we should check for stream support here, not for solaris/irix
             print defined(eval { setlogsock('stream') }) ? "ok 1\n" : "not ok 1 # $!\n";
         } else { 
             print defined(eval { setlogsock('unix') }) ? "ok 1\n" : "not ok 1 # $!\n";