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 (executable)
--- 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);