|
Lines 306-318
Link Here
|
| 306 |
# - not excluded and $_ is a dir? |
306 |
# - not excluded and $_ is a dir? |
| 307 |
if (! $self->{'EXCLUDE_DIRS'}{$tc} && -d $repo.'/'.$tc) { |
307 |
if (! $self->{'EXCLUDE_DIRS'}{$tc} && -d $repo.'/'.$tc) { |
| 308 |
$dhp = new DirHandle($repo.'/'.$tc); |
308 |
$dhp = new DirHandle($repo.'/'.$tc); |
| 309 |
while (defined($tp = $dhp->read)) { |
309 |
if (defined $dhp) { |
| 310 |
# - look up if entry matches the search |
310 |
while (defined($tp = $dhp->read)) { |
| 311 |
# (much faster if we already check now) > |
311 |
# - look up if entry matches the search |
| 312 |
if ($tp =~m/$searchString/i) { |
312 |
# (much faster if we already check now) > |
| 313 |
# - not excluded and $_ is a dir? |
313 |
if ($tp =~m/$searchString/i) { |
| 314 |
if (! $self->{'EXCLUDE_DIRS'}{$tp} && -d $repo.'/'.$tc.'/'.$tp) { |
314 |
# - not excluded and $_ is a dir? |
| 315 |
push(@matches,$tc.'/'.$tp); |
315 |
if (! $self->{'EXCLUDE_DIRS'}{$tp} && -d $repo.'/'.$tc.'/'.$tp) { |
|
|
316 |
push(@matches,$tc.'/'.$tp); |
| 317 |
} |
| 316 |
} |
318 |
} |
| 317 |
} |
319 |
} |
| 318 |
} |
320 |
} |
|
Lines 330-342
Link Here
|
| 330 |
# - not excluded and $_ is a dir? |
332 |
# - not excluded and $_ is a dir? |
| 331 |
if (! $self->{'EXCLUDE_DIRS'}{$tc} && -d $repo.'/'.$tc) { |
333 |
if (! $self->{'EXCLUDE_DIRS'}{$tc} && -d $repo.'/'.$tc) { |
| 332 |
$dhp = new DirHandle($repo.'/'.$tc); |
334 |
$dhp = new DirHandle($repo.'/'.$tc); |
| 333 |
while (defined($tp = $dhp->read)) { |
335 |
if (defined $dhp) { |
| 334 |
# - look up if entry matches the search |
336 |
while (defined($tp = $dhp->read)) { |
| 335 |
# (much faster if we already check now) > |
337 |
# - look up if entry matches the search |
| 336 |
if ($tp eq $searchString) { |
338 |
# (much faster if we already check now) > |
| 337 |
# - not excluded and $_ is a dir? |
339 |
if ($tp eq $searchString) { |
| 338 |
if (! $self->{'EXCLUDE_DIRS'}{$tp} && -d $repo.'/'.$tc.'/'.$tp) { |
340 |
# - not excluded and $_ is a dir? |
| 339 |
push(@matches,$tc.'/'.$tp); |
341 |
if (! $self->{'EXCLUDE_DIRS'}{$tp} && -d $repo.'/'.$tc.'/'.$tp) { |
|
|
342 |
push(@matches,$tc.'/'.$tp); |
| 343 |
} |
| 340 |
} |
344 |
} |
| 341 |
} |
345 |
} |
| 342 |
} |
346 |
} |
