hjp
/
simba
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

Fix pruning

This commit is contained in:
Peter J. Holzer 2023-11-29 06:03:36 +01:00
parent 92125c7c4e
commit 118bb0a2e7
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/Simba/DA.pm
View File

@ -105,10 +105,13 @@ sub list {
$self->log(10, "list: in $File::Find::dir"); $self->log(10, "list: in $File::Find::dir");
if ($self->{prune}{$File::Find::dir}) { if ($self->{prune}{$File::Find::dir}) {
return (); return ();
} else {
# not sure if sorting is useful
return sort @_;
} }
my $last_component = $File::Find::dir =~ s{.*/}{}r;
if ($self->{prune}{$last_component}) {
return ();
}
# not sure if sorting is useful
return sort @_;
}, },
wanted wanted
=> sub { => sub {