| 47 |
|
my $self=shift; |
| 48 |
|
my ($path) = @_; |
| 49 |
|
opendir (DIR, $path) || die "$path: cannot read: $!\n"; |
| 50 |
< |
# Skip .admin subdirectories too: |
| 51 |
< |
my @items = map { "$path/$_" } grep ($_ ne "." && $_ ne ".." && $_ ne ".admin", readdir(DIR)); |
| 50 |
> |
# Skip .admin subdirectories too. |
| 51 |
> |
# Also skip files that look like backup files or files being modified with emacs: |
| 52 |
> |
my @items = map { "$path/$_" } grep ( |
| 53 |
> |
$_ ne "." && $_ ne ".." && |
| 54 |
> |
$_ ne ".admin" && $_ !~ m|\.#*|, |
| 55 |
> |
readdir(DIR) |
| 56 |
> |
); |
| 57 |
|
closedir (DIR); |
| 58 |
|
return @items; |
| 59 |
|
} |
