diff options
author | Eric Wong <e@80x24.org> | 2016-07-27 22:28:26 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-07-27 22:28:51 +0000 |
commit | e0b7cf5eb5e6828d07094fa44be67e2d7d63e722 (patch) | |
tree | 7e83f74f701cdbf5e6a31520871ab1457813555d /lib/PublicInbox/SaPlugin/ListMirror.pm | |
parent | 6cf4ed00cfe766141572511d4ab2016cd6dafe46 (diff) | |
download | public-inbox-e0b7cf5eb5e6828d07094fa44be67e2d7d63e722.tar.gz |
Callers may have localized $/ to something else, so make sure we chomp the expected character(s) when calling chomp.
Diffstat (limited to 'lib/PublicInbox/SaPlugin/ListMirror.pm')
-rw-r--r-- | lib/PublicInbox/SaPlugin/ListMirror.pm | 2 |
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; |