Change 14077 by jhi@alpha on 2002/01/04 21:00:53

        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.

Affected files ...

.... //depot/perl/t/op/stat.t#53 edit

Differences ...

==== //depot/perl/t/op/stat.t#53 (xtext) ====
Index: perl/t/op/stat.t
--- perl/t/op/stat.t.~1~        Fri Jan  4 14:15:05 2002
+++ perl/t/op/stat.t    Fri Jan  4 14:15:05 2002
@@ -210,9 +210,9 @@
     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
End of Patch.

Reply via email to