diff options
| author | grommel@sears.com <grommel@sears.com> | 2003-09-23 08:40:33 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-23 19:33:45 +0000 |
| commit | ca37ab507eb0cfe686e1e8008a10e033024f46d5 (patch) | |
| tree | d764092d536cf7ed2911a63218b13fe56c2c908c /t/op/stat.t | |
| parent | 8d410bc4d2eab1d6e87b832152ba1fd130bba116 (diff) | |
| download | perl-ca37ab507eb0cfe686e1e8008a10e033024f46d5.tar.gz | |
Re: NCR MP-RAS perl problems [perl #23791]
Message-ID: <OF17BD5036.3CA48F9B-ON86256DAA.00483620-86256DAA.0066A1AA@LocalDomain>
p4raw-id: //depot/perl@21344
Diffstat (limited to 't/op/stat.t')
| -rwxr-xr-x | t/op/stat.t | 3 |
1 files changed, 3 insertions, 0 deletions
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"; |