lei_mirror: fix glob semantics to match end-of-path

Globs such as `*/foo' should not match `*/foobar',
this allows cloning only `git' and not
`gitolite-transparency-log` off lore

diff --git a/lib/PublicInbox/LeiMirror.pm b/lib/PublicInbox/LeiMirror.pm
index a7ddfcd2834a11146f762af48d6da7cab7add198..40164b676ddb7591536789161ef3a7d14ab1ef35 100644 (file)
--- a/lib/PublicInbox/LeiMirror.pm
+++ b/lib/PublicInbox/LeiMirror.pm
@@ -506,18 +506,18 @@ sub multi_inbox ($$$) {
        my $n = scalar(keys %$v2) + scalar(@v1);
        my @orig = defined($incl // $excl) ? (keys %$v2, @v1) : ();
        if (defined $incl) {
-               my $re = '(?:'.join('|', map {
-                               $self->{lei}->glob2re($_) // qr/\A\Q$_\E\z/
-                       } @$incl).')';
+               my $re = '(?:'.join('\\z|', map {
+                               $self->{lei}->glob2re($_) // qr/\A\Q$_\E/
+                       } @$incl).'\\z)';
                my @gone = delete @$v2{grep(!/$re/, keys %$v2)};
                delete @$m{map { @$_ } @gone} and $self->{-culled_manifest} = 1;
                delete @$m{grep(!/$re/, @v1)} and $self->{-culled_manifest} = 1;
                @v1 = grep(/$re/, @v1);
        }
        if (defined $excl) {
-               my $re = '(?:'.join('|', map {
-                               $self->{lei}->glob2re($_) // qr/\A\Q$_\E\z/
-                       } @$excl).')';
+               my $re = '(?:'.join('\\z|', map {
+                               $self->{lei}->glob2re($_) // qr/\A\Q$_\E/
+                       } @$excl).'\\z)';
                my @gone = delete @$v2{grep(/$re/, keys %$v2)};
                delete @$m{map { @$_ } @gone} and $self->{-culled_manifest} = 1;
                delete @$m{grep(/$re/, @v1)} and $self->{-culled_manifest} = 1;