Change 13655 by jhi@alpha on 2001/12/12 14:01:55
Weed out .files from ls and readdir() results.
Affected files ...
.... //depot/perl/t/op/stat.t#50 edit
Differences ...
==== //depot/perl/t/op/stat.t#50 (xtext) ====
Index: perl/t/op/stat.t
--- perl/t/op/stat.t.~1~ Wed Dec 12 07:15:05 2001
+++ perl/t/op/stat.t Wed Dec 12 07:15:05 2001
@@ -212,8 +212,14 @@
# /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;
+ $DEV =~ s{^[cp].+?\sstdout$}{}m;
+ @DEV = grep { $_ ne 'stdout' } @DEV;
+
+ # If running as root, we will see .files in the ls result,
+ # and readdir() will see them always. Potential for conflict,
+ # so let's weed them out.
+ $DEV =~ s{^.+?\s\..+?$}{}m;
+ @DEV = grep { ! m{^\..+$} } @DEV;
my $try = sub {
my @c1 = eval qq[\$DEV =~ /^$_[0].*/mg];
End of Patch.
