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 00e8609..6e3d6e4 100755 (executable)
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -189,7 +189,7 @@ sub list_eq ($$) {
           ||
           ($^O eq 'ultrix')
           ||
-          ($^O eq 'svr4' && -f "/etc/issue" && -f "/etc/.relid") # NCR MP-RAS
+          ($^O =~ /^svr4/ && -f "/etc/issue" && -f "/etc/.relid") # NCR MP-RAS
           );
 
     my $inf = eval '2**10000';