Fix pruning

2023-11-29 06:03:36 +01:00 · 2023-11-29 06:03:36 +01:00 · 118bb0a2e7
parent 92125c7c4e
commit 118bb0a2e7
1 changed files with 6 additions and 3 deletions
--- a/lib/Simba/DA.pm
+++ b/lib/Simba/DA.pm
@ -105,10 +105,13 @@ sub list {
                        $self->log(10, "list: in $File::Find::dir");
                        if ($self->{prune}{$File::Find::dir}) {
                            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
                => sub {