From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 4 Jan 2002 21:00:53 +0000 (+0000)
Subject: Under Mac OS X /dev/stdout is normally a symlink,
X-Git-Tag: accepted/trunk/20130322.191538~28527
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=db8ab41e9b86ed452fc0ed716a2fc9d034b1ed8a;p=platform%2Fupstream%2Fperl.git

Under Mac OS X /dev/stdout is normally a symlink,
but when running the test it seems to become a socket.
So let's extend our censorship.

p4raw-id: //depot/perl@14077
---

diff --git a/t/op/stat.t b/t/op/stat.t
index 2f18382..4857836 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -210,9 +210,9 @@ SKIP: {
     skip "opendir failed: $!", 3 if @DEV == 0;
 
     # /dev/stdout might be either character special or a named pipe,
-    # depending on which OS and how are you running the test, so let's
-    # censor that one away.
-    $DEV =~ s{^[cp].+?\sstdout$}{}m;
+    # or a symlink, or a socket, depending on which OS and how are
+    # you running the test, so let's censor that one away.
+    $DEV =~ s{^[cpls].+?\sstdout$}{}m;
     @DEV =  grep { $_ ne 'stdout' } @DEV;
 
     # /dev/printer is also naughty: in IRIX it shows up as