From: Jarkko Hietaniemi Date: Tue, 16 Sep 2003 19:10:58 +0000 (+0000) Subject: More suggested patches for NCR MP-RAS from Andy Dougherty. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5688dfbf25135c46a375b4553bc0b44f52b55b52;p=p5sagit%2Fp5-mst-13.2.git More suggested patches for NCR MP-RAS from Andy Dougherty. p4raw-id: //depot/perl@21249 --- diff --git a/MANIFEST b/MANIFEST index 1bedb13..f07a4ee 100644 --- a/MANIFEST +++ b/MANIFEST @@ -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 cf38032..bffecaf 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 0000000..7512872 --- /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 3402376..00e8609 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';