From: Jarkko Hietaniemi <jhi@iki.fi>
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';