diff options
| -rw-r--r-- | MANIFEST | 1 | ||||
| -rwxr-xr-x | ext/Sys/Syslog/t/syslog.t | 4 | ||||
| -rw-r--r-- | ext/Time/HiRes/hints/svr4.pl | 4 | ||||
| -rwxr-xr-x | t/op/pack.t | 8 |
4 files changed, 15 insertions, 2 deletions
@@ -744,6 +744,7 @@ ext/Time/HiRes/hints/dec_osf.pl Hint for Time::HiRes for named architecture ext/Time/HiRes/hints/dynixptx.pl Hint for Time::HiRes for named architecture ext/Time/HiRes/hints/irix.pl Hint for Time::HiRes for named architecture ext/Time/HiRes/hints/sco.pl Hints for Time::HiRes for named architecture +ext/Time/HiRes/hints/svr4.pl Hints for Time::HiRes for named architecture ext/Time/HiRes/HiRes.pm Time::HiRes extension ext/Time/HiRes/HiRes.xs Time::HiRes extension ext/Time/HiRes/Makefile.PL Time::HiRes extension 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 { diff --git a/ext/Time/HiRes/hints/svr4.pl b/ext/Time/HiRes/hints/svr4.pl new file mode 100644 index 0000000000..75128724f2 --- /dev/null +++ b/ext/Time/HiRes/hints/svr4.pl @@ -0,0 +1,4 @@ +# NCR MP-RAS needs to explicitly link against libc to pull in usleep +# what's the reason for -lm? +$self->{LIBS} = ['-lm', '-lc']; + diff --git a/t/op/pack.t b/t/op/pack.t index 3402376ec8..00e8609021 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -184,7 +184,13 @@ sub list_eq ($$) { if (($^O eq 'VMS') && !defined($Config{useieee})); skip("-- $^O has serious fp indigestion on w-packed infinities", 1) - if (($^O eq 'mpeix') || ($^O eq 'ultrix')); + if ( + ($^O eq 'mpeix') + || + ($^O eq 'ultrix') + || + ($^O eq 'svr4' && -f "/etc/issue" && -f "/etc/.relid") # NCR MP-RAS + ); my $inf = eval '2**10000'; |