From: Andy Dougherty <doughera@lafayette.edu>
Date: Sun, 27 Jan 2002 09:46:38 +0000 (-0500)
Subject: Fix up recent op/stat.t failures
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6320a86aa1aec64b81d9446bcbad2a508f869246;p=p5sagit%2Fp5-mst-13.2.git

Fix up recent op/stat.t failures
Message-ID: <Pine.SOL.4.10.10201270943120.4253-100000@maxwell.phys.lafayette.edu>

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

diff --git a/t/op/stat.t b/t/op/stat.t
index dac954a..c3bbe83 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -216,8 +216,11 @@ SKIP: {
     # /dev/stdout might be either character special or a named pipe,
     # or a symlink, or a socket, depending on which OS and how are
     # you running the test, so let's censor that one away.
+    # Similar remarks hold for stderr.
     $DEV =~ s{^[cpls].+?\sstdout$}{}m;
     @DEV =  grep { $_ ne 'stdout' } @DEV;
+    $DEV =~ s{^[cpls].+?\sstderr$}{}m;
+    @DEV =  grep { $_ ne 'stderr' } @DEV;
 
     # /dev/printer is also naughty: in IRIX it shows up as
     # Srwx-----, not srwx------.