From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 7 Dec 2001 15:19:20 +0000 (+0000)
Subject: /dev/stdout could be either a character special file
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9aa9a1a6c6ecf1c6e255e8bfa7994df33d26e362;p=p5sagit%2Fp5-mst-13.2.git

/dev/stdout could be either a character special file
or a named pipe, so let's pretend it doesn't exist.

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

diff --git a/t/op/stat.t b/t/op/stat.t
index 36ab149..b99734b 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -206,12 +206,18 @@ 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].+?\bstdout$}{}m;
+    @DEV = grep { ! m{\bstdout$} } @DEV;
+
     my $try = sub {
 	my @c1 = eval qq[\$DEV =~ /^$_[0]/mg];
 	my @c2 = eval qq[grep { $_[1] "/dev/\$_" } \@DEV];
 	my $c1 = scalar @c1;
 	my $c2 = scalar @c2;
-	is($c1, $c2, "ls and $_[1] agree on /dev ($c1 $c2)");
+	is($c1, $c2, "ls and $_[1] agreeing on /dev ($c1 $c2)");
     };
 
     $try->('b', '-b');