lib/PublicInbox/LeiMirror.pm | 12 ++++++------ diff --git a/lib/PublicInbox/LeiMirror.pm b/lib/PublicInbox/LeiMirror.pm index a7ddfcd2834a11146f762af48d6da7cab7add198..40164b676ddb7591536789161ef3a7d14ab1ef35 100644 --- a/lib/PublicInbox/LeiMirror.pm +++ b/lib/PublicInbox/LeiMirror.pm @@ -506,18 +506,18 @@ } 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;