diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-16 19:10:58 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-16 19:10:58 +0000 |
| commit | 5688dfbf25135c46a375b4553bc0b44f52b55b52 (patch) | |
| tree | 9416fd59978e9c87681c6d887b02de5ec6c4c23c /ext/Sys | |
| parent | 40f422c75bf33f6da66b6b68e6416e11bad0ba61 (diff) | |
| download | perl-5688dfbf25135c46a375b4553bc0b44f52b55b52.tar.gz | |
More suggested patches for NCR MP-RAS from Andy Dougherty.
p4raw-id: //depot/perl@21249
Diffstat (limited to 'ext/Sys')
| -rwxr-xr-x | ext/Sys/Syslog/t/syslog.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/Sys/Syslog/t/syslog.t b/ext/Sys/Syslog/t/syslog.t index cf38032551..bffecaf1a3 100755 --- a/ext/Sys/Syslog/t/syslog.t +++ b/ext/Sys/Syslog/t/syslog.t @@ -47,7 +47,9 @@ print "1..6\n"; if (Sys::Syslog::_PATH_LOG()) { if (-e Sys::Syslog::_PATH_LOG()) { - if ($^O =~ /^(solaris|irix)$/) { + # The only known $^O eq 'svr4' that needs this is NCR MP-RAS, + # but assuming 'stream' in SVR4 is probably not that bad. + if ($^O =~ /^(solaris|irix|svr4)$/) { # we should check for stream support here, not for solaris/irix print defined(eval { setlogsock('stream') }) ? "ok 1\n" : "not ok 1 # $!\n"; } else { |