This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ignore dotfiles (.cvsignore etc) in test (from Warren Jones
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 24 Apr 2000 05:52:43 +0000 (05:52 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 24 Apr 2000 05:52:43 +0000 (05:52 +0000)
<wjones@tc.fluke.com>)

p4raw-id: //depot/perl@5916

t/lib/glob-basic.t

index 4728083..89024ba 100755 (executable)
@@ -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);