This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Under Mac OS X /dev/stdout is normally a symlink,
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 4 Jan 2002 21:00:53 +0000 (21:00 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 4 Jan 2002 21:00:53 +0000 (21:00 +0000)
but when running the test it seems to become a socket.
So let's extend our censorship.

p4raw-id: //depot/perl@14077

t/op/stat.t

index 2f18382..4857836 100755 (executable)
@@ -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