From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 16 Mar 2003 18:07:30 +0000 (+0000)
Subject: IRIX ls -l marks sockets with 'S'.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=085a16fc645d01e9c317a227fb12575af270d8fb;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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];