Change 14442 by jhi@alpha on 2002/01/27 15:26:52
Subject: [PATCH] Fix up recent op/stat.t failures
From: Andy Dougherty <[EMAIL PROTECTED]>
Date: Sun, 27 Jan 2002 09:46:38 -0500 (EST)
Message-ID:
<[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/t/op/stat.t#57 edit
Differences ...
==== //depot/perl/t/op/stat.t#57 (xtext) ====
Index: perl/t/op/stat.t
--- perl/t/op/stat.t.~1~ Sun Jan 27 08:30:06 2002
+++ perl/t/op/stat.t Sun Jan 27 08:30:06 2002
@@ -216,8 +216,11 @@
# /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------.
End of Patch.
