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 (file)
--- 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 (executable)
--- 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 (file)
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 (executable)
--- 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';