From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 12 Dec 2001 14:01:55 +0000 (+0000)
Subject: Weed out .files from ls and readdir() results.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=267513dcf93555b9d782ab7af9dedf89d948c674;p=p5sagit%2Fp5-mst-13.2.git

Weed out .files from ls and readdir() results.

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

diff --git a/t/op/stat.t b/t/op/stat.t
index 15548e1..299972d 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -212,8 +212,14 @@ SKIP: {
     # /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];