From ca37ab507eb0cfe686e1e8008a10e033024f46d5 Mon Sep 17 00:00:00 2001 From: "grommel@sears.com" Date: Tue, 23 Sep 2003 08:40:33 -0500 Subject: Re: NCR MP-RAS perl problems [perl #23791] Message-ID: p4raw-id: //depot/perl@21344 --- t/op/stat.t | 3 +++ 1 file changed, 3 insertions(+) (limited to 't/op/stat.t') diff --git a/t/op/stat.t b/t/op/stat.t index b863f98c80..3cc3f0a1fa 100755 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -25,6 +25,7 @@ $Is_OS2 = $^O eq 'os2'; $Is_Solaris = $^O eq 'solaris'; $Is_VMS = $^O eq 'VMS'; $Is_DGUX = $^O eq 'dgux'; +$Is_MPRAS = $^O =~ /svr4/ && -f '/etc/.relid'; $Is_Dosish = $Is_Dos || $Is_OS2 || $Is_MSWin32 || $Is_NetWare || $Is_Cygwin; @@ -211,6 +212,8 @@ SKIP: { if $Is_MSWin32 || $Is_NetWare || $Is_Dos; skip "/dev isn't available to test against", 6 unless -d '/dev' && -r '/dev' && -x '/dev'; + skip "Skipping; unexpected ls output in MP-RAS", 6 + if $Is_MPRAS; my $LS = $Config{d_readlink} ? "ls -lL" : "ls -l"; my $CMD = "$LS /dev 2>/dev/null"; -- cgit v1.2.1