| 4 |
|
# |
| 5 |
|
# Author: Shaun Ashby <Shaun.Ashby@cern.ch> |
| 6 |
|
# (with contribution from Lassi.Tuura@cern.ch) |
| 7 |
– |
# Update: 2003-11-27 16:45:18+0100 |
| 8 |
– |
# Revision: $Id$ |
| 9 |
– |
# |
| 7 |
|
# Copyright: 2003 (C) Shaun Ashby |
| 8 |
|
# |
| 9 |
|
#-------------------------------------------------------------------- |
| 167 |
|
# Otherwise use the cache as the list of items we need to change. |
| 168 |
|
my $cached = $self->{DIRCACHE}{$path}; |
| 169 |
|
my @items = (); |
| 170 |
< |
my $matchdir='[a-zA-Z0-9].+'; |
| 170 |
> |
my $matchdir='[a-zA-Z0-9][a-zA-Z0-9-_]*'; |
| 171 |
|
|
| 172 |
|
if (! -d _) |
| 173 |
|
{ |
