| Subject: | $dir->children( no_hidden => 1 ) |
patch attached
| Subject: | no_hidden.patch |
--- /home/edenc/perl5/lib/perl5/Path/Class/Dir.pm 2006-12-24 23:29:25.000000000 -0300
+++ Dir.pm 2008-10-08 23:38:49.000000000 -0300
@@ -167,6 +167,7 @@
while (my $entry = $dh->read) {
# XXX What's the right cross-platform way to do this?
next if (!$opts{all} && ($entry eq '.' || $entry eq '..'));
+ next if ($opts{no_hidden} && $entry =~ /^\./);
push @out, $self->file($entry);
$out[-1] = $self->subdir($entry) if -d $out[-1];
}