localize $/ when using chomp

Callers may have localized $/ to something else, so make sure
we chomp the expected character(s) when calling chomp.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib/PublicInbox/SaPlugin/ListMirror.pm b/lib/PublicInbox/SaPlugin/ListMirror.pm
index 10101887..3808196c 100644
--- a/lib/PublicInbox/SaPlugin/ListMirror.pm
+++ b/lib/PublicInbox/SaPlugin/ListMirror.pm
@@ -37,6 +37,7 @@ sub check_list_mirror_received {
         foreach my $cfg (@{$pms->{conf}->{list_mirror_check}}) {
                 my ($hdr, $hval, $host_re, $addr_re) = @$cfg;
                 my $v = $pms->get($hdr) or next;
+                local $/ = "\n";
                 chomp $v;
                 next if $v ne $hval;
                 return 1 if $recvd !~ $host_re;
@@ -53,6 +54,7 @@ sub check_list_mirror_bcc {
                 my ($hdr, $hval, $host_re, $addr_re) = @$cfg;
                 defined $addr_re or next;
                 my $v = $pms->get($hdr) or next;
+                local $/ = "\n";
                 chomp $v;
                 next if $v ne $hval;
                 return 1 if !$tocc || $tocc !~ $addr_re;