This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Also IRIX wants setlogsock('stream').
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 14 Sep 2003 09:44:49 +0000 (09:44 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 14 Sep 2003 09:44:49 +0000 (09:44 +0000)
p4raw-id: //depot/perl@21227

ext/Sys/Syslog/Syslog.pm
ext/Sys/Syslog/t/syslog.t

index a63c8bc..13598e7 100644 (file)
@@ -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
index 9caecb4..cf38032 100755 (executable)
@@ -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";