From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 24 Apr 2000 05:52:43 +0000 (+0000)
Subject: ignore dotfiles (.cvsignore etc) in test (from Warren Jones
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=94a371ee7128c99a38226de46cbec028ae3a990e;p=p5sagit%2Fp5-mst-13.2.git

ignore dotfiles (.cvsignore etc) in test (from Warren Jones
<wjones@tc.fluke.com>)

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

diff --git a/t/lib/glob-basic.t b/t/lib/glob-basic.t
index 4728083..89024ba 100755
--- a/t/lib/glob-basic.t
+++ b/t/lib/glob-basic.t
@@ -27,7 +27,7 @@ $ENV{PATH} = "/bin";
 delete @ENV{BASH_ENV, CDPATH, ENV, IFS};
 @correct = ();
 if (opendir(D, ".")) {
-   @correct = grep { !/^\.\.?$/ } sort readdir(D);
+   @correct = grep { !/^\./ } sort readdir(D);
    closedir D;
 }
 @a = File::Glob::glob("*", 0);