From 5688dfbf25135c46a375b4553bc0b44f52b55b52 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 16 Sep 2003 19:10:58 +0000
Subject: [PATCH] More suggested patches for NCR MP-RAS from Andy Dougherty.

p4raw-id: //depot/perl@21249
---
 MANIFEST                     | 1 +
 ext/Sys/Syslog/t/syslog.t    | 4 +++-
 ext/Time/HiRes/hints/svr4.pl | 4 ++++
 t/op/pack.t                  | 8 +++++++-
 4 files changed, 15 insertions(+), 2 deletions(-)
 create mode 100644 ext/Time/HiRes/hints/svr4.pl

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';
 
-- 
2.7.4