IRIX ls -l marks sockets with 'S'.

p4raw-id: //depot/perl@18997

diff --git a/t/op/stat.t b/t/op/stat.t
index df478b0..89046c3 100755 (executable)
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -242,6 +242,11 @@ SKIP: {
     $DEV =~ s{^.+?\s\..+?$}{}m;
     @DEV =  grep { ! m{^\..+$} } @DEV;
 
+    # Irix ls -l marks sockets with 'S' while 's' is a 'XENIX semaphore'.
+    if ($^O eq 'irix') {
+        $DEV =~ s{^S(.+?)}{s$1}mg;
+    }
+
     my $try = sub {
        my @c1 = eval qq[\$DEV =~ /^$_[0].*/mg];
        my @c2 = eval qq[grep { $_[1] "/dev/\$_" } \@DEV];