Change 13517 by jhi@alpha on 2001/12/07 15:19:20
/dev/stdout could be either a character special file
or a named pipe, so let's pretend it doesn't exist.
Affected files ...
.... //depot/perl/t/op/stat.t#42 edit
Differences ...
==== //depot/perl/t/op/stat.t#42 (xtext) ====
Index: perl/t/op/stat.t
--- perl/t/op/stat.t.~1~ Fri Dec 7 08:30:06 2001
+++ perl/t/op/stat.t Fri Dec 7 08:30:06 2001
@@ -206,12 +206,18 @@
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');
End of Patch.
