Add tests for the C<my $x if foo> deprecation, and change the

[p5sagit/p5-mst-13.2.git] / t / op / pack.t

diff --git a/t/op/pack.t b/t/op/pack.t
index 3402376..6e3d6e4 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 =~ /^svr4/ && -f "/etc/issue" && -f "/etc/.relid") # NCR MP-RAS
+          );
 
     my $inf = eval '2**10000';